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