Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fixup some mistakes in last commit

  • Loading branch information...
commit cc20123e6827b46fd33e1ccdcc3d0f08fe83306c 1 parent e42a09d
@benkasminbullock authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 lib/CPANdeps.pm
View
4 lib/CPANdeps.pm
@@ -439,6 +439,7 @@ sub getpurity {
return '?';
} else {
my @manifest = split(/[\r\n]+/, $res->content());
+ my $parsed_meta = read_meta (@_);
my $ispureperl =
(
(
@@ -452,7 +453,7 @@ sub getpurity {
} @manifest) &&
!(grep { /PurePerl/i } @manifest)
) ||
- (grep { /^Inline/ } keys %{{getreqs(@_)}})
+ (grep { /^Inline/ } keys %{{getreqs($parsed_meta)}})
) ? 'N' : 'Y';
open(MANIFEST, ">$cachefile") || die("Can't write $cachefile\n");
print MANIFEST $ispureperl;
@@ -505,6 +506,7 @@ sub read_meta {
}
sub getreqs {
+ my ($parsed_meta) = @_;
return ('!', '!') if($@ || !defined($parsed_meta));
# These are for META.yml
Please sign in to comment.
Something went wrong with that request. Please try again.