Allow dates with slashes in them in $DateRE.

Don't match on $Filename (which will be unset) if we hit 'UNMATCHABLE:'.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@14112 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Brian Gaeke 2004-06-10 07:44:28 +00:00
parent 577aec1428
commit 43f38677f5

View File

@ -430,7 +430,7 @@ if ($VERBOSE) { print "CVS HISTORY ANALYSIS STAGE\n"; }
# stuff is stored.
my (%AddedFiles, %ModifiedFiles, %RemovedFiles, %UsersCommitted, %UsersUpdated);
my $DateRE = "[-:0-9 ]+\\+[0-9]+";
my $DateRE = '[-/:0-9 ]+\+[0-9]+';
# Loop over every record from the CVS history, filling in the hashes.
foreach $File (@CVSHistory) {
@ -443,6 +443,7 @@ foreach $File (@CVSHistory) {
($Type, $Date, $UID, $Rev, $Filename) = ($1, $2, $3, "", "$4/");
} else {
print "UNMATCHABLE: $File\n";
next;
}
# print "$File\nTy = $Type Date = '$Date' UID=$UID Rev=$Rev File = '$Filename'\n";