diff options
author | Stephen McCamant <smcc@mit.edu> | 1998-05-29 18:52:26 -0500 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-10 05:58:00 +0000 |
commit | 108ed793354cb72d90a06de859702b8d730ce020 (patch) | |
tree | 8fca3ea949b3ae6e471a69709a778a118a4313f9 /op.c | |
parent | a59f352269a39a940b3a5b3b7a80fc4b1e7e1305 (diff) | |
download | perl-108ed793354cb72d90a06de859702b8d730ce020.tar.gz |
Re: Uninitialised error from -M()
Message-Id: <m0yfdd4-000Eb2C@alias-2.pr.mcs.net>
p4raw-id: //depot/perl@1089
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4121,7 +4121,7 @@ ck_ftst(OP *o) if (o->op_flags & OPf_REF) return o; - if (o->op_flags & OPf_KIDS) { + if (o->op_flags & OPf_KIDS && cUNOPo->op_first->op_type != OP_STUB) { SVOP *kid = (SVOP*)cUNOPo->op_first; if (kid->op_type == OP_CONST && (kid->op_private & OPpCONST_BARE)) { |