Author: stas Date: Wed Dec 8 12:43:10 2004 New Revision: 111311 URL: http://svn.apache.org/viewcvs?view=rev&rev=111311 Log: add the missing lock() for shared variable Contributed by Gisle Aas <[EMAIL PROTECTED]>
Modified: perl/modperl/trunk/t/response/TestPerl/ithreads.pm Modified: perl/modperl/trunk/t/response/TestPerl/ithreads.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestPerl/ithreads.pm?view=diff&rev=111311&p1=perl/modperl/trunk/t/response/TestPerl/ithreads.pm&r1=111310&p2=perl/modperl/trunk/t/response/TestPerl/ithreads.pm&r2=111311 ============================================================================== --- perl/modperl/trunk/t/response/TestPerl/ithreads.pm (original) +++ perl/modperl/trunk/t/response/TestPerl/ithreads.pm Wed Dec 8 12:43:10 2004 @@ -57,7 +57,10 @@ $counter_shar += $counter_shar for 1..10; }); $counter_priv += $counter_priv for 1..10; - $counter_shar += $counter_shar for 1..10; + { + lock $counter_shar; + $counter_shar += $counter_shar for 1..10; + } $thr->join; ok t_cmp($counter_shar, 2**20, "shared counter"); ok t_cmp($counter_priv, 2**10, "private counter");
