Re: [PATCH pp_ctl.c] proposed Windows safe-guard

Message-ID: <Pine.LNX.4.21.0108011830080.8991-100000@mako.covalent.net>

p4raw-id: //depot/perl@11545

diff --git a/op.c b/op.c
index c542cbf..bda2ae7 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3279,7 +3279,10 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *id, OP *arg)
                                   newSVOP(OP_METHOD_NAMED, 0, meth)));
     }
 
-    if (ckWARN(WARN_MISC) && imop && SvPOK(packsv = ((SVOP*)id)->op_sv)) {
+    if (ckWARN(WARN_MISC) &&
+        imop && (imop != arg) && /* no warning on use 5.0; or explicit () */
+        SvPOK(packsv = ((SVOP*)id)->op_sv))
+    {
         /* BEGIN will free the ops, so we need to make a copy */
         packlen = SvCUR(packsv);
         packname = savepvn(SvPVX(packsv), packlen);