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