diff --git a/webtools/bonsai/cvsblame.pl b/webtools/bonsai/cvsblame.pl
index 72bf47cd665b..36f02061f61e 100755
--- a/webtools/bonsai/cvsblame.pl
+++ b/webtools/bonsai/cvsblame.pl
@@ -404,7 +404,12 @@ sub parse_rcs_deltatext {
# Reads and parses complete RCS file from already-opened RCSFILE descriptor.
+# Or if a parameter is given use the corresponding file
sub parse_rcs_file {
+ my $path = shift;
+ if (defined $path) {
+ open (RCSFILE, "< $path");
+ }
print "Reading RCS admin...\n" if ($debug >= 2);
&parse_rcs_admin();
print "Reading RCS revision tree topology...\n" if ($debug >= 2);
@@ -423,6 +428,7 @@ sub parse_rcs_file {
print "Reading RCS revision deltas...\n" if ($debug >= 2);
&parse_rcs_deltatext();
print "Done reading RCS file...\n" if ($debug >= 2);
+ close RCSFILE if (defined $path);
}
# Map a tag to a numerical revision number. The tag can be a symbolic
diff --git a/webtools/bonsai/cvsview2.cgi b/webtools/bonsai/cvsview2.cgi
index c5e62b16ce34..74f82a7cc43b 100755
--- a/webtools/bonsai/cvsview2.cgi
+++ b/webtools/bonsai/cvsview2.cgi
@@ -214,7 +214,7 @@ sub http_lastmod {
# Create top-level frameset document.
sub do_diff_frameset {
chdir($dir);
-http_lastmod;
+ http_lastmod;
print "$opt_file: $opt_rev1 vs. $opt_rev2\n";
print "