diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-04 04:42:25 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-04 04:42:25 +0000 |
| commit | b89fed5ff1fc43a68f98ebc06fd23230eb6697a8 (patch) | |
| tree | 36a5b4bd2d82326f1b35dc0f697cea5b0e3a1a36 /pp.c | |
| parent | e36f48ebb7060aae39976a966a13100fba5c0df0 (diff) | |
| download | perl-b89fed5ff1fc43a68f98ebc06fd23230eb6697a8.tar.gz | |
make uninitialized value warnings report opcode
p4raw-id: //depot/perl@4641
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -264,7 +264,7 @@ PP(pp_rv2gv) PL_op->op_private & HINT_STRICT_REFS) DIE(aTHX_ PL_no_usym, "a symbol"); if (ckWARN(WARN_UNINITIALIZED)) - Perl_warner(aTHX_ WARN_UNINITIALIZED, PL_warn_uninit); + report_uninit(); RETSETUNDEF; } sym = SvPV(sv, n_a); @@ -320,7 +320,7 @@ PP(pp_rv2sv) PL_op->op_private & HINT_STRICT_REFS) DIE(aTHX_ PL_no_usym, "a SCALAR"); if (ckWARN(WARN_UNINITIALIZED)) - Perl_warner(aTHX_ WARN_UNINITIALIZED, PL_warn_uninit); + report_uninit(); RETSETUNDEF; } sym = SvPV(sv, n_a); |