Fix a bug in the local cvsweb URL insertion function.

Spotted by:	Mathieu Arnold <arn_mat@club-internet.fr>

1 files changed, 6 insertions, 6 deletions

diff --git a/CVSROOT/cfg.pm b/CVSROOT/cfg.pm
index afb6b83..ede8858 100755
--- a/CVSROOT/cfg.pm
+++ b/CVSROOT/cfg.pm
@@ -230,12 +230,13 @@ sub add_cvsweb_entry {
 	}
 
 	# Add the url links
+	my $skip = 0;
 	foreach (@input) {
-		# Skip any trailing blank lines.
-		unless ($_) {
-			push @output, $_;
-			next;
-		}
+		# The revision block is terminated with an empty line.
+		$skip = 1 if $_ =~ /^\s*$/;
+
+		push @output, $_;
+		next if $skip;
 
 		my ($rev, $add, $sub, $file, $status) = split;
 
@@ -257,7 +258,6 @@ sub add_cvsweb_entry {
 		} else {
 			$extra = ".diff?r1=$prevrev&r2=$rev&f=h";
 		}
-		push @output, $_;
 		push @output, "$baseurl$extra";
 	}