Skip to content

Commit 8033be9

Browse files
committed
better comment for source 404
1 parent ac26b19 commit 8033be9

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

lib/MetaCPAN/Server/Model/Source.pm

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -87,8 +87,11 @@ sub path {
8787
my $source = $source_base->child( $distvname, @file );
8888
return $source
8989
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
9093
return undef
91-
if -e $source_base->child($distvname); # previously extracted, but file does not exist
94+
if -e $source_base->child($distvname);
9295

9396
my $release_data
9497
= $self->es_query->release->by_author_and_name( $pauseid, $distvname )

0 commit comments

Comments
 (0)