Porting/bump-perl-version: No need to try other maps after one has worked

1 files changed, 6 insertions, 1 deletions

diff --git a/Porting/bump-perl-version b/Porting/bump-perl-version
index 5654a573cd..b60e8e34d0 100644
--- a/Porting/bump-perl-version
+++ b/Porting/bump-perl-version
@@ -265,6 +265,7 @@ sub do_scan {
 
 	while (my $line = <$fh>) {
 	    my $oldline = $line;
+	    my $line_changed = 0;
 	    for my $map (@maps) {
 		my ($pat, $sub, $expected, $file_pat) = @$map;
 
@@ -278,9 +279,13 @@ sub do_scan {
 		}
 		$line =~ s/$pat/$replacement/
 		    or die "Internal error: substitution failed: [$pat]\n";
+		if ($line ne $oldline) {
+	            $line_changed = 1;
+		    last;
+		}
 	    }
 	    $new_contents .= $line if $opts{i};
-	    if ($line ne $oldline) {
+	    if ($line_changed) {
 		$file_changed = 1;
 		if ($opts{s}) {
 		    print "\n$file\n" unless $header;