diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-05-26 04:34:11 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-26 13:39:52 +0000 |
| commit | a15cef0c498d0b84ecf118ac9b0a6f383dfcf79d (patch) | |
| tree | 8206f040d6dd469b392556385778120790796728 /vms/vmsish.h | |
| parent | 22c4a518db8a7c3e34c557402a6edb407a8f26b4 (diff) | |
| download | perl-a15cef0c498d0b84ecf118ac9b0a6f383dfcf79d.tar.gz | |
PerlIO for VMS
Message-Id: <a05100e0ab734816701a5@[172.16.52.1]>
p4raw-id: //depot/perl@10218
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 2eb8e93c5f..a1f76301a4 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -310,7 +310,7 @@ #define _ckvmssts_noperl(call) STMT_START { register unsigned long int __ckvms_sts; \ if (!((__ckvms_sts=(call))&1)) { \ set_errno(EVMSERR); set_vaxc_errno(__ckvms_sts); \ - fprintf(Perl_debug_log,"Fatal VMS error (status=%d) at %s, line %d", \ + fprintf(stderr,"Fatal VMS error (status=%d) at %s, line %d", \ __ckvms_sts,__FILE__,__LINE__); lib$signal(__ckvms_sts); } } STMT_END #ifdef VMS_DO_SOCKETS @@ -411,6 +411,7 @@ #ifndef DONT_MASK_RTL_CALLS +# define fwrite my_fwrite /* for PerlSIO_fwrite */ # define fdopen my_fdopen # define fclose my_fclose #endif @@ -774,7 +775,7 @@ unsigned long int Perl_do_aspawn (pTHX_ void *, void **, void **); unsigned long int Perl_do_spawn (pTHX_ char *); FILE * my_fdopen (int, const char *); int my_fclose (FILE *); -int my_fwrite (void *, size_t, size_t, FILE *); +int my_fwrite (const void *, size_t, size_t, FILE *); int Perl_my_flush (pTHX_ FILE *); struct passwd * Perl_my_getpwnam (pTHX_ char *name); struct passwd * Perl_my_getpwuid (pTHX_ Uid_t uid); |