From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 13 Feb 2009 21:26:00 +0000 (-0600)
Subject: Handle uninitialized interpreter when performing vmsish pragma checks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43a65c285fbf2e4cbdd04646c4bf348523419825;p=p5sagit%2Fp5-mst-13.2.git

Handle uninitialized interpreter when performing vmsish pragma checks.
---

diff --git a/vms/vmsish.h b/vms/vmsish.h
index 3c5b823..b70d42f 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -363,9 +363,9 @@
 #define NATIVE_HINTS		(PL_hints >> HINT_V_VMSISH)  /* used in op.c */
 
 #ifdef PERL_IMPLICIT_CONTEXT
-#  define TEST_VMSISH(h)	(my_perl && (PL_curcop->op_private & ((h) >> HINT_V_VMSISH)))
+#  define TEST_VMSISH(h)	(my_perl && PL_curcop && (PL_curcop->op_private & ((h) >> HINT_V_VMSISH)))
 #else
-#  define TEST_VMSISH(h)	(PL_curcop->op_private & ((h) >> HINT_V_VMSISH))
+#  define TEST_VMSISH(h)	(PL_curcop && (PL_curcop->op_private & ((h) >> HINT_V_VMSISH)))
 #endif
 #define VMSISH_STATUS	TEST_VMSISH(HINT_M_VMSISH_STATUS)
 #define VMSISH_TIME	TEST_VMSISH(HINT_M_VMSISH_TIME)