diff options
Diffstat (limited to 'lib/JWebmail/Plugin/Helper.pm')
| -rw-r--r-- | lib/JWebmail/Plugin/Helper.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/JWebmail/Plugin/Helper.pm b/lib/JWebmail/Plugin/Helper.pm index 86fea26..8323a61 100644 --- a/lib/JWebmail/Plugin/Helper.pm +++ b/lib/JWebmail/Plugin/Helper.pm @@ -82,10 +82,10 @@ sub print_sizes2 { } -my sub d { "([[:digit:]]{$_[0]})" } +my sub dgt { "([[:digit:]]{$_[0]})" } sub parse_iso_date { - state $rx = do { my $re = d(4).'-'.d(2).'-'.d(2).'T'.d(2).':'.d(2).':'.d(2); qr/$re/a }; + state $rx = do { my $re = dgt(4).'-'.dgt(2).'-'.dgt(2).'T'.dgt(2).':'.dgt(2).':'.dgt(2); qr/$re/a }; my @d = shift =~ /$rx/; if (@d != 6) { # TODO @@ -129,7 +129,7 @@ our %MIME_Render_Subs = ( sub mime_render { my ($c, $enc, $cont) = @_; - ($enc) = $enc =~ m"^(\w+/\w+);?"; + ($enc) = $enc =~ m<^(\w+/\w+);?>; my $renderer = $MIME_Render_Subs{$enc} // return ''; return $renderer->($c, $cont); |