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 /run.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 'run.c')
| -rw-r--r-- | run.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -39,8 +39,9 @@ Perl_runops_debug(pTHX) { #ifdef DEBUGGING dTHR; - if (!PL_op && ckWARN_d(WARN_DEBUGGING)) { - Perl_warner(aTHX_ WARN_DEBUGGING, "NULL OP IN RUN"); + if (!PL_op) { + if (ckWARN_d(WARN_DEBUGGING)) + Perl_warner(aTHX_ WARN_DEBUGGING, "NULL OP IN RUN"); return 0; } |