fixed attrs passed from getattr()
authorHeiko Schlittermann <hs@schlittermann.de>
Mon, 18 Jun 2012 14:36:13 +0200
changeset 115 0d4074ac2eee
parent 113 f358f9875b7a
child 116 0efc1be1805b
child 124 87081e9cf3ba
fixed attrs passed from getattr() The timestamps need to be numbers!
.hgignore
bin/imager.fuse
--- a/.hgignore	Mon Jun 18 13:52:20 2012 +0200
+++ b/.hgignore	Mon Jun 18 14:36:13 2012 +0200
@@ -3,3 +3,5 @@
 blib
 debian/imager
 debian/files
+MYMETA.json
+MYMETA.yml
--- a/bin/imager.fuse	Mon Jun 18 13:52:20 2012 +0200
+++ b/bin/imager.fuse	Mon Jun 18 14:36:13 2012 +0200
@@ -273,8 +273,12 @@
         open(my $fh => $path);
         while (<$fh>) {
             last if /^$/;
-            /^(?<k>\S+):\s+(?<v>.*?)\s*$/
-              and do { $meta{ $+{k} } = $+{v}; next; };
+            /^(?<k>\S+):\s+(?:(?<n>\d+)|(?<v>.*?))\s*$/
+              and do { 
+	      	# na sowas, die Zeitstempel dürfen nicht als Zeichenkette reinkommen!
+	      	$meta{ $+{k} } = defined $+{n} ? (0+$+{n}) : $+{v};
+		next; 
+	      };
         }
         return %meta;
     }