use strict;
use warnings;
-use Cwd;
use PLP::Functions qw( DecodeURI );
require PLP::Backend::CGI;
require PerlIO::scalar;
$PLP::use_cache = 0 if $PLP::use_cache;
#TODO: caching on (change file names)
-my $ORGDIR = '.'; # Cwd::getcwd();
open ORGOUT, '>&', *STDOUT;
sub is_string ($$;$) {
GATEWAY_INTERFACE => 'CGI/1.1',
SCRIPT_NAME => '/plp.cgi',
- SCRIPT_FILENAME => "$ORGDIR/plp.cgi",
+ SCRIPT_FILENAME => "./plp.cgi",
PATH_INFO => "/$src/test/123",
- PATH_TRANSLATED => "$ORGDIR/$src/test/123",
- DOCUMENT_ROOT => $ORGDIR,
+ PATH_TRANSLATED => "./$src/test/123",
+ DOCUMENT_ROOT => ".",
$env ? %{$env} : (),
); # Apache/2.2.4 CGI environment
$replace{HEAD} //= "Content-Type: text/html\nX-PLP-Version: $PLP::VERSION\n";
$replace{VERSION } //= $PLP::VERSION;
$replace{SCRIPT_NAME } //= $infile;
- $replace{SCRIPT_FILENAME} //= "$ORGDIR/$infile";
+ $replace{SCRIPT_FILENAME} //= "./$infile";
chomp $out;
$out =~ s/\$$_/$replace{$_}/g for keys %replace;
use strict;
use warnings;
-use Cwd;
use File::Basename qw( dirname );
use File::Spec;
use Test::More tests => 25;
chdir File::Spec->catdir(dirname($0), '50-cgi')
or BAIL_OUT('cannot change to test directory ./50-cgi/');
-my $ORGDIR = '.'; # Cwd::getcwd();
# 0*: permission checks using generated dummy files
SKIP:
SKIP: {
my @inctests = glob '3*.html';
- my $INCFILE = File::Spec->rel2abs("$ORGDIR/missinginclude");
+ my $INCFILE = File::Spec->rel2abs("./missinginclude");
if (open my $dummy, "<", $INCFILE) { # like PLP::source will
fail("file missinginclude shouldn't exist");
skip("missinginclude tests (3*)", @inctests - 1);
GATEWAY_INTERFACE => 'CGI/1.1',
SCRIPT_NAME => "/$_", #XXX: .plp?
- SCRIPT_FILENAME => "$ORGDIR/$_",
+ SCRIPT_FILENAME => "./$_",
PATH_INFO => '/test/123',
PATH_TRANSLATED => undef,
DOCUMENT_ROOT => undef,