1 files changed, 1 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index 4a0edbbbd2..37e061a535 100644
--- a/doio.c
+++ b/doio.c
@@ -1026,7 +1026,7 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
 	{
 	    dTHR;
 	    if (ckWARN(WARN_UNINITIALIZED))
-		Perl_warner(aTHX_ WARN_UNINITIALIZED, PL_warn_uninit);
+		report_uninit();
 	}
 	return TRUE;
     case SVt_IV: