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/POSIX | |
| 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/POSIX')
| -rwxr-xr-x | ext/POSIX/POSIX.t | 2 | ||||
| -rw-r--r-- | ext/POSIX/POSIX.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/POSIX/POSIX.t b/ext/POSIX/POSIX.t index aae4cf37c6..87a2aea89b 100755 --- a/ext/POSIX/POSIX.t +++ b/ext/POSIX/POSIX.t @@ -79,7 +79,7 @@ if ($Is_MPE) { print &_POSIX_OPEN_MAX > $fds[1] ? "ok 12\n" : "not ok 12\n" } -print getcwd() =~ m#/t$# ? "ok 13\n" : "not ok 13\n"; +print getcwd() =~ m#[/\\]t$# ? "ok 13\n" : "not ok 13\n"; # Check string conversion functions. diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 6f27ea3165..1bf8521a1a 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -1751,7 +1751,7 @@ getcwd() PPCODE: { dXSTARG; - sv_getcwd(TARG); + getcwd_sv(TARG); XSprePUSH; PUSHTARG; } |