From 5479ee241bff33345317e81d8b5917cdb73085e2 Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Sun, 20 Nov 2011 10:07:05 -0500
Subject: Fix error messages and error codes.

---
 lib/metas/perl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/metas')

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);
 
-- 
cgit v1.2.3-24-g4f1b