diff options
Diffstat (limited to 'lib/metas/perl')
-rwxr-xr-x | lib/metas/perl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/metas/perl b/lib/metas/perl index 4d310a6..961084d 100755 --- a/lib/metas/perl +++ b/lib/metas/perl @@ -7,7 +7,8 @@ use File::Fetch; use IO::Handle; # for autoflush use Cwd; -my $PROG = 'metas/perl'; +my $PROG = 'perl'; +my %BADNAMES = ('perl-libwww' => 'libwww-perl'); sub err { @@ -65,12 +66,11 @@ sub fetchdist sub main { - my $pkg = shift or die "Usage: $PROG [package name]\n"; - my $dist = $pkg; + my $dist = shift or die "Usage: $PROG [package name]\n"; - my $forcechk; - if($dist =~ s/^perl-// == 0){ - $forcechk = 1; + if($BADNAMES{$dist}){ + $dist = $BADNAMES{$dist}; + }elsif($dist =~ s/^perl-// == 0){ $dist = "app-$dist"; } @@ -94,7 +94,7 @@ http://search.cpan.org/CPAN/authors/id/$cpath END_META - my $file = $cpath; $file =~ s{^.*/}{}; + my $file = $cpath; $file =~ s{.*/}{}; system('perl-dist', $file); return $?; } |