diff options
author | Jannis M. Hoffmann <jannis@fehcom.de> | 2023-03-26 17:56:45 +0200 |
---|---|---|
committer | Jannis M. Hoffmann <jannis@fehcom.de> | 2023-03-26 17:56:45 +0200 |
commit | 97d10a54426d2df2de1c765948989dfc88a316eb (patch) | |
tree | c494fb654a7617f79058f7487b93b7a7908ee43c /lib/JWebmail/View/Webmail.pm | |
parent | 0b588dff194f5dbf55ee49e88e0ca396b1bed858 (diff) |
1. corrected manifestmain
2. private node package
3. better error msg in Webmail/View
4. reduced send binaries on read
Diffstat (limited to 'lib/JWebmail/View/Webmail.pm')
-rw-r--r-- | lib/JWebmail/View/Webmail.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/JWebmail/View/Webmail.pm b/lib/JWebmail/View/Webmail.pm index 464c97e..778253d 100644 --- a/lib/JWebmail/View/Webmail.pm +++ b/lib/JWebmail/View/Webmail.pm @@ -46,12 +46,14 @@ sub print_sizes2 { my sub dgt { "([[:digit:]]{$_[0]})" } sub parse_iso_date { - shift; + my ($_self, $in) = @_; + 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/; + + my @d = $in =~ /$rx/; if (@d != 6) { # TODO - warn "issue when parsing date"; + warn "issue when parsing date '$in'"; } return { year => $d[0], |