perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestPerl ithreads.pm
Date Wed, 30 Jul 2003 12:53:16 GMT
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;
  
  
  

Mime
View raw message