chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ab63932
)
expire-iso8601: add missing $ to filename regexp
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Thu, 20 Aug 2020 00:13:21 +0000
(
01:13
+0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Thu, 20 Aug 2020 00:13:21 +0000
(
01:13
+0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
scripts/expire-iso8601
patch
|
blob
|
history
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 )?
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);
print STDERR "ignoring $f\n";
}
my @t = Date::Parse::strptime($f);