From: Doug MacEachern <dougm@covalent.net>
Date: Wed, 1 Aug 2001 18:34:44 +0000 (-0700)
Subject: Re: [PATCH pp_ctl.c] proposed Windows safe-guard
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d04f2e46d5d204ddae789f27eea5861425e8f34e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);