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 /ext/Cwd | |
| 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 'ext/Cwd')
| -rw-r--r-- | ext/Cwd/Cwd.xs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs index a82404f156..19d3afd744 100644 --- a/ext/Cwd/Cwd.xs +++ b/ext/Cwd/Cwd.xs @@ -70,7 +70,8 @@ bsd_realpath(path, resolved) char *resolved; { #ifdef VMS - return Perl_rmsexpand((char*)path, resolved, NULL, 0); + dTHX; + return Perl_rmsexpand(aTHX_ (char*)path, resolved, NULL, 0); #else struct stat sb; int n, rootd, serrno; |