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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[perl #114888] Localise PL_comppad_name in cv_clone
[perl5.git]
/
Porting
/
new-perldelta.pl
diff --git
a/Porting/new-perldelta.pl
b/Porting/new-perldelta.pl
index
4fa7fd1
..
7aa605e
100644
(file)
--- a/
Porting/new-perldelta.pl
+++ b/
Porting/new-perldelta.pl
@@
-82,13
+82,13
@@
foreach([rXXX => $was_major],
write_or_die('pod/perldelta.pod', $newdelta);
git_add_modified('pod/perldelta.pod');
write_or_die('pod/perldelta.pod', $newdelta);
git_add_modified('pod/perldelta.pod');
-$filename = 'pod
.lst
';
+$filename = 'pod
/perl.pod
';
my $pod_master = slurp_or_die($filename);
my $pod_master = slurp_or_die($filename);
-$pod_master =~ s{^(\s*perl5)($
old_major$old
_minor)(delta\s+Perl changes in version )(5\.\d+\.\d+)(.*)}
- {$1 . $
new_major . $new_minor .$3 . "5.$new_major.$new
_minor" . $5 . "\n" .
+$pod_master =~ s{^(\s*perl5)($
was_major$was
_minor)(delta\s+Perl changes in version )(5\.\d+\.\d+)(.*)}
+ {$1 . $
old_major . $old_minor .$3 . "5.$old_major.$old
_minor" . $5 . "\n" .
"$1$2$3$4$5"}me
"$1$2$3$4$5"}me
- or
die "Can't find perldelta line
in $filename";
+ or
warn "Couldn't find perldelta line (for perl5$was_major${was_minor}delta)
in $filename";
write_or_die($filename, $pod_master);
git_add_modified($filename);
write_or_die($filename, $pod_master);
git_add_modified($filename);