diff options
author | Ricardo Signes <rjbs@cpan.org> | 2012-05-10 14:34:27 -0400 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-05-10 14:34:27 -0400 |
commit | df6d85b8ee8f63615b9e8b8ff20e3cf58999c7f7 (patch) | |
tree | 5cb926a348d1eab0e737301f683af7ccd71bbc76 | |
parent | c73d2bddcf5258c5e189452607e656716cb186a5 (diff) | |
download | perl-df6d85b8ee8f63615b9e8b8ff20e3cf58999c7f7.tar.gz |
allow for .tgz dists in the CoreList updater
-rwxr-xr-x | Porting/corelist.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/corelist.pl b/Porting/corelist.pl index f8110f348f..c5952c3028 100755 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -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" ) { |