Index: CVSROOT/shiela
RCS File: /v/ossp/cvs/CVSROOT/shiela,v
rcsdiff -q -kk '-r1.8' '-r1.9' -u '/v/ossp/cvs/CVSROOT/shiela,v' 2>/dev/null
--- 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