summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorJustin Davis <jrcd83@gmail.com>2012-01-07 03:35:46 +0100
committerJustin Davis <jrcd83@gmail.com>2012-01-07 03:35:46 +0100
commit23b61cc4ac925c0139c3456c4672dc2d306af7fe (patch)
tree58e1e4aab819e17bff93b5315dd5a3e204834255 /lib
parentd10ff64ccc45afcfd26c50f16c81a37e77aeedb3 (diff)
downloadgenpkg-23b61cc4ac925c0139c3456c4672dc2d306af7fe.tar.gz
genpkg-23b61cc4ac925c0139c3456c4672dc2d306af7fe.tar.xz
Add name overrides for packages that bend the rules.
Diffstat (limited to 'lib')
-rwxr-xr-xlib/metas/perl10
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/metas/perl b/lib/metas/perl
index b53cd61..adb3b08 100755
--- a/lib/metas/perl
+++ b/lib/metas/perl
@@ -8,6 +8,7 @@ use IO::Handle; # for autoflush
use Cwd;
my $PROG = 'perl';
+my %BADNAMES = ('perl-libwww' => 'libwww-perl');
sub err
{
@@ -64,10 +65,13 @@ 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";
- $dist = "app-$dist" if($dist =~ s/^perl-// == 0);
+ if($BADNAMES{$dist}){
+ $dist = $BADNAMES{$dist};
+ }elsif($dist =~ s/^perl-// == 0){
+ $dist = "app-$dist";
+ }
STDERR->autoflush(1);
my ($realname, $cpath) = matchdist($dist);