Author: stas Date: Sat Dec 11 10:15:43 2004 New Revision: 111609 URL: http://svn.apache.org/viewcvs?view=rev&rev=111609 Log: the mystery resolved: the address is hex (0xa27a408) so should check for \w and not \d
Modified: perl/modperl/trunk/lib/ModPerl/Manifest.pm perl/modperl/trunk/t/response/TestModperl/util.pm Modified: perl/modperl/trunk/lib/ModPerl/Manifest.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/Manifest.pm?view=diff&rev=111609&p1=perl/modperl/trunk/lib/ModPerl/Manifest.pm&r1=111608&p2=perl/modperl/trunk/lib/ModPerl/Manifest.pm&r2=111609 ============================================================================== --- perl/modperl/trunk/lib/ModPerl/Manifest.pm (original) +++ perl/modperl/trunk/lib/ModPerl/Manifest.pm Sat Dec 11 10:15:43 2004 @@ -104,5 +104,4 @@ t/response/TestPerl/ithreads.pm # incomplete t/apr-ext/perlio -# gets some random failures, need more testing -t/response/TestModperl/util.pm + Modified: perl/modperl/trunk/t/response/TestModperl/util.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestModperl/util.pm?view=diff&rev=111609&p1=perl/modperl/trunk/t/response/TestModperl/util.pm&r1=111608&p2=perl/modperl/trunk/t/response/TestModperl/util.pm&r2=111609 ============================================================================== --- perl/modperl/trunk/t/response/TestModperl/util.pm (original) +++ perl/modperl/trunk/t/response/TestModperl/util.pm Sat Dec 11 10:15:43 2004 @@ -18,7 +18,7 @@ plan $r, tests => 1; - ok t_cmp ModPerl::Util::current_perl_id(), qr/0x\d+/, + ok t_cmp ModPerl::Util::current_perl_id(), qr/0x\w+/, "perl interpreter id"; Apache::OK;
