diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-14 15:14:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-14 15:14:36 +0000 |
| commit | fa01e09300100a2f35e7403a33b48963bfdcb712 (patch) | |
| tree | 5475c5426b27bb1d9cbf69f1ecdbf45a6b762490 /t/lib | |
| parent | c4a2fd1a6f3d0c03ef36d62769626507e9118be2 (diff) | |
| download | perl-fa01e09300100a2f35e7403a33b48963bfdcb712.tar.gz | |
Make the new warning report undef constants as undef
p4raw-id: //depot/perl@33309
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/op | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/lib/warnings/op b/t/lib/warnings/op index edd27416dc..9740e39b92 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -531,8 +531,9 @@ use warnings 'void' ; 7 ; # OP_CONST "x" . "y"; # optimized to OP_CONST 2 + 2; # optimized to OP_CONST -5 || print "bad\n"; # test OPpCONST_SHORTCIRCUIT use constant U => undef; +U; +5 || print "bad\n"; # test OPpCONST_SHORTCIRCUIT print "boo\n" if U; # test OPpCONST_SHORTCIRCUIT $[ = 2; # should not warn no warnings 'void' ; @@ -545,6 +546,7 @@ Useless use of a constant (abc) in void context at - line 3. Useless use of a constant (7) in void context at - line 4. Useless use of a constant (xy) in void context at - line 5. Useless use of a constant (4) in void context at - line 6. +Useless use of a constant (undef) in void context at - line 8. ######## # op.c # |