use return instead of next

6a9a5220 · Dietmar Maurer · 7fc43a1c · 6a9a5220
Commit 6a9a5220 authored Sep 21, 2011 by Dietmar Maurer
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

repoid.pl repoid.pl +2 -2

No files found.
--- a/repoid.pl
+++ b/repoid.pl
@@ -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";
    };