From 91cbac4f9f8391ff277b813c28aac2cc8b9b522f Mon Sep 17 00:00:00 2001 From: Justin Davis Date: Thu, 22 Sep 2011 10:15:53 -0400 Subject: Check to see if packages are for App::foo modules. --- bin/metas/perl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'bin/metas') 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); -- cgit v1.2.3-24-g4f1b