use return instead of next

This commit is contained in:
Dietmar Maurer 2011-09-21 12:24:40 +02:00
parent 7fc43a1cb9
commit 6a9a522082

View File

@ -21,8 +21,8 @@ if ($arg1) {
my $testfunc = sub {
my $line = shift;
next if $line =~ m/^#/;
next if $line =~ m/^\?\?/;
return if $line =~ m/^#/;
return if $line =~ m/^\?\?/;
die "detected modified content: $line\n";
};