stas 2003/09/03 21:31:45
Modified: t/response/TestPerl ithreads.pm
Log:
this comment is now irrelevant
Revision Changes Path
1.4 +1 -5 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.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- ithreads.pm 6 Aug 2003 22:42:44 -0000 1.3
+++ ithreads.pm 4 Sep 2003 04:31:45 -0000 1.4
@@ -47,11 +47,7 @@
{
require threads::shared;
- 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_priv = 1;
my $counter_shar : shared = 1;
my $thr = threads->new(sub : locked {
my $tid = threads->self->tid;
