diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-07-02 08:03:55 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-07-02 08:03:55 +0000 |
| commit | 894237640a8731055a749592e01318892443c38d (patch) | |
| tree | cc8c55e633728ba8f48fa340a50ae81dda851e26 /ext/Cwd | |
| parent | 25716404fbbde2ca91832aab8c9157aafcdcc7e8 (diff) | |
| download | perl-894237640a8731055a749592e01318892443c38d.tar.gz | |
rename s/sv_getcwd/getcwd_sv/ for better conformance to existing
naming discipline
win32 fix: enable getcwd_sv() to work on windows (POSIX.t was failing
because of this)
fix a warning about "fd" being used without being set in Cwd.xs
p4raw-id: //depot/perl@11067
Diffstat (limited to 'ext/Cwd')
| -rw-r--r-- | ext/Cwd/Cwd.xs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs index be9427bc41..b6f27b8d09 100644 --- a/ext/Cwd/Cwd.xs +++ b/ext/Cwd/Cwd.xs @@ -194,7 +194,11 @@ err1: serrno = errno; #else (void)chdir(wd); #endif -err2: (void)close(fd); + +err2: +#ifdef HAS_FCHDIR + (void)close(fd); +#endif errno = serrno; return (NULL); #endif @@ -209,7 +213,7 @@ fastcwd() PPCODE: { dXSTARG; - sv_getcwd(TARG); + getcwd_sv(TARG); XSprePUSH; PUSHTARG; } |