diff options
author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-11-12 07:35:18 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-12 16:33:01 +0000 |
commit | 32af7c23a1c4abd006dd0f19ca383c1fcaddfdd9 (patch) | |
tree | 27826c419d4ba6758c31f4f5633a43af1fead6c6 /vms/ext | |
parent | 9b1c7707319e7631584ef9f5d258edf5657d488c (diff) | |
download | perl-32af7c23a1c4abd006dd0f19ca383c1fcaddfdd9.tar.gz |
[Patch Perl@12856] MULTIPLICITY on VMS
Message-Id: <011112123409.27041@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@12958
Diffstat (limited to 'vms/ext')
-rw-r--r-- | vms/ext/Stdio/Stdio.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/ext/Stdio/Stdio.xs b/vms/ext/Stdio/Stdio.xs index 64bd75017a..75d87b371a 100644 --- a/vms/ext/Stdio/Stdio.xs +++ b/vms/ext/Stdio/Stdio.xs @@ -174,7 +174,7 @@ binmode(fh) } /* appearances to the contrary, this is an freopen substitute */ name = sv_2mortal(newSVpvn(filespec,strlen(filespec))); - if (PerlIO_openn(Nullch,acmode,-1,0,0,fp,1,&name) == Nullfp) XSRETURN_UNDEF; + if (PerlIO_openn(aTHX_ Nullch,acmode,-1,0,0,fp,1,&name) == Nullfp) XSRETURN_UNDEF; if (iotype != '-' && ret != -1 && PerlIO_setpos(fp,&pos) == -1) XSRETURN_UNDEF; if (ret == -1) { set_errno(saverrno); set_vaxc_errno(savevmserrno); } XSRETURN_YES; |