diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-09-27 09:27:59 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-09-27 09:27:59 +0000 |
| commit | 35f998ddd1e1665f7d0899ae3e50f9262c59d848 (patch) | |
| tree | 41f882df2fbeb454ed129248410c4036ef884492 /ext | |
| parent | 9253672d50e6fbfe60cc73666d91a174b588b7e4 (diff) | |
| download | perl-35f998ddd1e1665f7d0899ae3e50f9262c59d848.tar.gz | |
$? is PVLV on VMS (and actually, anywhere else where COMPLEX_STATUS is
defined).
p4raw-id: //depot/perl@34433
Diffstat (limited to 'ext')
| -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 |