Silence irrelevant stderr output from op/magic.t

Some 'set' commands in this test are intended to verify that an environment
variable is not set, which causes the command to send a warning message to
stderr.

diff --git a/t/op/magic.t b/t/op/magic.t
index 854790d..d06fcaa 100644 (file)
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -72,7 +72,7 @@ sub env_is {
        require Win32;
        my $cp = Win32::GetConsoleOutputCP();
        Win32::SetConsoleOutputCP(Win32::GetACP());
-        (my $set = `set $key`) =~ s/\r\n$/\n/;
+        (my $set = `set $key 2>nul`) =~ s/\r\n$/\n/;
        Win32::SetConsoleOutputCP($cp);
         like $set, qr/^(?:\Q$key\E=)?\Q$val\E$/, $desc;
     } elsif ($Is_VMS) {