diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2013-02-20 13:28:46 +0000 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-02-20 13:28:46 +0000 |
| commit | 615e2f774517c03a3a6c4d123a812299d9465d74 (patch) | |
| tree | 5a5490fe3f69d000fd62b1502ba36f10386311a5 /t | |
| parent | efeca31ee17ce18e493c4afdda03b48ad5a518ce (diff) | |
| download | perl-615e2f774517c03a3a6c4d123a812299d9465d74.tar.gz | |
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.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/magic.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 854790d627..d06fcaa34d 100644 --- 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) { |