diff options
Diffstat (limited to 'CVSROOT/commit_prep.pl')
| -rwxr-xr-x | CVSROOT/commit_prep.pl | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/CVSROOT/commit_prep.pl b/CVSROOT/commit_prep.pl index 8960bddafeed..ebd3013efeb4 100755 --- a/CVSROOT/commit_prep.pl +++ b/CVSROOT/commit_prep.pl @@ -110,10 +110,8 @@ sub check_version { my $rname; my $version; - if (! -f $filename) { - return(0); # not present - either removed or let - # cvs deal with it. - } + # not present - either removed or let cvs deal with it. + return 0 unless -f $filename; open FILE, $filename or die "Cannot open $filename, stopped\n"; # requiring the header within the first 'n' lines isn't useful. @@ -132,12 +130,11 @@ sub check_version { $path = $directory . "/" . $filename; open(EX, "<$exclude") || die("cannot open $exclude: $!"); while (<EX>) { - chop; + chomp; my $ex_entry = $_; - if ($ex_entry =~ /^#/) { - next; - } + next if $ex_entry =~ /^#/; + if ($path =~ /$ex_entry/) { close(EX); return(0); |