Cleanup pkg/dest when package is not found.

1 files changed, 3 insertions, 3 deletions

diff --git a/preps/perl b/preps/perl
index fe68323..5e88b06 100755
--- a/preps/perl
+++ b/preps/perl
@@ -82,9 +82,9 @@ sub main
 		if($guess){
 			return 100
 		}else{
-			## Return a hard error to prepkg if perl- package.
-			err(qq{failed to find perl dist similar to '$dist'});
-			return 1
+			## If its a perl- package tell prepkg to cleanup.
+			print STDERR qq{$PROG: failed to find perl dist similar to '$dist'\n};
+			return 101
 		}
 	}
 	fetchdist($cpath);