stas 2003/07/30 05:53:16
Modified: t/response/TestPerl ithreads.pm
Log:
can't use
my $counter_shar : shared = 1;
as it won't compile under $] < 5.8, before it gets a chance
to skip this test, so using the function share() instead.
Revision Changes Path
1.2 +6 -2 modperl-2.0/t/response/TestPerl/ithreads.pm
Index: ithreads.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestPerl/ithreads.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- ithreads.pm 25 Jul 2003 08:16:59 -0000 1.1
+++ ithreads.pm 30 Jul 2003 12:53:16 -0000 1.2
@@ -47,8 +47,12 @@
{
require threads::shared;
- my $counter_priv = 1;
- my $counter_shar : shared = 1;
+ my $counter_priv = 1;
+ # should be
+ # my $counter_shar : shared = 1;
+ # but it won't compile under $] < 5.8, before it gets a chance
+ # to skip this test, so using the function share() instead.
+ my $counter_shar = 1 ; threads::shared::share(\$counter_shar);
my $thr = threads->new(sub : locked {
my $tid = threads->self->tid;
debug "2nd TID is $tid" if defined $tid;
