diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-04-23 20:43:02 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-04-23 20:43:02 +0000 |
| commit | 29489e7c741791873ea464cb7e13d2b5a19577a7 (patch) | |
| tree | 416b7c61173edafe7ef2746b86383c7663652cdc /pp_hot.c | |
| parent | e22ea7cc8db19b7765901c13e81b890baf3405da (diff) | |
| download | perl-29489e7c741791873ea464cb7e13d2b5a19577a7.tar.gz | |
Include variable names in "Use of uninitialized value" warnings
p4raw-id: //depot/perl@22741
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -725,7 +725,7 @@ PP(pp_rv2av) PL_op->op_private & HINT_STRICT_REFS) DIE(aTHX_ PL_no_usym, "an ARRAY"); if (ckWARN(WARN_UNINITIALIZED)) - report_uninit(); + report_uninit(sv); if (GIMME == G_ARRAY) { (void)POPs; RETURN; @@ -856,7 +856,7 @@ PP(pp_rv2hv) PL_op->op_private & HINT_STRICT_REFS) DIE(aTHX_ PL_no_usym, "a HASH"); if (ckWARN(WARN_UNINITIALIZED)) - report_uninit(); + report_uninit(sv); if (gimme == G_ARRAY) { SP--; RETURN; |