diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-08-01 11:34:44 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-02 00:48:55 +0000 |
| commit | d04f2e46d5d204ddae789f27eea5861425e8f34e (patch) | |
| tree | 68488c36c605b1db8d1dd5fa169d440552a4d3d4 /op.c | |
| parent | a07e034d5b7121cacfc8c4af9b2736c3d2ab2af3 (diff) | |
| download | perl-d04f2e46d5d204ddae789f27eea5861425e8f34e.tar.gz | |
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
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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); |