From fd8cd3a3fe489fe70b00d1da7f9034bb1c56f03c Mon Sep 17 00:00:00 2001 From: Dan Sugalski Date: Wed, 2 May 2001 07:37:27 -0400 Subject: Multiplicity and thread fixes for VMS Message-Id: <5.0.2.1.0.20010502112909.01f24e28@24.8.96.48> p4raw-id: //depot/perl@9960 --- doio.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'doio.c') diff --git a/doio.c b/doio.c index d61d533eff..fd40ae08fc 100644 --- a/doio.c +++ b/doio.c @@ -565,8 +565,8 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, if (savefd != PerlIO_fileno(PerlIO_stdin())) { char newname[FILENAME_MAX+1]; if (fgetname(fp, newname)) { - if (savefd == PerlIO_fileno(PerlIO_stdout())) Perl_vmssetuserlnm("SYS$OUTPUT", newname); - if (savefd == PerlIO_fileno(PerlIO_stderr())) Perl_vmssetuserlnm("SYS$ERROR", newname); + if (fd == PerlIO_fileno(PerlIO_stdout())) Perl_vmssetuserlnm(aTHX_ "SYS$OUTPUT", newname); + if (fd == PerlIO_fileno(PerlIO_stderr())) Perl_vmssetuserlnm(aTHX_ "SYS$ERROR", newname); } } #endif -- cgit v1.2.1