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_hot.c | |
| parent | e36f48ebb7060aae39976a966a13100fba5c0df0 (diff) | |
| download | perl-b89fed5ff1fc43a68f98ebc06fd23230eb6697a8.tar.gz | |
make uninitialized value warnings report opcode
p4raw-id: //depot/perl@4641
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -459,7 +459,7 @@ PP(pp_rv2av) PL_op->op_private & HINT_STRICT_REFS) DIE(aTHX_ PL_no_usym, "an ARRAY"); if (ckWARN(WARN_UNINITIALIZED)) - Perl_warner(aTHX_ WARN_UNINITIALIZED, PL_warn_uninit); + report_uninit(); if (GIMME == G_ARRAY) { (void)POPs; RETURN; @@ -559,7 +559,7 @@ PP(pp_rv2hv) PL_op->op_private & HINT_STRICT_REFS) DIE(aTHX_ PL_no_usym, "a HASH"); if (ckWARN(WARN_UNINITIALIZED)) - Perl_warner(aTHX_ WARN_UNINITIALIZED, PL_warn_uninit); + report_uninit(); if (GIMME == G_ARRAY) { SP--; RETURN; |