Add a usage scenario and common use pattern to perldoc -f quotemeta

[p5sagit/p5-mst-13.2.git] / Porting / corelist.pl

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 87d61e6..e06f598 100644 (file)
--- 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);