From: Prymmer/Kahn <pvhp@best.com>
Date: Mon, 4 Jun 2001 22:11:02 +0000 (-0700)
Subject: Re: Not OK: perl@10439 on win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a87ab2ebad5f814f5d93f568156eb348cfb1a1a3;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;
             }