Revision history for Catalyst-Controller-WrapCGI
+0.027 2010-02-19 04:34:50
+ - fix tests for Perl < 5.8.9
+ - fix for HTTP::Request::AsCGI 1.2
+
0.026 2010-01-03 11:37:15
- convert to CGI::Compile
- check exit status of non-Perl CGIs
author 'Matt S. Trout <mst@shadowcat.co.uk>';
requires 'Catalyst' => '5.80015';
-requires 'HTTP::Request::AsCGI' => '0.8';;
+requires 'HTTP::Request::AsCGI' => '0.12';
requires 'CGI::Compile' => '0.07';
requires 'File::pushd';
requires 'File::Find::Rule';
=head1 VERSION
-Version 0.026
+Version 0.027
=cut
-our $VERSION = '0.026';
+our $VERSION = '0.027';
=head1 SYNOPSIS
=head1 VERSION
-Version 0.026
+Version 0.027
=cut
-our $VERSION = '0.026';
+our $VERSION = '0.027';
=head1 SYNOPSIS
}
}
- my $filtered_env = $self->_filtered_env(\%ENV);
-
$req->content($body_content);
$req->content_length(length($body_content));
my $env = HTTP::Request::AsCGI->new(
$req,
($username ? (REMOTE_USER => $username) : ()),
- %$filtered_env,
PATH_INFO => $path_info,
# eww, this is likely broken:
FILEPATH_INFO => '/'.$c->action.$path_info,
my $saved_error;
+ local %ENV = %{ $self->_filtered_env(\%ENV) };
+
$env->setup;
eval { $call->() };
$saved_error = $@;
=head1 VERSION
-Version 0.026
+Version 0.027
=cut
-our $VERSION = '0.026';
+our $VERSION = '0.027';
=head1 SYNOPSIS
use HTTP::Request::Common;
my %orig_sig;
-BEGIN { %orig_sig = %SIG; }
+BEGIN {
+ %orig_sig = %SIG;
+# perl < 5.8.9 won't set a %SIG entry to undef, it sets it to ''
+ %orig_sig = map { defined $_ ? $_ : '' } %orig_sig
+ if $] < 5.008009;
+}
use Catalyst::Test 'TestCGIBin';
$ENV{MOD_PERL} = "mod_perl/2.0";
is_deeply \%SIG, \%orig_sig, '%SIG is preserved on compile';
-%SIG = %orig_sig;
my $response = request POST '/my-bin/path/test.pl', [
foo => 'bar',