#!perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
unshift @INC, "../lib";
}
#!perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
unshift @INC, "../lib";
require './test.pl';
}
#!perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
unshift @INC, "../lib";
}
#!perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
unshift @INC, "../lib";
require './test.pl';
}
#!perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
unshift @INC, "../lib";
}
BEGIN {
@INC = qw(. ../lib ../ext/re);
- chdir 't';
+ chdir 't' if -d 't';
}
BEGIN { print "1..31\n"; }
BEGIN {
@INC = qw(. ../lib);
- chdir 't';
+ chdir 't' if -d 't';
}
print "1..170\n";
# it probably needs expanding at some point to cover other stuff.
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
# of their own.
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
use warnings;
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require q(./test.pl);
}
#!./perl
-BEGIN { chdir 't'; @INC = '../lib'; require './test.pl' }
+BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl' }
plan 13;
#!./perl
-BEGIN { chdir 't'; @INC = '../lib'; require './test.pl' }
+BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl' }
use utf8;
use open qw( :utf8 :std );
use strict;
use warnings;
-BEGIN { chdir 't'; require q(./test.pl); @INC = qw "../lib lib" }
+BEGIN { chdir 't' if -d 't'; require q(./test.pl); @INC = qw "../lib lib" }
plan(tests => 12);
use strict;
use warnings;
-BEGIN { chdir 't'; require q(./test.pl); @INC = qw "../lib lib" }
+BEGIN { chdir 't' if -d 't'; require q(./test.pl); @INC = qw "../lib lib" }
use utf8;
use open qw( :utf8 :std );
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
set_up_inc('../lib');
}
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = qw(../lib);
require './test.pl';
plan (tests => 17);
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
#!perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
}
#!./perl -w
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
$ENV{LC_ALL} = "C"; # so that external utilities speak English
$ENV{LANGUAGE} = 'C'; # GNU locale extension
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
skip_all_if_miniperl("no dynamic loading on miniperl, no POSIX");
#!/usr/bin/perl -w
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
skip_all_without_dynamic_extension("Devel::Peek");
# This file is intentionally encoded in latin-1.
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
set_up_inc('../lib');
require Config; import Config;
use strict;
use warnings;
-BEGIN { chdir 't'; require './test.pl'; }
+BEGIN { chdir 't' if -d 't'; require './test.pl'; }
plan(tests => 8);
#!perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
set_up_inc('../lib');
*bar::is = *is;
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = qw '../lib ../cpan/version/lib';
require './test.pl';
}
use strict;
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
}
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
set_up_inc('../lib');
}
use warnings;
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
}
use warnings;
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
}
# outer sub. Then we test a lexical directly inside the sub that DESTROY
# calls. Then we repeat with formats.
-BEGIN { chdir 't'; require './test.pl' }
+BEGIN { chdir 't' if -d 't'; require './test.pl' }
plan 22;
sub foo {
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
}
#!perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
set_up_inc('../lib');
}
# see if the count increases.
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
# build or testsuite that upgraded an NV to an RV
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = "../lib";
require "./test.pl";
}
# Test scoping issues with embedded code in regexps.
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
set_up_inc(qw(lib ../lib));
}
my $dtrace;
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl'; # for which_perl() etc
plan(3);
BEGIN {
$^P = 0x122;
- chdir 't';
+ chdir 't' if -d 't';
@INC = ('../lib', 'lib');
require './test.pl';
}
#!./perl -t
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
BEGIN {
$| = 1;
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader;
#!perl -w
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
@INC = '../lib';
require Config; import Config;
require './test.pl';
#!./perl
BEGIN {
- chdir 't';
+ chdir 't' if -d 't';
require './test.pl';
set_up_inc('../lib');
}