From 0d19350b78104ed68bded90e7d9f67c4b14b6cd1 Mon Sep 17 00:00:00 2001 From: Oliver Eikemeier Date: Sun, 30 May 2004 15:09:11 +0000 Subject: [PATCH] don't terminate the log entry with the first hyphen --- Tools/scripts/chkversion.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Tools/scripts/chkversion.pl b/Tools/scripts/chkversion.pl index 2f913b0ffcfe..83547ed5c790 100755 --- a/Tools/scripts/chkversion.pl +++ b/Tools/scripts/chkversion.pl @@ -271,7 +271,7 @@ sub blame { my @cvslog = readfrom "$portsdir/$origin", $cvs, '-R', 'log', '-N', '-r' . ($revision{$origin} ? $revision{$origin} : '.'), 'Makefile'; foreach (@cvslog) { - my $in_log = /^-/ ... /^[-=]/; + my $in_log = /^-{28}$/ ... /^(-{28}|={77})$/; print $fh " | $_\n" if ($in_log && $in_log != 1 && $in_log !~ /E0$/); }