diff options
| author | Justin Davis <jrcd83@gmail.com> | 2012-02-05 16:43:44 +0100 |
|---|---|---|
| committer | Justin Davis <jrcd83@gmail.com> | 2012-02-05 16:43:44 +0100 |
| commit | 30669532cbd4439ed731778c08c8636491f8fc6e (patch) | |
| tree | 7a6737f6df21ebdceee9502c30aac9e9541df528 | |
| parent | a2fa094dd4635ff781f6a4857af6ba29071afc44 (diff) | |
| download | genpkg-30669532cbd4439ed731778c08c8636491f8fc6e.tar.gz genpkg-30669532cbd4439ed731778c08c8636491f8fc6e.tar.xz | |
Use new ~/.genpkg dir in scrapecore.
Reads ~/.genpkg/var/cpanmods by default now.
| -rwxr-xr-x | metas/perl.d/scrapecore | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/metas/perl.d/scrapecore b/metas/perl.d/scrapecore index 2e1aba3..25f5c80 100755 --- a/metas/perl.d/scrapecore +++ b/metas/perl.d/scrapecore @@ -206,9 +206,9 @@ sub _delmatch sub coreonly { my %mods = map { @$_ } @_; - my $var = $ENV{'PKGVAR'} || "$ENV{'HOME'}/var"; + my $var = $ENV{'PKGVAR'} || "$ENV{'HOME'}/.genpkg/var"; my $path = "$var/cpanmods"; - open(my $if, '<', $path) or die("open $path: $!"); + open(my $if, '<', $path) or die("open $path failed: $!"); my @dists; local $/ = qq{\n\n}; |