diff options
| author | Mike Pomraning <mjp@pilcrow.madison.wi.us> | 2003-12-21 19:52:08 -0600 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-12-22 21:00:30 +0000 |
| commit | 2666606c37c09f62a1f69e2cae2faf375d42fc41 (patch) | |
| tree | 22055d0ae92616a44d0a067c17230b05ab0d16f8 | |
| parent | 1e8e823624ada1d9231e47a66cb2b9e3ab42701a (diff) | |
| download | perl-2666606c37c09f62a1f69e2cae2faf375d42fc41.tar.gz | |
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
| -rw-r--r-- | ext/threads/shared/shared.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs index 911d9cab03..4e564c5296 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 |