You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/11/25 20:25:44 UTC
svn commit: r106596 - /perl/modperl/trunk/t/response/TestPerl/ithreads.pm
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;
});