fix Cwd.xs for VMS
authorCraig A. Berry <craigberry@mac.com>
Thu, 21 Jun 2001 13:04:54 +0000 (08:04 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 21 Jun 2001 17:01:26 +0000 (17:01 +0000)
Message-Id: <5.1.0.14.0.20010621124127.029fe120@exchi01>

p4raw-id: //depot/perl@10793

ext/Cwd/Cwd.xs

index f163368..2d03278 100644 (file)
@@ -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