use return instead of next

This commit is contained in:
Dietmar Maurer 2011-09-21 12:24:40 +02:00
parent 08b86ef3d7
commit b203155d00

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";
};