X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=blobdiff_plain;f=scripts%2Fexpire-iso8601;h=1ef843b2ef166bd03fc05a14bec50828a6158b16;hp=552b25839cb5e90c591e7e1a10e4ec752be73ea0;hb=2d3da03e893d0c59e236224f049215fab8e81e8e;hpb=a120d75afd76340aeac21e6d7ea81fc2c1fd4f28

diff --git a/scripts/expire-iso8601 b/scripts/expire-iso8601
index 552b258..1ef843b 100755
--- a/scripts/expire-iso8601
+++ b/scripts/expire-iso8601
@@ -71,18 +71,18 @@ sub scan () {
 		   (?: [-+] \d{1,2} \:? \d\d )? )? /x) {
       print STDERR "ignoring $f\n";
     }
-    my @t = Date::Parse::strptime($f);
-    @t = map { $_ // 0 } @t;
-    my $t = mktime @t;
+#    my @t = Date::Parse::strptime($f);
+#    @t = map { $_ // 0 } @t;
+#    my $t = mktime @t;
 #    m
 #    my $t = $strp->parse_datetime($f);
 #    $t = $t->epoch();
 #    my @t = Date::Parse::strptime($f);
 #print STDERR Dumper(\@t);
 #    my $t = mktime(@t);
-#    $!=0; $?=0; my $t = `date -d '$&' +%s`;
-#    die "date(!) failed on $&: $? $!" if $! || $?;
-#    chomp $t or confess;
+    $!=0; $?=0; my $t = `date -d '$&' +%s`;
+    die "date(!) failed on $&: $? $!" if $! || $?;
+    chomp $t or confess;
     push @files, { F => $f, T => $t, U => [] };
   }
 }