preps return 100 when they can't find matches.

1 files changed, 2 insertions, 2 deletions

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
 		}