diff options
| -rw-r--r-- | ext/XS/APItest/t/svpeek.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ext/XS/APItest/t/svpeek.t b/ext/XS/APItest/t/svpeek.t index 528beb7c57..3afb039ff8 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 |