Add Encode's META.yml.

[p5sagit/p5-mst-13.2.git] / t / op / magic.t

diff --git a/t/op/magic.t b/t/op/magic.t
index 8f598a1..f48422b 100755 (executable)
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -124,6 +124,7 @@ END
     }
 END
     close CMDPIPE;
+    $? >>= 8 if $^O eq 'VMS'; # POSIX status hiding in 2nd byte
     print $? & 0xFF ? "ok 6\n" : "not ok 6\n";
 
     $test += 4;
@@ -315,16 +316,20 @@ else {
     skip('no caseless %ENV support') for 1..4;
 }
 
+{
+   no warnings 'void';
+
 # Make sure Errno hasn't been prematurely autoloaded
 
-ok !defined %Errno::;
+   ok !defined %Errno::;
 
 # Test auto-loading of Errno when %! is used
 
-ok scalar eval q{
-   my $errs = %!;
-   defined %Errno::;
-}, $@;
+   ok scalar eval q{
+      %!;
+      defined %Errno::;
+   }, $@;
+}
 
 
 # Make sure that Errno loading doesn't clobber $!