diff options
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; |