From 43a65c285fbf2e4cbdd04646c4bf348523419825 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Fri, 13 Feb 2009 15:26:00 -0600 Subject: Handle uninitialized interpreter when performing vmsish pragma checks. --- vms/vmsish.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/vms/vmsish.h b/vms/vmsish.h index 3c5b823217..b70d42fce7 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) -- cgit v1.2.1