chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
expire-iso8601: add missing $ to filename regexp
[chiark-utils.git]
/
scripts
/
expire-iso8601
diff --git
a/scripts/expire-iso8601
b/scripts/expire-iso8601
index 8d4838f98ff063bd83c9a2e5e5ba9110e96da755..6e6da6f52aae60ee1d2a4ce86080003f76371ff3 100755
(executable)
--- a/
scripts/expire-iso8601
+++ b/
scripts/expire-iso8601
@@
-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);