From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 24 Mar 2001 14:26:58 +0000 (+0000)
Subject: POSIX::getcwd XS code to call Cwd::cwd when HAS_GETCWD not defined
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5dd1177c222be3aa5f44de160a952953bc5703a5;p=p5sagit%2Fp5-mst-13.2.git

POSIX::getcwd XS code to call Cwd::cwd when HAS_GETCWD not defined
was gibberish - broke it on WIn32 at least.

p4raw-id: //depot/perlio@9320
---

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 6c5c70b..145dab7 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -4048,15 +4048,10 @@ getcwd()
 	else
 	    PUSHs(&PL_sv_undef);
 #else
-	dSP;
 	require_pv("Cwd.pm");
-
-	ENTER;
-	SAVETMPS;
+        /* Module require may have grown the stack */
+	SPAGAIN;
 	PUSHMARK(sp);
 	PUTBACK;
-	call_pv("Cwd::cwd", GIMME_V);
-	FREETMPS;
-	LEAVE;
-	XSRETURN(1);
+	XSRETURN(call_pv("Cwd::cwd", GIMME_V));
 #endif