--- shiela.pl 2002/12/21 12:23:31 1.25
+++ shiela.pl 2002/12/21 12:38:55 1.26
@@ -1780,6 +1780,11 @@
$cvsinfo =~ m|^([^,]+),([^,]+),([^,]+),([^,]+),([^,]+),([^,]+),([^,]+),([^,]+)$|
|| die "invalid loginfo argument `$cvsinfo' while accumulating information";
my ($Is, $IV, $Iv, $It, $Io, $Ik, $ID, $Id) = ($1, $2, $3, $4, $5, $6, $7, $8, $9);
+ if ($Io eq 'R' and $ID eq '0') {
+ # CVS does not provide a commit time for removed files
+ # so use the current time as a replacement
+ $ID = time();
+ }
my $e = {};
$e->{oldrev} = $IV;
$e->{newrev} = $Iv;
|