From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 21 Jun 2001 13:04:54 +0000 (-0500)
Subject: fix Cwd.xs for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba9ea07e77a257875f3fbf85efcec51039bf1424;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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