From 96e176bf068724d05d4927c116d41d2f78a2560d Mon Sep 17 00:00:00 2001
From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Fri, 19 Oct 2001 13:45:23 -0400
Subject: vmsish fix, ieee rand() cleanup Message-Id:
 <011019174427.d749b@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@12513
---
 pp_sys.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'pp_sys.c')

diff --git a/pp_sys.c b/pp_sys.c
index 155872846d..ea35136f8e 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -433,6 +433,9 @@ PP(pp_die)
     SV *tmpsv;
     STRLEN len;
     bool multiarg = 0;
+#ifdef VMS
+    VMSISH_HUSHED  = VMSISH_HUSHED || (PL_op->op_private & OPpHUSH_VMSISH);
+#endif
     if (SP - MARK != 1) {
 	dTARGET;
 	do_join(TARG, &PL_sv_no, MARK, SP);
-- 
cgit v1.2.1