From cc56b22cdd1467489c6abf7e650bb91d52743913 Mon Sep 17 00:00:00 2001
From: Steve Hay <steve.m.hay@googlemail.com>
Date: Thu, 19 Feb 2015 08:42:46 +0000
Subject: [PATCH] Porting/bump-perl-version: No need to try other maps after
 one has worked

---
 Porting/bump-perl-version | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Porting/bump-perl-version b/Porting/bump-perl-version
index 5654a57..b60e8e3 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;
-- 
1.8.3.1