X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/3635c4ef0b6ceb2d7e95e66adbac3a8b66066521..58ad0f73721365480cd2c2bc844af04146ba1941:/t/50-cgi.t diff --git a/t/50-cgi.t b/t/50-cgi.t index d04e450..bf60143 100644 --- a/t/50-cgi.t +++ b/t/50-cgi.t @@ -37,6 +37,7 @@ sub plp_is { close STDOUT; open STDOUT, '>', \my $output; # STDOUT buffered to scalar + select STDOUT; # output before start() (which selects PLPOUT) eval { local $SIG{__WARN__} = sub { print $_[0] }; # enables warnings PLP::everything(); @@ -178,6 +179,7 @@ SKIP: { chmod 0244, $testfile or skip("changed permissions", 1); plp_is('permission denied', undef, < @@ -195,6 +197,7 @@ chmod 0644, $testfile; $ENV{PATH_TRANSLATED} = "$base/missinginclude/test/123"; plp_is('not found', undef, <