diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2004-01-18 04:59:55 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-17 21:25:08 +0000 |
| commit | bac662eeb2cdce47175319fe613f5779e780f517 (patch) | |
| tree | 5edd9c93a90f80a8022e07d88d43773b016b6271 /t | |
| parent | e0767201fcaa7af00aab34d9bca69adf68de6451 (diff) | |
| download | perl-bac662eeb2cdce47175319fe613f5779e780f517.tar.gz | |
Re: open/or inconsistency
Message-Id: <20040117195729.623A.BQW10602@nifty.com>
(plus a test.)
Don't produce the warning for constructs like
open my $fh, $file or die;
p4raw-id: //depot/perl@22170
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/op | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/lib/warnings/op b/t/lib/warnings/op index e06d251eaa..486a00aa9a 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -584,6 +584,7 @@ BEGIN not safe after errors--compilation aborted at - line 18. use warnings 'parenthesis' ; my $a, $b = (1,2); my @foo,%bar, $quux; # there's a TAB here +my $x, $y or print; no warnings 'parenthesis' ; my $c, $d = (1,2); EXPECT |