diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-06-21 08:04:54 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 17:01:26 +0000 |
| commit | ba9ea07e77a257875f3fbf85efcec51039bf1424 (patch) | |
| tree | 6acf41556e04bdd6a9c7764b99bcd136f8a3783f /ext | |
| parent | 6644455effaffbcca52bae03a8fa0a5a89fdee73 (diff) | |
| download | perl-ba9ea07e77a257875f3fbf85efcec51039bf1424.tar.gz | |
fix Cwd.xs for VMS
Message-Id: <5.1.0.14.0.20010621124127.029fe120@exchi01>
p4raw-id: //depot/perl@10793
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Cwd/Cwd.xs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs index f163368d3d..2d032789e3 100644 --- a/ext/Cwd/Cwd.xs +++ b/ext/Cwd/Cwd.xs @@ -65,6 +65,7 @@ bsd_realpath(path, resolved) const char *path; char *resolved; { +#ifndef VMS struct stat sb; int fd, n, rootd, serrno; char *p, *q, wbuf[MAXPATHLEN]; @@ -166,6 +167,12 @@ err1: serrno = errno; err2: (void)close(fd); errno = serrno; return (NULL); + +#else /* it's VMS */ + + return Perl_rmsexpand((char*)path, resolved, NULL, 0); + +#endif /* ifndef VMS */ } MODULE = Cwd PACKAGE = Cwd |