Change 31805 by [EMAIL PROTECTED] on 2007/09/06 14:57:03
state $foo if 0 shouldn't warn. Spotted by Abigail.
Affected files ...
... //depot/perl/op.c#951 edit
Differences ...
==== //depot/perl/op.c#951 (text) ====
Index: perl/op.c
--- perl/op.c#950~31798~ 2007-09-06 02:18:41.000000000 -0700
+++ perl/op.c 2007-09-06 07:57:03.000000000 -0700
@@ -4269,6 +4269,7 @@
if ((o2->op_type == OP_PADSV || o2->op_type == OP_PADAV
|| o2->op_type == OP_PADHV)
&& o2->op_private & OPpLVAL_INTRO
+ && !(o2->op_private & OPpPAD_STATE)
&& ckWARN(WARN_DEPRECATED))
{
Perl_warner(aTHX_ packWARN(WARN_DEPRECATED),
End of Patch.
