diff options
| author | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
| commit | 760ac839baf413929cd31cc32ffd6dba6b781a81 (patch) | |
| tree | 010ae8135426972c27b065782284341c839dc2a0 /ext/DynaLoader/dlutils.c | |
| parent | 43cc1d52f97c5f21f3207f045444707e7be33927 (diff) | |
| download | perl-760ac839baf413929cd31cc32ffd6dba6b781a81.tar.gz | |
perl 5.003_02: [no incremental changelog available]
Diffstat (limited to 'ext/DynaLoader/dlutils.c')
| -rw-r--r-- | ext/DynaLoader/dlutils.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/DynaLoader/dlutils.c b/ext/DynaLoader/dlutils.c index 07ea3325b6..599dd37ea5 100644 --- a/ext/DynaLoader/dlutils.c +++ b/ext/DynaLoader/dlutils.c @@ -35,7 +35,7 @@ dl_generic_private_init() /* called by dl_*.xs dl_private_init() */ if ( (perl_dl_nonlazy = getenv("PERL_DL_NONLAZY")) != NULL ) dl_nonlazy = atoi(perl_dl_nonlazy); if (dl_nonlazy) - DLDEBUG(1,fprintf(stderr,"DynaLoader bind mode is 'non-lazy'\n")); + DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "DynaLoader bind mode is 'non-lazy'\n")); #ifdef DL_LOADONCEONLY if (!dl_loaded_files) dl_loaded_files = newHV(); /* provide cache for dl_*.xs if needed */ @@ -79,7 +79,7 @@ SaveError(pat, va_alist) /* Copy message into LastError (including terminating null char) */ strncpy(LastError, message, len) ; - DLDEBUG(2,fprintf(stderr,"DynaLoader: stored error msg '%s'\n",LastError)); + DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), "DynaLoader: stored error msg '%s'\n",LastError)); } |