summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2007-12-23 03:56:08 -0800
committerDave Mitchell <davem@fdisolutions.com>2008-04-25 02:39:50 +0000
commitb7a8be772af6f5c64d380fc84a58fa960926e17c (patch)
tree449fc24da95fae75fd3c63c1e4526270180722d4 /op.c
parent7d5a38cba25181bf0f2e3c4a2cd1028ddb76f6b9 (diff)
downloadperl-b7a8be772af6f5c64d380fc84a58fa960926e17c.tar.gz
Allow the 'smart match in void context' warning into 5.10.1,
as we're going to break smart-matching backcompat anyway... Integrate: [ 32876] Subject: Re: grep and smart match should warn in void context Message-ID: <476EBD58.9050505@pobox.com> [ 32888] Let's remove the grep in void context warning. p4raw-link: @32888 on //depot/perl: f5df47822a9b069b4d7a24dd025c8f27786c45fa p4raw-link: @32876 on //depot/perl: 74295f0bd81452f77ee575c561ad4d9e83dca07d p4raw-id: //depot/maint-5.10/perl@33743 p4raw-integrated: from //depot/perl@32888 'edit in' op.c (@32876..) p4raw-integrated: from //depot/perl@32876 'ignore' t/lib/warnings/op (@31812..)
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/op.c b/op.c
index 184d90a192..155db4f2c7 100644
--- a/op.c
+++ b/op.c
@@ -940,6 +940,7 @@ Perl_scalarvoid(pTHX_ OP *o)
case OP_GVSV:
case OP_WANTARRAY:
case OP_GV:
+ case OP_SMARTMATCH:
case OP_PADSV:
case OP_PADAV:
case OP_PADHV:
@@ -1007,6 +1008,7 @@ Perl_scalarvoid(pTHX_ OP *o)
case OP_PROTOTYPE:
func_ops:
if (!(o->op_private & (OPpLVAL_INTRO|OPpOUR_INTRO)))
+ /* Otherwise it's "Useless use of grep iterator" */
useless = OP_DESC(o);
break;