svpeek.t: $? is localized now.

So it's no longer upgraded to PVLV on VMS like it would be if it had magic from COMPLEX_STATUS. This is a follow-up to b451492.
Perl · Jun 23, 2016 · 9d0d763 · 9d0d763
1 parent 8bbcf42
commit 9d0d763
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/ext/XS-APItest/t/svpeek.t b/ext/XS-APItest/t/svpeek.t
@@ -23,12 +23,8 @@ $| = 1;
   my $foo = "$!";
 like (DPeek ($!), qr'^PVMG\("',			'$!');
 
-if ($^O eq 'VMS') {
-    local $?; # Reset anything Test::* has done to it.
-  # VMS defines COMPLEX_STATUS and upgrades $? to PVLV
-  is (DPeek ($?),    'PVLV()',			'$?');
-} else {
-    local $?; # Reset anything Test::* has done to it.
+{
+  local $?; # Reset anything Test::* has done to it.
   is (DPeek ($?),    'PVMG()',			'$?');
 }
   is (DPeek ($|),    'PVMG(1)',			'$|');