diff options
author | Justin Davis <jrcd83@gmail.com> | 2011-09-22 16:15:53 +0200 |
---|---|---|
committer | Justin Davis <jrcd83@gmail.com> | 2011-09-22 16:15:53 +0200 |
commit | 91cbac4f9f8391ff277b813c28aac2cc8b9b522f (patch) | |
tree | b35912d0ca751ace25a2698e8b9dbabed66ebb3c | |
parent | 1a68dfc2b2ec05bf0eaa3330e398fa77f7a1c726 (diff) | |
download | genpkg-91cbac4f9f8391ff277b813c28aac2cc8b9b522f.tar.gz genpkg-91cbac4f9f8391ff277b813c28aac2cc8b9b522f.tar.xz |
Check to see if packages are for App::foo modules.
-rwxr-xr-x | bin/metas/perl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bin/metas/perl b/bin/metas/perl index a4ace7e..b601746 100755 --- a/bin/metas/perl +++ b/bin/metas/perl @@ -58,7 +58,8 @@ sub main { my $pkg = shift or die "Usage: $PROG [package name]\n"; my $dist = $pkg; - return 1 unless $dist =~ s/^perl-// > 0; + + $dist = "app-$dist" if $dist =~ s/^perl-// == 0; STDERR->autoflush(1); my ($realname, $cpath) = distsearch($dist); |