diff options
| author | Jannis M. Hoffmann <jannis.hoffmann@rwth-aachen.de> | 2022-05-09 22:57:17 +0200 |
|---|---|---|
| committer | Jannis M. Hoffmann <jannis.hoffmann@rwth-aachen.de> | 2022-05-09 22:57:17 +0200 |
| commit | 6ed400461bb2429a5818c58a0a5b92f555700edc (patch) | |
| tree | dd0138dd71462311c95dfdd1af4384efd1e66470 /lib/JWebmail/Plugin | |
| parent | 73503d87d3f9f87a73616bd3f4365906c87ae13e (diff) | |
some small fixes by perlcritc
Diffstat (limited to 'lib/JWebmail/Plugin')
| -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); |