Change 11545 by jhi@alpha on 2001/08/02 00:48:55
Subject: Re: [PATCH pp_ctl.c] proposed Windows safe-guard
From: Doug MacEachern <[EMAIL PROTECTED]>
Date: Wed, 1 Aug 2001 18:34:44 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#420 edit
Differences ...
==== //depot/perl/op.c#420 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Wed Aug 1 19:00:05 2001
+++ perl/op.c Wed Aug 1 19:00:05 2001
@@ -3279,7 +3279,10 @@
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);
End of Patch.
