diff options
| author | Dan Sugalski <dan@sidhe.org> | 2001-05-02 07:37:27 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-02 15:35:37 +0000 |
| commit | fd8cd3a3fe489fe70b00d1da7f9034bb1c56f03c (patch) | |
| tree | dd0eebd71482f83187b55d14fa0340d6ffdc2cf6 /doio.c | |
| parent | 09bf542c87dffb276bec96e979ba5437e7fc39b1 (diff) | |
| download | perl-fd8cd3a3fe489fe70b00d1da7f9034bb1c56f03c.tar.gz | |
Multiplicity and thread fixes for VMS
Message-Id: <5.0.2.1.0.20010502112909.01f24e28@24.8.96.48>
p4raw-id: //depot/perl@9960
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |