Include variable names in "Use of uninitialized value" warnings

p4raw-id: //depot/perl@22741

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 760e8f1329..98e7204768 100644
--- a/doio.c
+++ b/doio.c
@@ -1270,7 +1270,7 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
     switch (SvTYPE(sv)) {
     case SVt_NULL:
 	if (ckWARN(WARN_UNINITIALIZED))
-	    report_uninit();
+	    report_uninit(sv);
 	return TRUE;
     case SVt_IV:
 	if (SvIOK(sv)) {