PERFORCE change 11775 for review

Change 11775 by pudge@pudge-mobile on 2001/08/29 01:59:32

	Allow for platforms to override formatting of errors
	on output from Matthias Neeracher (core files)

Affected files ...

... //depot/maint-5.6/macperl/perl.h#2 edit
... //depot/maint-5.6/macperl/pp_ctl.c#2 edit
... //depot/maint-5.6/macperl/util.c#2 edit

Differences ...

==== //depot/maint-5.6/macperl/perl.h#2 (text) ====
Index: perl/perl.h
--- perl/perl.h.~1~	Tue Aug 28 20:15:05 2001
+++ perl/perl.h	Tue Aug 28 20:15:05 2001
@@ -1686,6 +1686,10 @@
 #  define PERL_SYS_INIT3(argvp,argcp,envp) PERL_SYS_INIT(argvp,argcp)
 #endif
 
+#ifndef PERL_WRITE_MSG_TO_CONSOLE
+#  define PERL_WRITE_MSG_TO_CONSOLE(io, msg, len) PerlIO_write(io, msg, len)
+#endif
+
 #ifndef MAXPATHLEN
 #  ifdef PATH_MAX
 #    ifdef _POSIX_PATH_MAX

==== //depot/maint-5.6/macperl/pp_ctl.c#2 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c.~1~	Tue Aug 28 20:15:05 2001
+++ perl/pp_ctl.c	Tue Aug 28 20:15:05 2001
@@ -1438,7 +1438,7 @@
 #endif
 	PerlIO *serr = Perl_error_log;
 
-	PerlIO_write(serr, message, msglen);
+	PERL_WRITE_MSG_TO_CONSOLE(serr, message, msglen);
 	(void)PerlIO_flush(serr);
 #ifdef USE_SFIO
 	errno = e;

==== //depot/maint-5.6/macperl/util.c#2 (text) ====
Index: perl/util.c
--- perl/util.c.~1~	Tue Aug 28 20:15:05 2001
+++ perl/util.c	Tue Aug 28 20:15:05 2001
@@ -1714,7 +1714,7 @@
 #endif
 	PerlIO *serr = Perl_error_log;
 
-	PerlIO_write(serr, message, msglen);
+	PERL_WRITE_MSG_TO_CONSOLE(serr, message, msglen);
 	(void)PerlIO_flush(serr);
 #ifdef USE_SFIO
 	errno = e;
@@ -1807,7 +1807,7 @@
     {
 	PerlIO *serr = Perl_error_log;
 
-	PerlIO_write(serr, message, msglen);
+	PERL_WRITE_MSG_TO_CONSOLE(serr, message, msglen);
 #ifdef LEAKTEST
 	DEBUG_L(*message == '!' 
 		? (xstat(message[1]=='!'
@@ -1922,7 +1922,7 @@
         }
 	{
 	    PerlIO *serr = Perl_error_log;
-	    PerlIO_write(serr, message, msglen);
+	    PERL_WRITE_MSG_TO_CONSOLE(serr, message, msglen);
 	    (void)PerlIO_flush(serr);
 	}
         my_failure_exit();
@@ -1959,7 +1959,7 @@
         }
 	{
 	    PerlIO *serr = Perl_error_log;
-	    PerlIO_write(serr, message, msglen);
+	    PERL_WRITE_MSG_TO_CONSOLE(serr, message, msglen);
 #ifdef LEAKTEST
 	    DEBUG_L(*message == '!' 
 		? (xstat(message[1]=='!'
End of Patch.