diff options
| -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 2d61d24e98..f9222420c7 100644 --- a/ext/threads/shared/shared.xs +++ b/ext/threads/shared/shared.xs @@ -1237,11 +1237,11 @@ cond_signal_enabled(SV *ref) if(SvROK(ref)) ref = SvRV(ref); shared = Perl_sharedsv_find(aTHX_ ref); + if(!shared) + croak("cond_signal can only be used on shared values"); if (ckWARN(WARN_THREADS) && shared->lock.owner != aTHX) Perl_warner(aTHX_ packWARN(WARN_THREADS), "cond_signal() called on unlocked variable"); - if(!shared) - croak("cond_signal can only be used on shared values"); COND_SIGNAL(&shared->user_cond); void |