diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-24 14:26:58 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-24 14:26:58 +0000 |
| commit | 5dd1177c222be3aa5f44de160a952953bc5703a5 (patch) | |
| tree | 464349e806029d5535e2ded4d840ff114d712ec0 /ext | |
| parent | c60e0e098045567c2313456d074b4094292b050c (diff) | |
| download | perl-5dd1177c222be3aa5f44de160a952953bc5703a5.tar.gz | |
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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 6c5c70b77c..145dab7342 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 |