diff options
Diffstat (limited to 'preps/perl.d/perl-dist')
| -rwxr-xr-x | preps/perl.d/perl-dist | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/preps/perl.d/perl-dist b/preps/perl.d/perl-dist index 4dd0d84..dd1413c 100755 --- a/preps/perl.d/perl-dist +++ b/preps/perl.d/perl-dist @@ -18,6 +18,7 @@ my %CoreMods = loadcore(); package Convert; *DBG = *main::DBG; +*vardir = *main::vardir; use LWP::UserAgent qw(); use YAML::XS qw(); @@ -298,9 +299,9 @@ sub _distsofmods return () if(@mods == 0); @mods = _nocore(@mods); - my $var = _vardir(); + my $var = vardir(); open my $fh, '<', "$var/cpan.mods" - or die "$PROG: failed to open $var/cpanmods: $!"; + or die "$PROG: failed to open $var/cpan.mods: $!"; my %mods = map { ($_ => 1) } @mods; my %dists; @@ -337,12 +338,6 @@ sub _nocore return @mods; } -sub _vardir -{ - return $ENV{'PKGVAR'} - or die "$PROG: PKGVAR env variable is unset\n"; -} - #----------------------------------------------------------------------------- package main; @@ -595,9 +590,15 @@ sub _readmedesc return undef; } +sub vardir +{ + return $ENV{'PKGVAR'} + or die "$PROG: PKGVAR env variable is unset\n"; +} + sub loadcore { - my $cmpath = _vardir() . '/perlcore.mods'; + my $cmpath = vardir() . '/perlcore.mods'; unless(-f $cmpath){ print STDERR <<"END_ERR"; $PROG: error: $cmpath is missing. |