X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doio.c;h=98e7204768c3a811655e1a9e1fdf41ca5cdde66f;hb=66e2fd5444a96049971bab49da0a163e8fa5e52d;hp=7e13f1f6d0b9ddfc4a31e05bc7d79f4d82f4a1d2;hpb=c797f2d8bff201dfca87c4500d2948210cedc10b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doio.c b/doio.c
index 7e13f1f..98e7204 100644
--- a/doio.c
+++ b/doio.c
@@ -1,7 +1,7 @@
 /*    doio.c
  *
  *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- *    2000, 2001, 2002, 2003, by Larry Wall and others
+ *    2000, 2001, 2002, 2003, 2004, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -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)) {