From: Mike Pomraning <mjp@pilcrow.madison.wi.us>
Date: Mon, 22 Dec 2003 01:52:08 +0000 (-0600)
Subject: Re: Smoke [5.8.2] 21930 FAIL(t) MSWin32 5.1 Service Pack 1 (x86/1 cpu)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2666606c37c09f62a1f69e2cae2faf375d42fc41;p=p5sagit%2Fp5-mst-13.2.git

Re: Smoke [5.8.2] 21930 FAIL(t) MSWin32 5.1 Service Pack 1 (x86/1 cpu)
Message-ID: <Pine.LNX.4.58.0312220116520.17374@localhost.localdomain>
From: Mike Pomraning <mjp@pilcrow.madison.wi.us>

p4raw-id: //depot/perl@21948
---

diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs
index 911d9ca..4e564c5 100644
--- a/ext/threads/shared/shared.xs
+++ b/ext/threads/shared/shared.xs
@@ -421,7 +421,7 @@ Perl_sharedsv_share(pTHX_ SV *sv)
 #if defined(WIN32) || defined(OS2)
 #  define ABS2RELMILLI(abs)        \
     do {                                \
-        abs -= (double)time(NULL)       \
+        abs -= (double)time(NULL);      \
         if (abs > 0) { abs *= 1000; }   \
         else         { abs  = 0;    }   \
     } while (0)
@@ -450,7 +450,7 @@ Perl_sharedsv_cond_timedwait(perl_cond *cond, perl_mutex *mut, double abs)
             break;
     }
     MUTEX_LOCK(mut);
-    c->waiters--;
+    cond->waiters--;
     return got_it;
 #  else
 #    ifdef OS2