- eval {
- open my $testfh, '>', "$base/$testfile" or die $!;
- print {$testfh} $plp or die $!;
- close $testfh or die $!;
- };
- not $@ or fail("write $testfile"), diag(" Error: $@"), return;
+ %ENV = (
+ REQUEST_METHOD => 'GET',
+ REQUEST_URI => "/$testfile/test/123",
+ QUERY_STRING => 'test=1&test=2',
+ GATEWAY_INTERFACE => 'CGI/1.1',
+
+ SCRIPT_NAME => '/plp.cgi',
+ SCRIPT_FILENAME => "$base/plp.cgi",
+ PATH_INFO => "/$testfile/test/123",
+ PATH_TRANSLATED => "$base/$testfile/test/123",
+ DOCUMENT_ROOT => $base,
+
+ $env ? %{$env} : (),
+ ); # Apache/2.2.4 CGI environment
+
+ if (defined $plp) {
+ eval {
+ open my $testfh, '>', "$base/$testfile" or die $!;
+ print {$testfh} $plp or die $!;
+ close $testfh or die $!;
+ };
+ not $@ or fail("write $testfile"), diag(" Error: $@"), return;
+ }