Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge pull request #183 from mpeters/web_issue_508

Web issue 508
  • Loading branch information...
commit 198699e74e3c6fb918baff477426a2cd9877f662 2 parents 1a59fd2 + e57707e
@oalders oalders authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 lib/MetaCPAN/Script/Release.pm
View
6 lib/MetaCPAN/Script/Release.pm
@@ -177,9 +177,9 @@ sub import_tarball {
my $at = Archive::Any->new($tarball);
my $tmpdir = dir( File::Temp::tempdir( CLEANUP => 0 ) );
+ log_error { "$tarball is being impolite" } if $at->is_impolite;
# TODO: add release to the index with status => 'broken' and move along
- log_error {"$tarball is being naughty"}
- if $at->is_naughty || $at->is_impolite;
+ log_error { "$tarball is being naughty" } if $at->is_naughty;
log_debug {"Extracting archive to filesystem"};
$at->extract($tmpdir);
@@ -248,7 +248,7 @@ sub import_tarball {
$child->is_dir
? $fname =~ s/^(.*\/)?(.+?)\/?$/$2/
: $fname =~ s/.*\///;
- $fpath = "" unless ( $relative =~ /\// );
+ $fpath = "" if $relative !~ /\// && !$at->is_impolite;
my $file = $file_set->new_document(
Dlog_trace {"adding file $_"} +{
name => $fname,
Please sign in to comment.
Something went wrong with that request. Please try again.