Fix error messages and error codes.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/metas/perl b/lib/metas/perl
index ba2cfa1..df6fc9c 100755
--- a/lib/metas/perl
+++ b/lib/metas/perl
@@ -7,7 +7,7 @@ use File::Fetch;
 use IO::Handle; # for autoflush
 use Cwd;
 
-my $PROG = 'perl';
+my $PROG = 'metas/perl';
 
 sub err
 {
@@ -73,7 +73,7 @@ sub main
 	my ($realname, $cpath) = matchdist($dist);
 	unless($realname){
 		print STDERR "$PROG: failed to find perl dist similar to $dist\n";
-		exit 1;
+		return 2;
 	}
 	fetchdist($cpath);