diff options
| author | Justin Davis <jrcd83@gmail.com> | 2012-01-07 18:58:18 +0100 |
|---|---|---|
| committer | Justin Davis <jrcd83@gmail.com> | 2012-01-07 18:58:18 +0100 |
| commit | 0fd17fd113f7e6ac696b574c7929444cfb88b52d (patch) | |
| tree | b9c24672f5d7c6dd6cbea236e35c3eee25e40759 /lib/metas/perl.d/scrapecore | |
| parent | 23b61cc4ac925c0139c3456c4672dc2d306af7fe (diff) | |
| parent | 65f503976340ea03c030b26af8691e2f373f1377 (diff) | |
| download | genpkg-0fd17fd113f7e6ac696b574c7929444cfb88b52d.tar.gz genpkg-0fd17fd113f7e6ac696b574c7929444cfb88b52d.tar.xz | |
Merge changed from other puter.
Fix return value snafus, etc.
Diffstat (limited to 'lib/metas/perl.d/scrapecore')
| -rwxr-xr-x | lib/metas/perl.d/scrapecore | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/metas/perl.d/scrapecore b/lib/metas/perl.d/scrapecore index eae1b21..2e1aba3 100755 --- a/lib/metas/perl.d/scrapecore +++ b/lib/metas/perl.d/scrapecore @@ -205,8 +205,9 @@ sub _delmatch sub coreonly { - my (%mods) = map { @$_ } @_; - my $path = "$ENV{'PKGVAR'}/cpanmods"; + my %mods = map { @$_ } @_; + 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"; } |