2 files changed, 3 insertions, 3 deletions
diff --git a/bin/prepkg b/bin/prepkg
index 2fa387a..9d95a46 100755
--- a/bin/prepkg
+++ b/bin/prepkg
@@ -39,10 +39,10 @@ do
 	prepret=$?
 	
 	case "$prepret" in
+	100)	;; # loop
 	0)	basicmeta
 		exit 0 ;;
 	1)	err "$flav encountered an error" ;;
-	2)	;; # loop
 	*)	err "$flav returned error code $prepret" ;;
 	esac
 done
diff --git a/preps/perl b/preps/perl
index b17200c..fe68323 100755
--- a/preps/perl
+++ b/preps/perl
@@ -80,9 +80,9 @@ sub main
 	my ($realname, $cpath) = matchdist($dist);
 	unless($realname){
 		if($guess){
-			return 2
+			return 100
 		}else{
-			## Return a hard error to makepkgmeta if perl- package.
+			## Return a hard error to prepkg if perl- package.
 			err(qq{failed to find perl dist similar to '$dist'});
 			return 1
 		}