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 (file)
--- 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