From 760ac839baf413929cd31cc32ffd6dba6b781a81 Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@sems.com>
Date: Sat, 10 Aug 1996 15:24:58 +0000
Subject: perl 5.003_02: [no incremental changelog available]

---
 doop.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'doop.c')

diff --git a/doop.c b/doop.c
index 85146bf6f6..b7c220a290 100644
--- a/doop.c
+++ b/doop.c
@@ -320,7 +320,7 @@ register SV **sarg;
 	    /* end of switch, copy results */
 	    *t = ch;
 	    if (xs == buf && xlen >= sizeof(buf)) {	/* Ooops! */
-		fputs("panic: sprintf overflow - memory corrupted!\n",stderr);
+		PerlIO_puts(PerlIO_stderr(),"panic: sprintf overflow - memory corrupted!\n");
 		my_exit(1);
 	    }
 	    SvGROW(sv, SvCUR(sv) + (f - s) + xlen + 1 + pre + post);
-- 
cgit v1.2.1