From 29489e7c741791873ea464cb7e13d2b5a19577a7 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 23 Apr 2004 20:43:02 +0000
Subject: Include variable names in "Use of uninitialized value" warnings

p4raw-id: //depot/perl@22741
---
 pp_hot.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pp_hot.c')

diff --git a/pp_hot.c b/pp_hot.c
index 452c3a91b8..d02bf96d0e 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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;
-- 
cgit v1.2.1