IRIX SMP turned up a few hundred "Use of uninitialized

value in numeric eq" warnings: initialise the $counter2.

p4raw-id: //depot/perl@16690

diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t
index 8c79347..aa80aab 100644 (file)
--- a/ext/threads/shared/t/cond.t
+++ b/ext/threads/shared/t/cond.t
@@ -217,9 +217,9 @@ sub ok {
 
     # ditto with refs and shared()
 
-    my $counter2;
+    my $counter2 = 0;
     share($counter2);
-    my $r  = \$counter2;
+    my $r = \$counter2;
 
     sub waiter2 {
        lock($r);