diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2003-05-07 08:27:07 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-08 18:12:46 +0000 |
| commit | 126c71c82576d5dc652db25ca9e3f8e18442c4fd (patch) | |
| tree | e2790a78faaa94be96e8fcce8035cddddae1602e /t/op | |
| parent | 86e5a81e88dbe10bf1c195d6ca6fefab8bfafc17 (diff) | |
| download | perl-126c71c82576d5dc652db25ca9e3f8e18442c4fd.tar.gz | |
Re: [perl #17718] %tiedhash in bool context doesn't check if hash is empty
Message-ID: <7gYu+gzkgaFU092yn@efn.org>
p4raw-id: //depot/perl@19452
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/magic.t | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 3279e1e4ea..f48422b2e3 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -316,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 $! |