summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
ab63932)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
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);