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 2003/03/20 02:18:18 UTC
cvs commit: modperl-2.0/t/response/TestAPR perlio.pm
stas 2003/03/19 17:18:18
Modified: t/response/TestAPR perlio.pm
Log:
checking for having APR::PerlIO should be enough, since if it's not
loaded, having perl -V:iolayers doesn't change anything
Revision Changes Path
1.15 +1 -9 modperl-2.0/t/response/TestAPR/perlio.pm
Index: perlio.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- perlio.pm 6 Jul 2002 12:16:14 -0000 1.14
+++ perlio.pm 20 Mar 2003 01:18:18 -0000 1.15
@@ -10,7 +10,6 @@
use File::Spec::Functions qw(catfile);
use Apache::Const -compile => 'OK';
-use constant HAVE_PERLIO => eval { require APR::PerlIO };
#XXX: APR::LARGE_FILES_CONFLICT constant?
#XXX: you can set to zero if largefile support is not enabled in Perl
@@ -19,19 +18,12 @@
sub handler {
my $r = shift;
- unless (HAVE_PERLIO) {
- #XXX dunno why have_module doesn't work here.
- my $reason = "APR::PerlIO is not available with this Perl";
- $r->puts("1..0 #Skipped: $reason\n");
- return Apache::OK;
- }
-
my $tests = 11;
my $lfs_tests = 3;
$tests += $lfs_tests unless LARGE_FILES_CONFLICT;
- plan $r, tests => $tests, have_perl 'iolayers';
+ plan $r, tests => $tests, have_perl qw(APR::PerlIO);
my $vars = Apache::Test::config()->{vars};
my $dir = catfile $vars->{documentroot}, "perlio";