fix Cwd.xs for VMS

Message-Id: <5.1.0.14.0.20010621124127.029fe120@exchi01>

p4raw-id: //depot/perl@10793

diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs
index f163368..2d03278 100644 (file)
--- 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