some small fixes by perlcritc

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);