X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/bcfe7366a024445f7575d1c34add01b8f02b72b3..cbacc9aa064469dbad90cdce51a3e7abbdf202be:/Porting/new-perldelta.pl

diff --git a/Porting/new-perldelta.pl b/Porting/new-perldelta.pl
index 4fa7fd1..7aa605e 100644
--- 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');
 
-$filename = 'pod.lst';
+$filename = 'pod/perl.pod';
 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
-    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);