In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/cc56b22cdd1467489c6abf7e650bb91d52743913?hp=2b29d4bc27bf0f6ecfae06ec423a6643b3a6fe03>
- Log ----------------------------------------------------------------- commit cc56b22cdd1467489c6abf7e650bb91d52743913 Author: Steve Hay <[email protected]> Date: Thu Feb 19 08:42:46 2015 +0000 Porting/bump-perl-version: No need to try other maps after one has worked ----------------------------------------------------------------------- Summary of changes: 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; -- Perl5 Master Repository
