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

diff --git a/perl.h b/perl.h
index b0524fb..5bd891c 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -511,7 +511,7 @@ int syscall(int, ...);
 #endif
 
 #ifndef HAS_USLEEP_PROTO
-int usleep(useconds_t);
+int usleep(unsigned);
 #endif
 
 #ifdef PERL_MICRO /* Last chance to export Perl_my_swap */

diff --git a/util.c b/util.c
index ae718af..f40f5b9 100644 (file)
--- 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;
             }