PERL_SIGNALS=unsafe enables the old unsafe/immediate signals.

p4raw-id: //depot/perl@18766

1 files changed, 9 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 866c9a8826..e603ffc18e 100644
--- a/perl.c
+++ b/perl.c
@@ -1394,6 +1394,15 @@ print \"  \\@INC:\\n    @INC\\n\";");
 	 }
     }
 
+    if ((s = PerlEnv_getenv("PERL_SIGNALS"))) {
+	 if (strEQ(s, "unsafe"))
+	      PL_signals |=  PERL_SIGNALS_UNSAFE_FLAG;
+	 else if (strEQ(s, "safe"))
+	      PL_signals &= ~PERL_SIGNALS_UNSAFE_FLAG;
+	 else
+	      Perl_croak(aTHX_ "PERL_SIGNALS illegal: \"%s\"", s);
+    }
+
     init_lexer();
 
     /* now parse the script */