We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent ac26b19 commit 8033be9Copy full SHA for 8033be9
lib/MetaCPAN/Server/Model/Source.pm
@@ -87,8 +87,11 @@ sub path {
87
my $source = $source_base->child( $distvname, @file );
88
return $source
89
if -e $source;
90
+
91
+ # if the directory exists, we already extracted the archive, so if the
92
+ # file didn't exist, we can stop here
93
return undef
- if -e $source_base->child($distvname); # previously extracted, but file does not exist
94
+ if -e $source_base->child($distvname);
95
96
my $release_data
97
= $self->es_query->release->by_author_and_name( $pauseid, $distvname )
0 commit comments