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.
