package MT::Plugin::SKR::NoAprilFoolsDay;

use strict;
no warnings qw( redefine );
use MT::Util;

my $orig_format_ts = \&MT::Util::format_ts;
*MT::Util::format_ts = sub {
    my ($format, $ts, $blog, $lang, $is_mail) = @_;
    $ts = "${1}0332${2}" if $ts =~ /^(\d{4})0401(\d{6})$/;
    $orig_format_ts->($format, $ts, $blog, $lang, $is_mail);
};

1;