This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
allow for .tgz dists in the CoreList updater
authorRicardo Signes <rjbs@cpan.org>
Thu, 10 May 2012 18:34:27 +0000 (14:34 -0400)
committerRicardo Signes <rjbs@cpan.org>
Thu, 10 May 2012 18:34:27 +0000 (14:34 -0400)
Porting/corelist.pl

index f8110f3..c5952c3 100755 (executable)
@@ -171,7 +171,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|tar\.bz2|zip)$/meta/ or die "$meta_YAML_path";
+    $meta_YAML_path =~ s/(?:tar\.gz|tar\.bz2|zip|tgz)$/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" ) {