This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
765955c
)
Porting/corelist.pl - Fix breakage since commit c676c8385f
author
Steve Hay
<steve.m.hay@googlemail.com>
Thu, 3 Oct 2013 12:11:26 +0000
(13:11 +0100)
committer
Steve Hay
<steve.m.hay@googlemail.com>
Thu, 3 Oct 2013 12:13:42 +0000
(13:13 +0100)
Porting/corelist.pl
patch
|
blob
|
blame
|
history
diff --git
a/Porting/corelist.pl
b/Porting/corelist.pl
index
9f13b1e
..
5d302d3
100755
(executable)
--- a/
Porting/corelist.pl
+++ b/
Porting/corelist.pl
@@
-165,8
+165,8
@@
for my $key (sort keys($delta_data->{removed} || {})) {
$versions_in_release .= " }\n";
$versions_in_release .= " },\n";
-$corelist =~ s/^(
my
%delta\s*=\s*.*?)^\s*$perl_vnum\s*=>\s*{.*?},\s*(^\);)$/$1$2/ism;
-$corelist =~ s/^(
my
%delta\s*=\s*.*?)(^\);)$/$1$versions_in_release$2/ism;
+$corelist =~ s/^(%delta\s*=\s*.*?)^\s*$perl_vnum\s*=>\s*{.*?},\s*(^\);)$/$1$2/ism;
+$corelist =~ s/^(%delta\s*=\s*.*?)(^\);)$/$1$versions_in_release$2/ism;
exit unless %modlist;