allow #pragma tolerant for apps that can't be as strict as silvan would like

1 files changed, 4 insertions, 1 deletions

diff --git a/lib/prep/prep.pl b/lib/prep/prep.pl
index efe08d1..a0b4450 100644
--- a/lib/prep/prep.pl
+++ b/lib/prep/prep.pl
@@ -21,6 +21,7 @@
 # knows XY) combined flag prefixes
 # knows "#pragma or" to apply OR instead of AND with combined-flag-prefixes
 # knows '#pragma keephash' to allow lines with leading hash sign
+# knows '#pragma tolerant' to ignore comments that look like directive calls
 #
 # dont be surprised, this code happens to still be perl4 compliant
 
@@ -37,6 +38,7 @@ $block = 0;
 $level = 0;
 
 $keephash = 0;
+$tolerant = 0;
 my @out;
 
 ## PUBLIC FUNCTIONS
@@ -241,6 +243,7 @@ sub pragma {
         $OR = 0 if /\bAND\b/io;
         $OR = 1 if /\bOR\b/io;
         $keephash = 1 if /\bKEEPHASH\b/io;
+        $tolerant = 1 if /\bTOLERANT\b/io;
 }
 sub require {
         local($x) = @_;
@@ -301,7 +304,7 @@ sub interpret {
 
         my $func = "do_$cmd";
         unless (defined &$func) {
-                die "unrecognized $cmd directive";
+                print STDERR "*** Unrecognized $cmd directive\n" unless $tolerant;
                 return;
         }
         my $ret;