Re: Not OK: perl@10439 on win32

Message-ID: <Pine.BSF.4.21.0106042136410.26316-100000@shell8.ba.best.com>

p4raw-id: //depot/perl@10443

1 files changed, 2 insertions, 2 deletions

diff --git a/util.c b/util.c
index ae718af05b..f40f5b9612 100644
--- a/util.c
+++ b/util.c
@@ -4636,7 +4636,7 @@ Perl_sv_getcwd(pTHX_ register SV *sv)
 #else
 
     if (PerlLIO_lstat(".", &statbuf) < 0) {
-        CWDXS_RETURN_SVUNDEF(sv);
+        SV_CWD_RETURN_UNDEF;
     }
 
     orig_cdev = statbuf.st_dev;
@@ -4672,7 +4672,7 @@ Perl_sv_getcwd(pTHX_ register SV *sv)
             namelen = strlen(dp->d_name);
 #endif
             /* skip . and .. */
-            if (SV_CWD_ISDOT(dp)) {dp->d_name[0] == '.'
+            if (SV_CWD_ISDOT(dp)) {
                 continue;
             }