# HG changeset patch
# User Heiko Schlittermann (DTELE) <hs@schlittermann.de>
# Date 1314303134 -7200
# Node ID 8d28864d1ba1cff2c1833b05368292115332e6e7
# Parent  ac36dbb9f773427bbb5a2e1daf6f6714422e21e1
fixed DATEFMT

diff -r ac36dbb9f773 -r 8d28864d1ba1 bin/imager.save
--- a/bin/imager.save	Thu Aug 25 22:05:26 2011 +0200
+++ b/bin/imager.save	Thu Aug 25 22:12:14 2011 +0200
@@ -27,6 +27,7 @@
 sub get_devname;
 sub save;
 
+
 $SIG{INT} = sub { die "Got INT\n" };
 
 my %o = (
@@ -119,7 +120,7 @@
         blocksize  => $o{blocksize},
         devsize    => $size,
         timestamp  => $o{now},
-        datetime   => strftime(DATEFMT => gmtime $o{now}),
+        datetime   => strftime(DATEFMT, gmtime $o{now}),
         (defined $o{comment} ? (comment => $o{comment}) : ()),
         encryption => $o{pass} ? CIPHER : "none",
     };
@@ -220,7 +221,7 @@
       "",
       @{ $index{BLOCKS} };
     close($index);
-    rename $index->filename => "$idx/" . strftime(DATEFMT => gmtime $o{now});
+    rename $index->filename => "$idx/" . strftime(DATEFMT, gmtime $o{now});
 
     say "# $src DONE (runtime " . (time() - $^T) . "s)";
     say "# $src WRITTEN $stats{written}, SKIPPED $stats{skipped} blocks";