Check to see if packages are for App::foo modules.

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);