diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-24 05:51:53 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-24 05:51:53 +0000 |
| commit | c78749f2c1dc7ab348159cae5136d33e33ca5c90 (patch) | |
| tree | be5069dd42f2d820c341e32303553e0f73437248 /ext | |
| parent | 606974b21cdb98866563c221c06d21c01db0cf0d (diff) | |
| download | perl-c78749f2c1dc7ab348159cae5136d33e33ca5c90.tar.gz | |
ansify perlio.c, fix PerlIO-ish typos
p4raw-id: //depot/perl@3021
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/dl_beos.xs | 4 | ||||
| -rw-r--r-- | ext/DynaLoader/dl_cygwin32.xs | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/ext/DynaLoader/dl_beos.xs b/ext/DynaLoader/dl_beos.xs index 515d187260..42a27cb1f1 100644 --- a/ext/DynaLoader/dl_beos.xs +++ b/ext/DynaLoader/dl_beos.xs @@ -51,7 +51,7 @@ dl_load_file(filename, flags=0) ST(0) = sv_newmortal() ; if (bogo < 0) { SaveError("%s", strerror(bogo)); - fprintf(stderr, "load_add_on(%s) : %d (%s)\n", path, bogo, strerror(bogo)); + PerlIO_printf(PerlIO_stderr(), "load_add_on(%s) : %d (%s)\n", path, bogo, strerror(bogo)); } else { RETVAL = (void *) bogo; sv_setiv( ST(0), (IV)RETVAL); @@ -81,7 +81,7 @@ dl_find_symbol(libhandle, symbolname) ST(0) = sv_newmortal() ; if (RETVAL == NULL) { SaveError("%s", strerror(retcode)) ; - fprintf(stderr, "retcode = %p (%s)\n", retcode, strerror(retcode)); + PerlIO_printf(PerlIO_stderr(), "retcode = %p (%s)\n", retcode, strerror(retcode)); } else sv_setiv( ST(0), (IV)RETVAL); diff --git a/ext/DynaLoader/dl_cygwin32.xs b/ext/DynaLoader/dl_cygwin32.xs index 2b7563764e..b64ab3e345 100644 --- a/ext/DynaLoader/dl_cygwin32.xs +++ b/ext/DynaLoader/dl_cygwin32.xs @@ -82,11 +82,11 @@ dl_load_file(filename,flags=0) int flags PREINIT: CODE: - DLDEBUG(1,fprintf(stderr,"dl_load_file(%s):\n", filename)); + DLDEBUG(1,PerlIO_printf(PerlIO_stderr(),"dl_load_file(%s):\n", filename)); RETVAL = (void*) LoadLibraryExA(filename, NULL, LOAD_WITH_ALTERED_SEARCH_PATH ) ; - DLDEBUG(2,fprintf(stderr," libref=%x\n", RETVAL)); + DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," libref=%x\n", RETVAL)); ST(0) = sv_newmortal() ; if (RETVAL == NULL){ SaveError("%d",GetLastError()) ; @@ -113,10 +113,10 @@ dl_find_symbol(libhandle, symbolname) void * libhandle char * symbolname CODE: - DLDEBUG(2,fprintf(stderr,"dl_find_symbol(handle=%x, symbol=%s)\n", + DLDEBUG(2,PerlIO_printf(PerlIO_stderr(),"dl_find_symbol(handle=%x, symbol=%s)\n", libhandle, symbolname)); RETVAL = (void*) GetProcAddress((HINSTANCE) libhandle, symbolname); - DLDEBUG(2,fprintf(stderr," symbolref = %x\n", RETVAL)); + DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," symbolref = %x\n", RETVAL)); ST(0) = sv_newmortal() ; if (RETVAL == NULL) SaveError("%d",GetLastError()) ; @@ -138,7 +138,7 @@ dl_install_xsub(perl_name, symref, filename="$Package") void * symref char * filename CODE: - DLDEBUG(2,fprintf(stderr,"dl_install_xsub(name=%s, symref=%x)\n", + DLDEBUG(2,PerlIO_printf(PerlIO_stderr(),"dl_install_xsub(name=%s, symref=%x)\n", perl_name, symref)); ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename))); |