--- shiela.pl 2004/06/27 07:45:50 1.63
+++ shiela.pl 2004/07/02 17:22:18 1.64
@@ -1662,7 +1662,7 @@
# determine commit date
my $ID = 0;
- if ($rcslog =~ m|\ndate:\s+(\d\d\d\d)/(\d\d)/(\d\d)\s+(\d\d):(\d\d):(\d\d);|s) {
+ if ($rcslog =~ m|\ndate:\s+(\d\d\d\d)[/-](\d\d)[/-](\d\d)\s+(\d\d):(\d\d):(\d\d)(?:\s+[+-]?\d+)?;|s) {
my ($Y,$M,$D,$h,$m,$s) = ($1,$2,$3,$4,$5,$6);
$ID = POSIX::mktime($s, $m, $h, $D, $M-1, $Y-1900);
}
|
