chiark / gitweb /
expire-iso8601: add missing $ to filename regexp
[chiark-utils.git] / scripts / expire-iso8601
index 8d4838f98ff063bd83c9a2e5e5ba9110e96da755..6e6da6f52aae60ee1d2a4ce86080003f76371ff3 100755 (executable)
@@ -70,7 +70,7 @@ sub scan () {
   foreach my $f (<[0-9]*>) {
     if ($f  !~ m/^ \d\d\d\d - \d\d - \d\d 
                 (?: T \d\d \: \d\d (?: \: \d\d )?
-                  (?: [-+] \d{1,2} \:? \d\d )? )? /x) {
+                  (?: [-+] \d{1,2} \:? \d\d )? )? $/x) {
       print STDERR "ignoring $f\n";
     }
     my @t = Date::Parse::strptime($f);