perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r106596 - /perl/modperl/trunk/t/response/TestPerl/ithreads.pm
Date Thu, 25 Nov 2004 19:25:44 GMT
Author: stas
Date: Thu Nov 25 11:25:43 2004
New Revision: 106596

URL: http://svn.apache.org/viewcvs?view=rev&rev=106596
Log:
tidy up

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=106596&p1=perl/modperl/trunk/t/response/TestPerl/ithreads.pm&r1=106595&p2=perl/modperl/trunk/t/response/TestPerl/ithreads.pm&r2=106596
==============================================================================
--- perl/modperl/trunk/t/response/TestPerl/ithreads.pm	(original)
+++ perl/modperl/trunk/t/response/TestPerl/ithreads.pm	Thu Nov 25 11:25:43 2004
@@ -17,7 +17,7 @@
 sub handler {
     my $r = shift;
 
-    plan $r, tests => 4,need 
+    plan $r, tests => 4, need
         need_threads,
         {"perl >= 5.8.1 is required (this is $])" => ($] >= 5.008001)};
 
@@ -38,7 +38,7 @@
 
     {
         my $thr = threads->new(sub {
-                                   my $tid = threads->self->tid; 
+                                   my $tid = threads->self->tid;
                                    debug "2nd TID is $tid" if defined $tid;
                                    return 2;
                                });

Mime
View raw message