This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
corelist.pl - Fix the addition of a new perl release following 9f92b9bec5
authorSteve Hay <steve.m.hay@googlemail.com>
Fri, 20 Sep 2013 18:37:27 +0000 (19:37 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Fri, 20 Sep 2013 18:37:27 +0000 (19:37 +0100)
Now that the check is working, it was working slightly too well and actually
picked up 5.019005 in the %delta because that had been added already and
thus didn't add it to %released when it should have done!

One simple fix is to move the processing of %released so that it's done
first, which makes sense since it appears first in the file anyway.

Porting/corelist.pl

index 7227be3..ea2d815 100755 (executable)
@@ -43,6 +43,19 @@ if ( !-f 'MANIFEST' ) {
 
 open( my $corelist_fh, '<', $corelist_file );
 my $corelist = join( '', <$corelist_fh> );
+close $corelist_fh;
+
+unless (
+    $corelist =~ /^%released \s* = \s* \(
+        .*?
+        $perl_vnum \s* => \s* .*?
+        \);/ismx
+    )
+{
+    warn "Adding $perl_vnum to the list of released perl versions. Please consider adding a release date.\n";
+    $corelist =~ s/^(%released \s* = \s* .*?) ( \) )
+                /$1  $perl_vnum => '????-??-??',\n  $2/ismx;
+}
 
 if ($cpan) {
     my $modlistfile = File::Spec->catfile( $cpan, 'modules', '02packages.details.txt' );
@@ -283,18 +296,6 @@ $tracker .= ");";
 
 $corelist =~ s/^%bug_tracker .*? ;/$tracker/eismx;
 
-unless (
-    $corelist =~ /^%released \s* = \s* \(
-        .*?
-        $perl_vnum \s* => \s* .*?
-        \);/ismx
-    )
-{
-    warn "Adding $perl_vnum to the list of released perl versions. Please consider adding a release date.\n";
-    $corelist =~ s/^(%released \s* = \s* .*?) ( \) )
-                /$1  $perl_vnum => '????-??-??',\n  $2/ismx;
-}
-
 write_corelist($corelist,$corelist_file);
 
 open( my $pod_fh, '<', $pod_file );