--- shiela.pl 2001/05/22 19:26:12 1.10
+++ shiela.pl 2001/08/30 07:41:03 1.11
@@ -1488,8 +1488,8 @@
# extend the CVS summary of each file
my @newinfo = ();
foreach my $info (@cvsinfo) {
- $info =~ m|^([^,]+),([^,]+),([^,]+)$|
- || die "invalid loginfo argument `$info'";
+ $info =~ m|^([^,]+),([^,]+),([^,]+)|
+ || die "invalid loginfo argument `$info' while extending stock CVS information";
my ($Is, $IV, $Iv) = ($1, $2, $3);
my $It = '';
@@ -1509,7 +1509,7 @@
my @newinfo = ();
foreach my $info (@cvsinfo) {
$info =~ m|^([^,]+),([^,]+),([^,]+),([^,]*),([^,]*)$|
- || die "invalid loginfo argument `$info'";
+ || die "invalid loginfo argument `$info' while extending summary information";
my ($Is, $IV, $Iv, $It, $Io) = ($1, $2, $3, $4, $5);
# fix branch/tag and accumulate information
@@ -1749,7 +1749,7 @@
my $handle_max = undef;
foreach my $cvsinfo (@cvsinfo) {
$cvsinfo =~ m|^([^,]+),([^,]+),([^,]+),([^,]+),([^,]+),([^,]+),([^,]+),([^,]+)$|
- || die "invalid loginfo argument `$cvsinfo'";
+ || 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);
my $e = {};
$e->{oldrev} = $IV;
|
