From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 18 May 2002 22:03:29 +0000 (+0000)
Subject: The thread warnings aren't quite yet working as planned.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48eb4d6f7d05204aa5e734e924c7236048de530c;p=p5sagit%2Fp5-mst-13.2.git

The thread warnings aren't quite yet working as planned.

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

diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t
index 3d8c97d..9601605 100644
--- a/ext/threads/shared/t/cond.t
+++ b/ext/threads/shared/t/cond.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 $|++;
-print "1..29\n";
+print "1..25\n";
 use strict;
 
 
@@ -247,26 +247,3 @@ sub ok {
 
 }
 
-# test warnings;
-
-{
-    my $warncount = 0;
-    local $SIG{__WARN__} = sub { $warncount++ };
-
-    my $lock : shared;
-
-    cond_wait($lock);
-    ok(1, $warncount == 1, 'get warning on cond_wait');
-    cond_broadcast($lock);
-    ok(2, $warncount == 2, 'get warning on cond_wait');
-    no warnings 'threads';
-    cond_wait($lock);
-    ok(3, $warncount == 2, 'get no warning on cond_wait');
-    cond_broadcast($lock);
-    ok(4, $warncount == 2, 'get no warning on cond_wait');
-
-    $Base += 4;
-}
-
-
-