diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 01:24:25 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 01:24:25 +0000 |
| commit | f248d07102861fd4d0819cc0b602f81105bc562c (patch) | |
| tree | 56fb766b87f14a99fd56b491dc6fa138a5c63e0f /op.c | |
| parent | 3e3318e754fa4289ad1c682811dbe6a31cd59e26 (diff) | |
| download | perl-f248d07102861fd4d0819cc0b602f81105bc562c.tar.gz | |
fixes for logical bugs in the lexwarn patch; other tweaks to avoid
type mismatch problems
p4raw-id: //depot/perl@3658
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -3840,8 +3840,7 @@ Perl_cv_ckproto(pTHX_ CV *cv, GV *gv, char *p) { dTHR; - if (((!p != !SvPOK(cv)) || (p && strNE(p, SvPVX(cv)))) && - ckWARN_d(WARN_UNSAFE) ) { + if (((!p != !SvPOK(cv)) || (p && strNE(p, SvPVX(cv)))) && ckWARN_d(WARN_UNSAFE)) { SV* msg = sv_newmortal(); SV* name = Nullsv; @@ -3928,8 +3927,10 @@ Perl_newSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *block) maximum a prototype before. */ if (SvTYPE(gv) > SVt_NULL) { if (!SvPOK((SV*)gv) && !(SvIOK((SV*)gv) && SvIVX((SV*)gv) == -1) - && ckWARN_d(WARN_UNSAFE)) + && ckWARN_d(WARN_UNSAFE)) + { Perl_warner(aTHX_ WARN_UNSAFE, "Runaway prototype"); + } cv_ckproto((CV*)gv, NULL, ps); } if (ps) @@ -4351,8 +4352,6 @@ OP * Perl_oopsHV(pTHX_ OP *o) { dTHR; - - dTHR; switch (o->op_type) { case OP_PADSV: |