From: Jesse Vincent <jesse@bestpractical.com>
Date: Sun, 20 Dec 2009 19:49:33 +0000 (-0500)
Subject: Minor updates to our corelist update tool
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd48f21c6d042798c59d33c0df88516aeba78eb9;p=p5sagit%2Fp5-mst-13.2.git

Minor updates to our corelist update tool
---

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 87d61e6..e06f598 100644
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -162,7 +162,7 @@ while ( my ( $module, $file ) = each %module_to_file ) {
 
     # Like it or lump it, this has to be Unix format.
     my $meta_YAML_path = "authors/id/$dist";
-    $meta_YAML_path =~ s/(?:tar\.gz|zip)$/meta/ or die "$meta_YAML_path";
+    $meta_YAML_path =~ s/(?:tar\.gz|tar\.bz2|zip)$/meta/ or die "$meta_YAML_path";
     my $meta_YAML_url = 'http://ftp.funet.fi/pub/CPAN/' . $meta_YAML_path;
 
     if ( -e "$cpan/$meta_YAML_path" ) {
@@ -240,7 +240,7 @@ unless (
 {
     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;
+                /$1  $perl_vnum => '????-??-??',\n  $2/ismx;
 }
 
 write_corelist($corelist);