From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 27 Sep 2008 09:27:59 +0000 (+0000)
Subject: $? is PVLV on VMS (and actually, anywhere else where COMPLEX_STATUS is
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=35f998ddd1e1665f7d0899ae3e50f9262c59d848;p=p5sagit%2Fp5-mst-13.2.git

$? is PVLV on VMS (and actually, anywhere else where COMPLEX_STATUS is
defined).

p4raw-id: //depot/perl@34433
---

diff --git a/ext/XS/APItest/t/svpeek.t b/ext/XS/APItest/t/svpeek.t
index 528beb7..3afb039 100644
--- a/ext/XS/APItest/t/svpeek.t
+++ b/ext/XS/APItest/t/svpeek.t
@@ -30,7 +30,12 @@ $| = 1;
   is (DPeek ($=),    'PVMG()',			'$=');
   is (DPeek ($-),    'PVMG()',			'$-');
 like (DPeek ($!), qr'^PVMG\("',			'$!');
+if ($^O eq 'VMS') {
+  # VMS defines COMPLEX_STATUS and upgrades $? to PVLV
+  is (DPeek ($?),    'PVLV()',			'$?');
+} else {
   is (DPeek ($?),    'PVMG()',			'$?');
+}
   is (DPeek ($|),    'PVMG(1)',			'$|');
 
   "abc" =~ m/(b)/;	# Don't know why these magic vars have this content