diff options
Diffstat (limited to 'tools')
-rw-r--r-- | tools/tools/mfc/mfc.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tools/tools/mfc/mfc.pl b/tools/tools/mfc/mfc.pl index 8cdeea0..5448021 100644 --- a/tools/tools/mfc/mfc.pl +++ b/tools/tools/mfc/mfc.pl @@ -56,7 +56,7 @@ my $mfchome = $MFCHOME ? $MFCHOME : "/var/tmp/mfc"; my $mfclogin = $MFCLOGIN ? $MFCLOGIN : ""; my $cvsroot = $MFCCVSROOT ? $MFCCVSROOT : ':pserver:anoncvs@anoncvs.at.FreeBSD.org:/home/ncvs'; -my $version = "1.0.1"; +my $version = "1.0.2"; my %opt; my $commit_author; my $commit_date; @@ -75,8 +75,6 @@ my $cdiff; my $answer; my $mfc_func = \&mfc_headers; -my $first_log_line = 1; - sub init() { # Look for pre-requisites. @@ -286,7 +284,7 @@ sub mfc_revisions($) sub strip_log(@) { my $tmp; - while ($logmsg[$#logmsg] =~ /^\s*$/ or $logmsg[$#logmsg] =~ /^\s\s\w+(\s\w+)*:\s+\w+(\s+\w+)*/) { + while ($#logmsg >= 0 and ($logmsg[$#logmsg] =~ /^\s*$/ or $logmsg[$#logmsg] =~ /^\s\s\w+(\s\w+)*:\s+\w+(\s+\w+)*/)) { $tmp = pop(@logmsg); $tmp =~ s/^\s*//; chomp($tmp); |