diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-26 12:53:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-26 12:53:16 +0000 |
| commit | be708cc0141c68546a70e3d19f68ad41bef15add (patch) | |
| tree | 5152acd08116f8ae5a5d576f678fde267a91bcb7 /util.c | |
| parent | d1f145d342e491f3bdc2d057c6771a7a5baba14a (diff) | |
| download | perl-be708cc0141c68546a70e3d19f68ad41bef15add.tar.gz | |
Integrate macperl changes from Chris Nandor:
12192 11817 11815 11813 11778 11775
Update CPAN.pm to work with new Mac::BuildTools instead
of ExtUtils::MM_MacOS "orphan" functions
Fix test
Make syntax check report in MPW style, fix tests
to use Mac::err=unix to get normal-style error
messages.
More module and test ports from Thomas Wegner et al
Fix open of /dev/null for Mac OS
Allow for platforms to override formatting of errors
on output from Matthias Neeracher (core files)
p4raw-id: //depot/perl@12235
p4raw-edited: from //depot/maint-5.6/macperl@12234 'edit in'
lib/File/DosGlob.pm t/op/magic.t (@11007..)
p4raw-integrated: from //depot/maint-5.6/macperl@12234 'copy in'
lib/File/Spec/Mac.pm lib/File/Temp.pm (@11007..) 'merge in'
ext/File/Glob/Glob.pm lib/CPAN.pm (@11007..)
ext/File/Glob/bsd_glob.c t/base/term.t (@11185..)
t/op/runlevel.t (@11198..) t/pod/testp2pt.pl (@11500..)
p4raw-integrated: from //depot/maint-5.6/macperl@11815 'merge in'
perl.c (@11806..)
p4raw-integrated: from //depot/maint-5.6/macperl@11775 'merge in'
perl.h pp_ctl.c util.c (@11007..)
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1234,7 +1234,7 @@ Perl_vcroak(pTHX_ const char* pat, va_list *args) #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; @@ -1327,7 +1327,7 @@ Perl_vwarn(pTHX_ const char* pat, va_list *args) { 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]=='!' @@ -1442,7 +1442,7 @@ Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args) } { 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(); @@ -1479,7 +1479,7 @@ Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args) } { 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]=='!' |