diff options
| author | Justin Davis <jrcd83@gmail.com> | 2011-11-20 17:56:53 +0100 |
|---|---|---|
| committer | Justin Davis <jrcd83@gmail.com> | 2011-11-20 17:56:53 +0100 |
| commit | 65f503976340ea03c030b26af8691e2f373f1377 (patch) | |
| tree | df0ea7c673a324eb0ae92ab29896e2a04d38c082 | |
| parent | 56b249308eba7e641fb84c45b08b290133e1d783 (diff) | |
| download | genpkg-65f503976340ea03c030b26af8691e2f373f1377.tar.gz genpkg-65f503976340ea03c030b26af8691e2f373f1377.tar.xz | |
Default to ~/var for var path. Always print Config mod which has no .pm file.
| -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"; } |