diff options
-rwxr-xr-x[-rw-r--r--] | lib/metas/perl.d/scrapecore | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/metas/perl.d/scrapecore b/lib/metas/perl.d/scrapecore index 19cce80..2e1aba3 100644..100755 --- a/lib/metas/perl.d/scrapecore +++ b/lib/metas/perl.d/scrapecore @@ -206,7 +206,8 @@ sub _delmatch sub coreonly { my %mods = map { @$_ } @_; - my $path = "$ENV{'PKGVAR'}/cpanmods"; + my $var = $ENV{'PKGVAR'} || "$ENV{'HOME'}/var"; + my $path = "$var/cpanmods"; open(my $if, '<', $path) or die("open $path: $!"); my @dists; @@ -233,5 +234,8 @@ my @mods = (CoreDist::findmods($perldir), CoreLib::findmods($perldir)); +## Embedded modules without any files... +push @mods, [qw/ Config 1/]; + @mods = coreonly(@mods); for my $mv (@mods){ print "@$mv\n"; } |