X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.h;h=2f302189782fd2779d49d755b4e8ae20097e20df;hb=7284b4ab7ff638e1d3459e352767847bc6c9e7ff;hp=2b4465c6016b59709d7ce08db3b05860768a604b;hpb=d6083e444522cedf943784098e5c0b0c01e3c3e1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.h b/perl.h
index 2b4465c..2f30218 100644
--- a/perl.h
+++ b/perl.h
@@ -1652,7 +1652,7 @@ typedef pthread_key_t	perl_key;
 #ifdef VMS
 #   define STATUS_NATIVE	PL_statusvalue_vms
 #   define STATUS_NATIVE_EXPORT \
-	((I32)PL_statusvalue_vms == -1 ? 44 : PL_statusvalue_vms)
+	(((I32)PL_statusvalue_vms == -1 ? 44 : PL_statusvalue_vms) | (VMSISH_HUSHED ? 0x10000000 : 0))
 #   define STATUS_NATIVE_SET(n)						\
 	STMT_START {							\
 	    PL_statusvalue_vms = (n);					\