perlcc: exit on missing compile-time module #445

rurban · Nov 1, 2022 · 13a26fc · 13a26fc
1 parent 9e1173c
commit 13a26fc
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/script/perlcc.PL b/script/perlcc.PL
@@ -465,6 +465,9 @@ sub compile_byte {
     } else {
 	my @error = grep { !/^$Input syntax OK$/o } @$error_r;
 	@error = grep { !/^No package specified for compilation, assuming main::$/o } @error;
+        if (grep { /Can't locate \S+ in \@INC \(/ } @error) {
+	    die "$0: Missing Perl modules\n@error";
+	}
 	warn "$0: Unexpected compiler output\n@error" if @error and opt('v')<5;
 	warn "@error" if @error and opt('v')>4;
     }
@@ -590,6 +593,9 @@ sub compile_cstyle {
         if (opt('check')) {
             print "@error" if @error;
         } else {
+            if (grep { /Can't locate \S+ in \@INC \(/ } @error) {
+	        die "$0: Missing Perl modules\n@error";
+            }
             warn "$0: Unexpected compiler output\n@error" if @error and opt('v')<5;
             warn "@error" if @error and opt('v')>4;
         }