|
Check-in Number:
|
487 | |
| Date: |
2001-May-22 21:27:10 (local)
2001-May-22 19:27:10 (UTC) |
| User: | ossp |
| Branch: | |
| Comment: |
upgrade to fixed Shiela version |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
CVSROOT/shiela 1.8 -> 1.9
--- shiela 2001/05/12 07:28:25 1.8
+++ shiela 2001/05/22 19:27:10 1.9
@@ -1553,12 +1553,12 @@
$Id = 'BLOB';
}
else {
- if ($Io eq 'A' or $Io eq 'R') {
+ if ($Io eq 'A') {
open(FP, "<$Is");
my $l = 0;
$l++ while (<FP>);
close(FP);
- $Id = sprintf("+%d/-%d", ($Io eq 'A' ? $l : 0), ($Io eq 'A' ? 0 : $l));
+ $Id = sprintf("+%d/-%d", $l, 0);
}
elsif ($Io eq 'M') {
if ($rcslog =~ m|\ndate:.*lines:\s*([\d \t+-]+)|s) {
@@ -1566,6 +1566,18 @@
$Id =~ s|\s+|/|g;
}
}
+ elsif ($Io eq 'R') {
+ my $cvs = new CVS ($RT->{cvs}, $RT->{cvsroot});
+ $cvs->directory($cvsdir);
+ $cvs->entry($Is);
+ $cvs->arguments("-p", "-r$IV", $Is);
+ $cvs->send("update");
+ my $f = scalar $cvs->result;
+ $cvs->close;
+ my $l = 0;
+ $f =~ s|\n|$l++|sge;
+ $Id = sprintf("+%d/-%d", 0, $l);
+ }
}
# determine change diff
|
|
