X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=lib%2FFile%2FKDBX%2FUtil.pm;h=3141c3fe969c35369482d84bd85c911a87b81647;hp=9fe9a9eb318faf99efe195d2928b875b79ef4185;hb=4919a87027c9f0501a636fbea0cbd2a6510afb38;hpb=37b09e0f2832514b33de4499a83f22d5ffe7c0a3

diff --git a/lib/File/KDBX/Util.pm b/lib/File/KDBX/Util.pm
index 9fe9a9e..3141c3f 100644
--- a/lib/File/KDBX/Util.pm
+++ b/lib/File/KDBX/Util.pm
@@ -223,7 +223,8 @@ sub dumper {
         # boolean
         $str =~ s/bless\( do\{\\\(my \$o = ([01])\)\}, 'boolean' \)/boolean($1)/gs;
         # Time::Piece
-        $str =~ s/bless\([^\)]+?(\d+)'?,\s+\d+,?\s+\], 'Time::Piece' \)/Time::Piece->new($1)/gs;
+        $str =~ s/bless\([^\)]+?(\d+)'?,\s+\d+,?\s+\], 'Time::Piece' \),/
+            "scalar gmtime($1), # " . scalar gmtime($1)->datetime/ges;
 
         print STDERR $str if !defined wantarray;
         push @dumps, $str;