This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ithreads: cond_signal() on a non-shared object coredumped
authorDave Mitchell <davem@fdisolutions.com>
Sat, 26 Feb 2005 11:32:59 +0000 (11:32 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sat, 26 Feb 2005 11:32:59 +0000 (11:32 +0000)
p4raw-id: //depot/perl@23998

ext/threads/shared/shared.xs

index 2d61d24..f922242 100644 (file)
@@ -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