diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-06-18 17:25:18 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-06-18 17:25:18 -0500 |
commit | b7e2b6923feeedb646c84c5755dc6c92db1080d9 (patch) | |
tree | 28089e2ebfa7d891da9a124b4f009dc62b971962 | |
parent | 318b791f053d9ab1f95f2b5936f3a4ae549579a8 (diff) | |
download | perl-b7e2b6923feeedb646c84c5755dc6c92db1080d9.tar.gz |
make sure podlators is skipped, it won't be handled correctly
-rwxr-xr-x | Porting/sync-with-cpan | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Porting/sync-with-cpan b/Porting/sync-with-cpan index e6f59b15e5..0ccd6d98ae 100755 --- a/Porting/sync-with-cpan +++ b/Porting/sync-with-cpan @@ -146,6 +146,10 @@ my $package = "02packages.details.txt"; my $package_url = "http://www.cpan.org/modules/$package"; my $package_file = "/tmp/$package"; +my @problematic = ( + 'podlators', # weird CUSTOMIZED section due to .PL files +); + GetOptions ('tarball=s' => \my $tarball, 'version=s' => \my $version, @@ -162,7 +166,7 @@ my $info = $Modules {$module} or die "Cannot find module $module"; my $distribution = $$info {DISTRIBUTION}; my @files = glob $$info {FILES}; -if (!-d $files [0]) { +if (!-d $files [0] || grep { $_ eq $module } @problematic) { say "This looks like a setup $0 cannot handle (yet)"; unless ($force) { say "Will not continue without a --force option"; |