Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Merge pull request #183 from mpeters/web_issue_508

Web issue 508
  • Loading branch information...
commit 198699e74e3c6fb918baff477426a2cd9877f662 2 parents 1a59fd2 + e57707e
Olaf Alders authored March 31, 2012

Showing 1 changed file with 3 additions and 3 deletions. Show diff stats Hide diff stats

  1. 6  lib/MetaCPAN/Script/Release.pm
6  lib/MetaCPAN/Script/Release.pm
@@ -177,9 +177,9 @@ sub import_tarball {
177 177
     my $at = Archive::Any->new($tarball);
178 178
     my $tmpdir = dir( File::Temp::tempdir( CLEANUP => 0 ) );
179 179
 
  180
+    log_error { "$tarball is being impolite" } if $at->is_impolite;
180 181
     # TODO: add release to the index with status => 'broken' and move along
181  
-    log_error {"$tarball is being naughty"}
182  
-    if $at->is_naughty || $at->is_impolite;
  182
+    log_error { "$tarball is being naughty" }  if $at->is_naughty;
183 183
 
184 184
     log_debug {"Extracting archive to filesystem"};
185 185
     $at->extract($tmpdir);
@@ -248,7 +248,7 @@ sub import_tarball {
248 248
             $child->is_dir
249 249
                 ? $fname =~ s/^(.*\/)?(.+?)\/?$/$2/
250 250
                 : $fname =~ s/.*\///;
251  
-            $fpath = "" unless ( $relative =~ /\// );
  251
+            $fpath = "" if $relative !~ /\// && !$at->is_impolite;
252 252
             my $file = $file_set->new_document(
253 253
                 Dlog_trace {"adding file $_"} +{
254 254
                     name         => $fname,

0 notes on commit 198699e

Please sign in to comment.
Something went wrong with that request. Please try again.