diff options
Diffstat (limited to 't')
185 files changed, 205 insertions, 186 deletions
diff --git a/t/base/term.t b/t/base/term.t index 638069482f..e96313dec5 100755 --- a/t/base/term.t +++ b/t/base/term.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Config; diff --git a/t/comp/bproto.t b/t/comp/bproto.t index 01efb8401c..70748be551 100755 --- a/t/comp/bproto.t +++ b/t/comp/bproto.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..10\n"; diff --git a/t/comp/colon.t b/t/comp/colon.t index dee5330ff2..d2c64fe4c5 100755 --- a/t/comp/colon.t +++ b/t/comp/colon.t @@ -9,7 +9,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use strict; diff --git a/t/comp/cpp.t b/t/comp/cpp.t index bbff38c553..5b061ee181 100755 --- a/t/comp/cpp.t +++ b/t/comp/cpp.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Config; diff --git a/t/comp/proto.t b/t/comp/proto.t index a77db9b4b9..f9731ee489 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -11,7 +11,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use strict; diff --git a/t/comp/require.t b/t/comp/require.t index bfd4a37fc9..eaea3ad5f6 100755 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -2,7 +2,8 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, ('.', '../lib'); + @INC = '.'; + push @INC, '../lib'; } # don't make this lexical diff --git a/t/comp/use.t b/t/comp/use.t index 1f5fae39a2..fb597770d0 100755 --- a/t/comp/use.t +++ b/t/comp/use.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..27\n"; diff --git a/t/io/argv.t b/t/io/argv.t index 2595fa681c..2b8f23b426 100755 --- a/t/io/argv.t +++ b/t/io/argv.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..21\n"; @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Config; diff --git a/t/io/open.t b/t/io/open.t index 30db5988b6..b224cceb77 100755 --- a/t/io/open.t +++ b/t/io/open.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # $RCSfile$ diff --git a/t/io/openpid.t b/t/io/openpid.t index 80c6bde5d1..d8326d8e63 100755 --- a/t/io/openpid.t +++ b/t/io/openpid.t @@ -9,7 +9,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; if ($^O eq 'dos') { print "1..0 # Skip: no multitasking\n"; exit 0; diff --git a/t/io/pipe.t b/t/io/pipe.t index 4559624cca..96935e3f88 100755 --- a/t/io/pipe.t +++ b/t/io/pipe.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; unless ($Config{'d_fork'}) { print "1..0 # Skip: no fork\n"; diff --git a/t/lib/abbrev.t b/t/lib/abbrev.t index 05e5c70cac..fb5a9841eb 100755 --- a/t/lib/abbrev.t +++ b/t/lib/abbrev.t @@ -4,7 +4,7 @@ print "1..7\n"; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Text::Abbrev; diff --git a/t/lib/ansicolor.t b/t/lib/ansicolor.t index b1efb6a18d..f38e905cdd 100755 --- a/t/lib/ansicolor.t +++ b/t/lib/ansicolor.t @@ -1,6 +1,6 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # Test suite for the Term::ANSIColor Perl module. Before `make install' is diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t index e304766fc1..40c436628f 100755 --- a/t/lib/anydbm.t +++ b/t/lib/anydbm.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if (($Config{'extensions'} !~ /\b(DB|[A-Z]DBM)_File\b/) ){ print "1..0 # Skipping (no DB_File or [A-Z]DBM_File)\n"; diff --git a/t/lib/attrs.t b/t/lib/attrs.t index eb8c8c4a1a..440122c2b4 100644 --- a/t/lib/attrs.t +++ b/t/lib/attrs.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; eval 'require attrs; 1' or do { print "1..0\n"; exit 0; diff --git a/t/lib/autoloader.t b/t/lib/autoloader.t index 3bf690bbdd..b53b9feeae 100755 --- a/t/lib/autoloader.t +++ b/t/lib/autoloader.t @@ -3,7 +3,8 @@ BEGIN { chdir 't' if -d 't'; $dir = "auto-$$"; - unshift @INC, ("./$dir", "../lib"); + @INC = $dir; + push @INC, '../lib'; } print "1..11\n"; @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } $| = 1; diff --git a/t/lib/basename.t b/t/lib/basename.t index 478e26a8a5..a02aa32cb7 100755 --- a/t/lib/basename.t +++ b/t/lib/basename.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use File::Basename qw(fileparse basename dirname); diff --git a/t/lib/bigint.t b/t/lib/bigint.t index d2d520ea3c..034c5c6457 100755 --- a/t/lib/bigint.t +++ b/t/lib/bigint.t @@ -1,6 +1,6 @@ #!./perl -BEGIN { unshift @INC, '../lib' } +BEGIN { @INC = '../lib' } require "bigint.pl"; $test = 0; diff --git a/t/lib/bigintpm.t b/t/lib/bigintpm.t index ae362e20c9..e76f246f18 100755 --- a/t/lib/bigintpm.t +++ b/t/lib/bigintpm.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Math::BigInt; diff --git a/t/lib/cgi-form.t b/t/lib/cgi-form.t index 6bfb76a7e5..7d02181918 100755 --- a/t/lib/cgi-form.t +++ b/t/lib/cgi-form.t @@ -2,7 +2,7 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # Test ability to retrieve HTTP request info diff --git a/t/lib/cgi-function.t b/t/lib/cgi-function.t index 234bb9effa..653c4e55e6 100755 --- a/t/lib/cgi-function.t +++ b/t/lib/cgi-function.t @@ -2,7 +2,7 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # Test ability to retrieve HTTP request info diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t index 6cfb10b0a4..2d71ff6a77 100755 --- a/t/lib/cgi-html.t +++ b/t/lib/cgi-html.t @@ -2,7 +2,7 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # Test ability to retrieve HTTP request info diff --git a/t/lib/cgi-pretty.t b/t/lib/cgi-pretty.t index 65b4722d5d..14f6447033 100755 --- a/t/lib/cgi-pretty.t +++ b/t/lib/cgi-pretty.t @@ -2,7 +2,7 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # Test ability to retrieve HTTP request info diff --git a/t/lib/cgi-request.t b/t/lib/cgi-request.t index 3482f1cfd5..fde3fd04cf 100755 --- a/t/lib/cgi-request.t +++ b/t/lib/cgi-request.t @@ -2,7 +2,7 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # Test ability to retrieve HTTP request info diff --git a/t/lib/charnames.t b/t/lib/charnames.t index 2e6a818677..1d08ad0880 100644 --- a/t/lib/charnames.t +++ b/t/lib/charnames.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/checktree.t b/t/lib/checktree.t index 760357529b..b5426ca261 100755 --- a/t/lib/checktree.t +++ b/t/lib/checktree.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..1\n"; diff --git a/t/lib/complex.t b/t/lib/complex.t index 43dad7f06c..334374d519 100755 --- a/t/lib/complex.t +++ b/t/lib/complex.t @@ -9,7 +9,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Math::Complex; diff --git a/t/lib/db-btree.t b/t/lib/db-btree.t index b13e50eab7..75c661bbee 100755 --- a/t/lib/db-btree.t +++ b/t/lib/db-btree.t @@ -1,7 +1,7 @@ #!./perl -w BEGIN { - unshift @INC, '../lib' if -d '../lib' ; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bDB_File\b/) { print "1..0 # Skip: DB_File was not built\n"; diff --git a/t/lib/db-hash.t b/t/lib/db-hash.t index c52d8ae9dd..b7018742e4 100755 --- a/t/lib/db-hash.t +++ b/t/lib/db-hash.t @@ -1,7 +1,7 @@ #!./perl -w BEGIN { - unshift @INC, '../lib' if -d '../lib' ; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bDB_File\b/) { print "1..0 # Skip: DB_File was not built\n"; diff --git a/t/lib/db-recno.t b/t/lib/db-recno.t index 276f38bc3a..18fb45b114 100755 --- a/t/lib/db-recno.t +++ b/t/lib/db-recno.t @@ -1,7 +1,7 @@ #!./perl -w BEGIN { - unshift @INC, '../lib' if -d '../lib' ; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bDB_File\b/) { print "1..0 # Skip: DB_File was not built\n"; diff --git a/t/lib/dirhand.t b/t/lib/dirhand.t index a8683c7fb8..aa7be356df 100755 --- a/t/lib/dirhand.t +++ b/t/lib/dirhand.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if (not $Config{'d_readdir'}) { print "1..0\n"; diff --git a/t/lib/dosglob.t b/t/lib/dosglob.t index 91aa6cc8a9..fd9bb1d119 100755 --- a/t/lib/dosglob.t +++ b/t/lib/dosglob.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..10\n"; diff --git a/t/lib/dprof.t b/t/lib/dprof.t index fc5bd050cb..10c9b0fa16 100755 --- a/t/lib/dprof.t +++ b/t/lib/dprof.t @@ -2,7 +2,7 @@ BEGIN { chdir( 't' ) if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bDevel\/DProf\b/){ print "1..0 # Skip: Devel::DProf was not built\n"; diff --git a/t/lib/dumper-ovl.t b/t/lib/dumper-ovl.t index b8c8719318..d4b3a924ae 100755 --- a/t/lib/dumper-ovl.t +++ b/t/lib/dumper-ovl.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bData\/Dumper\b/) { print "1..0 # Skip: Data::Dumper was not built\n"; diff --git a/t/lib/dumper.t b/t/lib/dumper.t index 7b5a611b7d..183442d355 100755 --- a/t/lib/dumper.t +++ b/t/lib/dumper.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bData\/Dumper\b/) { print "1..0 # Skip: Data::Dumper was not built\n"; diff --git a/t/lib/english.t b/t/lib/english.t index 6438d13176..459dc3b539 100755 --- a/t/lib/english.t +++ b/t/lib/english.t @@ -2,7 +2,7 @@ print "1..22\n"; -BEGIN { unshift @INC, '../lib' } +BEGIN { @INC = '../lib' } use English qw( -no_match_vars ) ; use Config; my $threads = $Config{'use5005threads'} || 0; diff --git a/t/lib/env-array.t b/t/lib/env-array.t index d90d89226f..c5068fda14 100755 --- a/t/lib/env-array.t +++ b/t/lib/env-array.t @@ -4,7 +4,7 @@ $| = 1; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } if ($^O eq 'VMS') { diff --git a/t/lib/env.t b/t/lib/env.t index 25731648a0..ff6af2edb8 100755 --- a/t/lib/env.t +++ b/t/lib/env.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } BEGIN { diff --git a/t/lib/errno.t b/t/lib/errno.t index 6320f6b236..d173cd9a80 100755 --- a/t/lib/errno.t +++ b/t/lib/errno.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/fatal.t b/t/lib/fatal.t index 4013fbd371..f00b8766e8 100755 --- a/t/lib/fatal.t +++ b/t/lib/fatal.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; print "1..15\n"; } diff --git a/t/lib/fields.t b/t/lib/fields.t index 7709ee5177..a3f591acc4 100755 --- a/t/lib/fields.t +++ b/t/lib/fields.t @@ -4,7 +4,7 @@ my $w; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; $SIG{__WARN__} = sub { if ($_[0] =~ /^Hides field 'b1' in base class/) { $w++; diff --git a/t/lib/filecache.t b/t/lib/filecache.t index 019f3742c5..a97fdd532c 100755 --- a/t/lib/filecache.t +++ b/t/lib/filecache.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..1\n"; diff --git a/t/lib/filecopy.t b/t/lib/filecopy.t index b6fcbeafa6..3072c542b5 100755 --- a/t/lib/filecopy.t +++ b/t/lib/filecopy.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } $| = 1; diff --git a/t/lib/filefind.t b/t/lib/filefind.t index ca12e742ce..362c1ebf07 100755 --- a/t/lib/filefind.t +++ b/t/lib/filefind.t @@ -6,7 +6,7 @@ my $symlink_exists = eval { symlink("",""); 1 }; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } if ( $symlink_exists ) { print "1..117\n"; } diff --git a/t/lib/filefunc.t b/t/lib/filefunc.t index 46a1e35774..926812248c 100755 --- a/t/lib/filefunc.t +++ b/t/lib/filefunc.t @@ -3,7 +3,7 @@ BEGIN { $^O = ''; chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..1\n"; diff --git a/t/lib/filehand.t b/t/lib/filehand.t index 22cff0ecb0..827410a96a 100755 --- a/t/lib/filehand.t +++ b/t/lib/filehand.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') { print "1..0\n"; diff --git a/t/lib/filepath.t b/t/lib/filepath.t index 5628d0c726..42e0ae9f93 100755 --- a/t/lib/filepath.t +++ b/t/lib/filepath.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use File::Path; diff --git a/t/lib/filespec.t b/t/lib/filespec.t index da52ec5fb5..c6d155fac1 100755 --- a/t/lib/filespec.t +++ b/t/lib/filespec.t @@ -3,7 +3,7 @@ BEGIN { $^O = ''; chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # Each element in this array is a single test. Storing them this way makes diff --git a/t/lib/findbin.t b/t/lib/findbin.t index f0939e94a9..3e742f9a4f 100755 --- a/t/lib/findbin.t +++ b/t/lib/findbin.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..1\n"; diff --git a/t/lib/ftmp-mktemp.t b/t/lib/ftmp-mktemp.t index 35ab59cbb3..9503ea7585 100755 --- a/t/lib/ftmp-mktemp.t +++ b/t/lib/ftmp-mktemp.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Test; import Test; plan(tests => 9); } diff --git a/t/lib/ftmp-posix.t b/t/lib/ftmp-posix.t index 8c9fd554e7..2e455861e9 100755 --- a/t/lib/ftmp-posix.t +++ b/t/lib/ftmp-posix.t @@ -3,7 +3,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Test; import Test; plan(tests => 7); } diff --git a/t/lib/ftmp-security.t b/t/lib/ftmp-security.t index 761cbc12f4..4efe5e5a8b 100755 --- a/t/lib/ftmp-security.t +++ b/t/lib/ftmp-security.t @@ -7,7 +7,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Test; import Test; plan(tests => 13); } diff --git a/t/lib/ftmp-tempfile.t b/t/lib/ftmp-tempfile.t index 481100793e..48a52b3c92 100755 --- a/t/lib/ftmp-tempfile.t +++ b/t/lib/ftmp-tempfile.t @@ -3,7 +3,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Test; import Test; plan(tests => 16); } diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t index dc4e96e4d8..54f59946b7 100755 --- a/t/lib/gdbm.t +++ b/t/lib/gdbm.t @@ -3,7 +3,7 @@ # $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $ BEGIN { - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bGDBM_File\b/) { print "1..0 # Skip: GDBM_File was not built\n"; diff --git a/t/lib/getopt.t b/t/lib/getopt.t index 035462722b..fb70f10aae 100755 --- a/t/lib/getopt.t +++ b/t/lib/getopt.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..11\n"; diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t index cbb126310c..e8a2905add 100755 --- a/t/lib/glob-basic.t +++ b/t/lib/glob-basic.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) { print "1..0\n"; diff --git a/t/lib/glob-case.t b/t/lib/glob-case.t index 3d5c8167f1..56d35f3d03 100755 --- a/t/lib/glob-case.t +++ b/t/lib/glob-case.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) { print "1..0\n"; diff --git a/t/lib/glob-global.t b/t/lib/glob-global.t index 0045f891fa..a82408c93e 100755 --- a/t/lib/glob-global.t +++ b/t/lib/glob-global.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) { print "1..0\n"; diff --git a/t/lib/glob-taint.t b/t/lib/glob-taint.t index 586357f7e0..fe2fa23106 100755 --- a/t/lib/glob-taint.t +++ b/t/lib/glob-taint.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) { print "1..0\n"; diff --git a/t/lib/gol-basic.t b/t/lib/gol-basic.t index 0443816863..351bbc8b89 100755 --- a/t/lib/gol-basic.t +++ b/t/lib/gol-basic.t @@ -2,7 +2,7 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Getopt::Long qw(:config no_ignore_case); diff --git a/t/lib/gol-compat.t b/t/lib/gol-compat.t index 2f566b085c..0bbe386846 100755 --- a/t/lib/gol-compat.t +++ b/t/lib/gol-compat.t @@ -2,7 +2,7 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } require "newgetopt.pl"; diff --git a/t/lib/gol-linkage.t b/t/lib/gol-linkage.t index 69fc73bac0..3bd81a3552 100755 --- a/t/lib/gol-linkage.t +++ b/t/lib/gol-linkage.t @@ -2,7 +2,7 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Getopt::Long; diff --git a/t/lib/gol-oo.t b/t/lib/gol-oo.t index b344e4c5df..ff1cd2e8d8 100644 --- a/t/lib/gol-oo.t +++ b/t/lib/gol-oo.t @@ -2,7 +2,7 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Getopt::Long; diff --git a/t/lib/h2ph.t b/t/lib/h2ph.t index acb150dfcd..15dc2b52c2 100755 --- a/t/lib/h2ph.t +++ b/t/lib/h2ph.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..2\n"; diff --git a/t/lib/hostname.t b/t/lib/hostname.t index 8a34e9c4e7..85a04cd488 100755 --- a/t/lib/hostname.t +++ b/t/lib/hostname.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bSys\/Hostname\b/) { print "1..0 # Skip: Sys::Hostname was not built\n"; diff --git a/t/lib/io_const.t b/t/lib/io_const.t index 48cb6b5dc8..db1a322453 100755 --- a/t/lib/io_const.t +++ b/t/lib/io_const.t @@ -2,7 +2,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_dir.t b/t/lib/io_dir.t index 11ec8bcbf9..3689871555 100755 --- a/t/lib/io_dir.t +++ b/t/lib/io_dir.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } require Config; import Config; if ($] < 5.00326 || not $Config{'d_readdir'}) { diff --git a/t/lib/io_dup.t b/t/lib/io_dup.t index c895fb4c25..0f17264dfa 100755 --- a/t/lib/io_dup.t +++ b/t/lib/io_dup.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_linenum.t b/t/lib/io_linenum.t index 3503215201..cf55c980ea 100755 --- a/t/lib/io_linenum.t +++ b/t/lib/io_linenum.t @@ -13,7 +13,7 @@ BEGIN chdir 't'; $File =~ s/^t\W+//; # Remove first directory } - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; require strict; import strict; } diff --git a/t/lib/io_multihomed.t b/t/lib/io_multihomed.t index 7337a5f8d6..55030b5ad1 100644 --- a/t/lib/io_multihomed.t +++ b/t/lib/io_multihomed.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_pipe.t b/t/lib/io_pipe.t index bcb89a0daf..ae18224b12 100755 --- a/t/lib/io_pipe.t +++ b/t/lib/io_pipe.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_poll.t b/t/lib/io_poll.t index 925830e09d..d391566a7f 100755 --- a/t/lib/io_poll.t +++ b/t/lib/io_poll.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_sel.t b/t/lib/io_sel.t index 85e14ab0c0..5d1dce3ef9 100755 --- a/t/lib/io_sel.t +++ b/t/lib/io_sel.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_sock.t b/t/lib/io_sock.t index 056d131ffa..5a8e16c313 100755 --- a/t/lib/io_sock.t +++ b/t/lib/io_sock.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_taint.t b/t/lib/io_taint.t index deaa6c7f61..19afa2fea4 100755 --- a/t/lib/io_taint.t +++ b/t/lib/io_taint.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_tell.t b/t/lib/io_tell.t index 8d75242251..3aa4b031e1 100755 --- a/t/lib/io_tell.t +++ b/t/lib/io_tell.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; $tell_file = "TEST"; } else { diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t index 3d5145ec5e..9df62cfbaf 100755 --- a/t/lib/io_udp.t +++ b/t/lib/io_udp.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_unix.t b/t/lib/io_unix.t index 247647a702..2f6def0af7 100644 --- a/t/lib/io_unix.t +++ b/t/lib/io_unix.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/io_xs.t b/t/lib/io_xs.t index 6bbba16f8c..9305c31986 100755 --- a/t/lib/io_xs.t +++ b/t/lib/io_xs.t @@ -3,7 +3,7 @@ BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } } diff --git a/t/lib/ipc_sysv.t b/t/lib/ipc_sysv.t index d2991e3eac..795ad5d6c7 100755 --- a/t/lib/ipc_sysv.t +++ b/t/lib/ipc_sysv.t @@ -3,7 +3,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; diff --git a/t/lib/ndbm.t b/t/lib/ndbm.t index 39c3f400a0..4937a8ce31 100755 --- a/t/lib/ndbm.t +++ b/t/lib/ndbm.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bNDBM_File\b/) { print "1..0 # Skip: NDBM_File was not built\n"; diff --git a/t/lib/odbm.t b/t/lib/odbm.t index f8b8a110ad..ccd3e60319 100755 --- a/t/lib/odbm.t +++ b/t/lib/odbm.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bODBM_File\b/) { print "1..0 # Skip: ODBM_File was not built\n"; diff --git a/t/lib/opcode.t b/t/lib/opcode.t index f83a689f05..a785fce48b 100755 --- a/t/lib/opcode.t +++ b/t/lib/opcode.t @@ -4,7 +4,7 @@ $|=1; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') { print "1..0\n"; diff --git a/t/lib/open2.t b/t/lib/open2.t index 64431123e8..85b807c98a 100755 --- a/t/lib/open2.t +++ b/t/lib/open2.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if (!$Config{'d_fork'} # open2/3 supported on win32 (but not Borland due to CRT bugs) diff --git a/t/lib/open3.t b/t/lib/open3.t index bf042bfe32..a0da34f256 100755 --- a/t/lib/open3.t +++ b/t/lib/open3.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if (!$Config{'d_fork'} # open2/3 supported on win32 (but not Borland due to CRT bugs) diff --git a/t/lib/ops.t b/t/lib/ops.t index ce8b6d0d5f..56b1bacabb 100755 --- a/t/lib/ops.t +++ b/t/lib/ops.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') { print "1..0\n"; diff --git a/t/lib/parsewords.t b/t/lib/parsewords.t index 2c936f121f..261d81f3a4 100755 --- a/t/lib/parsewords.t +++ b/t/lib/parsewords.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use warnings; diff --git a/t/lib/peek.t b/t/lib/peek.t index 7eed46d3ab..597d11d1d8 100644 --- a/t/lib/peek.t +++ b/t/lib/peek.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bPeek\b/) { print "1..0 # Skip: Devel::Peek was not built\n"; diff --git a/t/lib/ph.t b/t/lib/ph.t index dd24c79f2d..de27dee5e2 100755 --- a/t/lib/ph.t +++ b/t/lib/ph.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # All the constants which Socket.pm tries to make available: diff --git a/t/lib/posix.t b/t/lib/posix.t index d38e7ef890..994704a304 100755 --- a/t/lib/posix.t +++ b/t/lib/posix.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) { print "1..0\n"; diff --git a/t/lib/safe1.t b/t/lib/safe1.t index 6e12873585..27993d95c9 100755 --- a/t/lib/safe1.t +++ b/t/lib/safe1.t @@ -2,7 +2,7 @@ $|=1; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') { print "1..0\n"; diff --git a/t/lib/safe2.t b/t/lib/safe2.t index 293b515692..4d6c84a692 100755 --- a/t/lib/safe2.t +++ b/t/lib/safe2.t @@ -2,7 +2,7 @@ $|=1; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') { print "1..0\n"; diff --git a/t/lib/sdbm.t b/t/lib/sdbm.t index 2689d1962e..b6a1a69de0 100755 --- a/t/lib/sdbm.t +++ b/t/lib/sdbm.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if (($Config{'extensions'} !~ /\bSDBM_File\b/) && ($^O ne 'VMS')){ print "1..0\n"; diff --git a/t/lib/searchdict.t b/t/lib/searchdict.t index 46cea394bc..c36fdb8c34 100755 --- a/t/lib/searchdict.t +++ b/t/lib/searchdict.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..4\n"; diff --git a/t/lib/selectsaver.t b/t/lib/selectsaver.t index 677caec894..3b58d709ab 100755 --- a/t/lib/selectsaver.t +++ b/t/lib/selectsaver.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..3\n"; diff --git a/t/lib/selfloader.t b/t/lib/selfloader.t index 75d6561f9b..6b9c244b7e 100755 --- a/t/lib/selfloader.t +++ b/t/lib/selfloader.t @@ -3,7 +3,8 @@ BEGIN { chdir 't' if -d 't'; $dir = "self-$$"; - unshift @INC, ("./$dir", "../lib"); + @INC = $dir; + push @INC, '../lib'; print "1..19\n"; diff --git a/t/lib/socket.t b/t/lib/socket.t index d5e1848a3e..7017a54bc7 100755 --- a/t/lib/socket.t +++ b/t/lib/socket.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bSocket\b/ && !(($^O eq 'VMS') && $Config{d_socket})) { diff --git a/t/lib/soundex.t b/t/lib/soundex.t index a04cccd43c..d35f264c7a 100755 --- a/t/lib/soundex.t +++ b/t/lib/soundex.t @@ -18,7 +18,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Text::Soundex; diff --git a/t/lib/st-06compat.t b/t/lib/st-06compat.t index 6ae0641b26..82c04f7305 100644 --- a/t/lib/st-06compat.t +++ b/t/lib/st-06compat.t @@ -14,7 +14,8 @@ BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-blessed.t b/t/lib/st-blessed.t index d0296cb748..284df4d450 100644 --- a/t/lib/st-blessed.t +++ b/t/lib/st-blessed.t @@ -14,7 +14,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-canonical.t b/t/lib/st-canonical.t index 3eeed14c9d..75abb84f91 100644 --- a/t/lib/st-canonical.t +++ b/t/lib/st-canonical.t @@ -14,7 +14,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-dclone.t b/t/lib/st-dclone.t index 01ba551cd7..231b70f5f9 100644 --- a/t/lib/st-dclone.t +++ b/t/lib/st-dclone.t @@ -14,7 +14,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-forgive.t b/t/lib/st-forgive.t index 822013b5ec..e707b3e6b8 100644 --- a/t/lib/st-forgive.t +++ b/t/lib/st-forgive.t @@ -20,7 +20,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-freeze.t b/t/lib/st-freeze.t index 8dde28f2e1..0b2d1bc763 100644 --- a/t/lib/st-freeze.t +++ b/t/lib/st-freeze.t @@ -14,7 +14,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-overload.t b/t/lib/st-overload.t index cb6a83ea3c..6083fafbe4 100644 --- a/t/lib/st-overload.t +++ b/t/lib/st-overload.t @@ -14,7 +14,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-recurse.t b/t/lib/st-recurse.t index ebaeba7a56..0cec4ee08a 100644 --- a/t/lib/st-recurse.t +++ b/t/lib/st-recurse.t @@ -14,7 +14,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-retrieve.t b/t/lib/st-retrieve.t index 2aec8f5a37..ee5c5a4833 100644 --- a/t/lib/st-retrieve.t +++ b/t/lib/st-retrieve.t @@ -14,7 +14,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-store.t b/t/lib/st-store.t index dd14617a39..9966143900 100644 --- a/t/lib/st-store.t +++ b/t/lib/st-store.t @@ -14,7 +14,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-tied.t b/t/lib/st-tied.t index dc6f81c723..0abbac4fa9 100644 --- a/t/lib/st-tied.t +++ b/t/lib/st-tied.t @@ -17,7 +17,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-tiedhook.t b/t/lib/st-tiedhook.t index a32a50d9e8..a8a8158534 100644 --- a/t/lib/st-tiedhook.t +++ b/t/lib/st-tiedhook.t @@ -14,7 +14,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/st-tieditems.t b/t/lib/st-tieditems.t index 3e32927158..44e4f5cad5 100644 --- a/t/lib/st-tieditems.t +++ b/t/lib/st-tieditems.t @@ -21,7 +21,8 @@ sub BEGIN { chdir('t') if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; diff --git a/t/lib/symbol.t b/t/lib/symbol.t index 14c919c0f3..03449a3ed7 100755 --- a/t/lib/symbol.t +++ b/t/lib/symbol.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..8\n"; diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t index 3cfe3022da..96625f2c88 100644 --- a/t/lib/syslfs.t +++ b/t/lib/syslfs.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; # Don't bother if there are no quad offsets. if ($Config{lseeksize} < 8) { diff --git a/t/lib/syslog.t b/t/lib/syslog.t index e1927bc4e3..7ad4204ee0 100755 --- a/t/lib/syslog.t +++ b/t/lib/syslog.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bSyslog\b/) { print "1..0 # Skip: Sys::Syslog was not built\n"; diff --git a/t/lib/textfill.t b/t/lib/textfill.t index daeee2367c..5ff3850caf 100755 --- a/t/lib/textfill.t +++ b/t/lib/textfill.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Text::Wrap qw(&fill); diff --git a/t/lib/texttabs.t b/t/lib/texttabs.t index 80395f4c02..ea9012c652 100755 --- a/t/lib/texttabs.t +++ b/t/lib/texttabs.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..3\n"; diff --git a/t/lib/textwrap.t b/t/lib/textwrap.t index bb1d5ca4a5..af24036f85 100755 --- a/t/lib/textwrap.t +++ b/t/lib/textwrap.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Text::Wrap qw(&wrap); diff --git a/t/lib/thr5005.t b/t/lib/thr5005.t index 6b3c800f9b..057a08fe7d 100755 --- a/t/lib/thr5005.t +++ b/t/lib/thr5005.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; if (! $Config{'use5005threads'}) { print "1..0 # Skip: not use5005threads\n"; diff --git a/t/lib/tie-push.t b/t/lib/tie-push.t index 23a0a9403a..b19aa0d0e8 100755 --- a/t/lib/tie-push.t +++ b/t/lib/tie-push.t @@ -2,7 +2,8 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; } { diff --git a/t/lib/tie-stdarray.t b/t/lib/tie-stdarray.t index 5a678a5a1f..c4ae07102e 100755 --- a/t/lib/tie-stdarray.t +++ b/t/lib/tie-stdarray.t @@ -2,7 +2,8 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; } use Tie::Array; diff --git a/t/lib/tie-stdhandle.t b/t/lib/tie-stdhandle.t index cf3a1831d0..d1f9a81822 100755 --- a/t/lib/tie-stdhandle.t +++ b/t/lib/tie-stdhandle.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Tie::Handle; diff --git a/t/lib/tie-stdpush.t b/t/lib/tie-stdpush.t index 35ae1b89a4..31af30c32c 100755 --- a/t/lib/tie-stdpush.t +++ b/t/lib/tie-stdpush.t @@ -2,7 +2,8 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '.'; + push @INC, '../lib'; } use Tie::Array; diff --git a/t/lib/timelocal.t b/t/lib/timelocal.t index 359d71e64c..100e0768aa 100755 --- a/t/lib/timelocal.t +++ b/t/lib/timelocal.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Time::Local; diff --git a/t/lib/trig.t b/t/lib/trig.t index 9420cd34d8..ac3445023b 100755 --- a/t/lib/trig.t +++ b/t/lib/trig.t @@ -10,7 +10,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Math::Trig; diff --git a/t/op/64bitint.t b/t/op/64bitint.t index 691d44e240..5cfb65acf6 100644 --- a/t/op/64bitint.t +++ b/t/op/64bitint.t @@ -7,7 +7,7 @@ BEGIN { exit(0); } chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } # This could use many more tests. diff --git a/t/op/assignwarn.t b/t/op/assignwarn.t index b95cec51a1..2d05b82289 100755 --- a/t/op/assignwarn.t +++ b/t/op/assignwarn.t @@ -8,7 +8,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use strict; diff --git a/t/op/attrs.t b/t/op/attrs.t index 615e4d3343..2702004881 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } sub NTESTS () ; diff --git a/t/op/avhv.t b/t/op/avhv.t index cd7c957619..5b91fd2147 100755 --- a/t/op/avhv.t +++ b/t/op/avhv.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } require Tie::Array; diff --git a/t/op/bless.t b/t/op/bless.t index 46bf6c311e..3aaceb8ce7 100644 --- a/t/op/bless.t +++ b/t/op/bless.t @@ -4,7 +4,7 @@ print "1..31\n"; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } sub expected { diff --git a/t/op/bop.t b/t/op/bop.t index edee72d05f..8279abae2d 100755 --- a/t/op/bop.t +++ b/t/op/bop.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..35\n"; diff --git a/t/op/closure.t b/t/op/closure.t index c691d6f034..5f3245fbc9 100755 --- a/t/op/closure.t +++ b/t/op/closure.t @@ -7,7 +7,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Config; diff --git a/t/op/defins.t b/t/op/defins.t index 9e714a718b..33c74ea28e 100755 --- a/t/op/defins.t +++ b/t/op/defins.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; $SIG{__WARN__} = sub { $warns++; warn $_[0] }; print "1..14\n"; } diff --git a/t/op/die_exit.t b/t/op/die_exit.t index cb0478b9b2..a389946fe3 100755 --- a/t/op/die_exit.t +++ b/t/op/die_exit.t @@ -7,7 +7,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -e '../lib'; + @INC = '../lib'; } if ($^O eq 'mpeix') { diff --git a/t/op/exists_sub.t b/t/op/exists_sub.t index 3363dfd837..d4aa29251a 100755 --- a/t/op/exists_sub.t +++ b/t/op/exists_sub.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..9\n"; diff --git a/t/op/filetest.t b/t/op/filetest.t index e00d5fb7b0..f757c79c05 100755 --- a/t/op/filetest.t +++ b/t/op/filetest.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } use Config; diff --git a/t/op/fork.t b/t/op/fork.t index 7c2add9dce..93cf673228 100755 --- a/t/op/fork.t +++ b/t/op/fork.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require Config; import Config; unless ($Config{'d_fork'} or ($^O eq 'MSWin32' and $Config{useithreads} diff --git a/t/op/glob.t b/t/op/glob.t index 4c2744590b..fc0ba77124 100755 --- a/t/op/glob.t +++ b/t/op/glob.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..6\n"; diff --git a/t/op/goto_xs.t b/t/op/goto_xs.t index 8d9bca1cd6..cf2cafd467 100755 --- a/t/op/goto_xs.t +++ b/t/op/goto_xs.t @@ -10,7 +10,7 @@ # break correctly as well. chdir 't' if -d 't'; -unshift @INC, "../lib"; +@INC = '../lib'; $ENV{PERL5LIB} = "../lib"; # turn warnings into fatal errors diff --git a/t/op/grent.t b/t/op/grent.t index 27c9427f27..211dc911bb 100755 --- a/t/op/grent.t +++ b/t/op/grent.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, "../lib" if -d "../lib"; + @INC = '../lib'; eval {my @n = getgrgid 0}; if ($@ && $@ =~ /(The \w+ function is unimplemented)/) { print "1..0 # Skip: $1\n"; @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use warnings; diff --git a/t/op/hashwarn.t b/t/op/hashwarn.t index 9182273ec3..8466a7196e 100755 --- a/t/op/hashwarn.t +++ b/t/op/hashwarn.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use strict; diff --git a/t/op/int.t b/t/op/int.t index bf2100264d..7d675a4291 100755 --- a/t/op/int.t +++ b/t/op/int.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..7\n"; diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t index 6665f2931b..181c842030 100755 --- a/t/op/lex_assign.t +++ b/t/op/lex_assign.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; diff --git a/t/op/lfs.t b/t/op/lfs.t index 97c920c2cf..feee8cc9b3 100644 --- a/t/op/lfs.t +++ b/t/op/lfs.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; # Don't bother if there are no quad offsets. require Config; import Config; if ($Config{lseeksize} < 8) { diff --git a/t/op/lop.t b/t/op/lop.t index f15201ff09..d57271abd6 100755 --- a/t/op/lop.t +++ b/t/op/lop.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..7\n"; diff --git a/t/op/magic.t b/t/op/magic.t index 27be423a2c..e2acb1f641 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -3,7 +3,7 @@ BEGIN { $| = 1; chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; $SIG{__WARN__} = sub { die "Dying on warning: ", @_ }; } diff --git a/t/op/method.t b/t/op/method.t index 6e25310734..be4df75fe2 100755 --- a/t/op/method.t +++ b/t/op/method.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } print "1..53\n"; diff --git a/t/op/misc.t b/t/op/misc.t index 39719b474c..f0d7f547fc 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -4,7 +4,7 @@ # separate executable and can't simply use eval. chdir 't' if -d 't'; -unshift @INC, "../lib"; +@INC = '../lib'; $ENV{PERL5LIB} = "../lib"; $|=1; diff --git a/t/op/mkdir.t b/t/op/mkdir.t index cf8e55d75e..c5a090ca7d 100755 --- a/t/op/mkdir.t +++ b/t/op/mkdir.t @@ -4,7 +4,7 @@ print "1..9\n"; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use File::Path; diff --git a/t/op/my_stash.t b/t/op/my_stash.t index 79f3f28a08..4a1d5022e0 100644 --- a/t/op/my_stash.t +++ b/t/op/my_stash.t @@ -3,7 +3,7 @@ package Foo; BEGIN { - unshift @INC, "../lib"; + @INC = '../lib'; } use Test; diff --git a/t/op/nothr5005.t b/t/op/nothr5005.t index fd36e2e89a..411a0b470e 100755 --- a/t/op/nothr5005.t +++ b/t/op/nothr5005.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, "../lib"; + @INC = '../lib'; require Config; import Config; if ($Config{'use5005threads'}) diff --git a/t/op/pack.t b/t/op/pack.t index 5c215c6f0f..67bd547c5b 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; require Config; import Config; } diff --git a/t/op/pat.t b/t/op/pat.t index 2ba6d934d2..f0090865a1 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -8,7 +8,7 @@ print "1..223\n"; BEGIN { chdir 't' if -d 't'; - unshift @INC, "../lib" if -d "../lib"; + @INC = '../lib'; } eval 'use Config'; # Defaults assumed if this fails diff --git a/t/op/pwent.t b/t/op/pwent.t index ea89505291..4cccbfe016 100755 --- a/t/op/pwent.t +++ b/t/op/pwent.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, "../lib" if -d "../lib"; + @INC = '../lib'; eval {my @n = getpwuid 0}; if ($@ && $@ =~ /(The \w+ function is unimplemented)/) { print "1..0 # Skip: $1\n"; diff --git a/t/op/quotemeta.t b/t/op/quotemeta.t index ec247f8ce7..ea62ed8ecf 100755 --- a/t/op/quotemeta.t +++ b/t/op/quotemeta.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; require Config; import Config; } diff --git a/t/op/rand.t b/t/op/rand.t index 97019bb099..83186aeb66 100755 --- a/t/op/rand.t +++ b/t/op/rand.t @@ -17,7 +17,7 @@ BEGIN { chdir "t" if -d "t"; - unshift @INC, "../lib" if -d "../lib"; + @INC = '../lib'; } use strict; diff --git a/t/op/readdir.t b/t/op/readdir.t index ad7a8abee3..00199b0fec 100755 --- a/t/op/readdir.t +++ b/t/op/readdir.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } eval 'opendir(NOSUCH, "no/such/directory");'; diff --git a/t/op/regexp.t b/t/op/regexp.t index 4ffe1362c6..23ae576c75 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -33,7 +33,7 @@ $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } $iters = shift || 1; # Poor man performance suite, 10000 is OK. diff --git a/t/op/regmesg.t b/t/op/regmesg.t index 2267206b67..f209239841 100644 --- a/t/op/regmesg.t +++ b/t/op/regmesg.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } my $debug = 1; diff --git a/t/op/runlevel.t b/t/op/runlevel.t index 3865e52070..b6c128bcb9 100755 --- a/t/op/runlevel.t +++ b/t/op/runlevel.t @@ -7,7 +7,7 @@ ## chdir 't' if -d 't'; -unshift @INC, "../lib"; +@INC = '../lib'; $Is_VMS = $^O eq 'VMS'; $Is_MSWin32 = $^O eq 'MSWin32'; $ENV{PERL5LIB} = "../lib" unless $Is_VMS; diff --git a/t/op/sort.t b/t/op/sort.t index 8161701b0e..9095871a29 100755 --- a/t/op/sort.t +++ b/t/op/sort.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use warnings; print "1..57\n"; diff --git a/t/op/sprintf.t b/t/op/sprintf.t index 8bb75365dd..1fda31e2f0 100755 --- a/t/op/sprintf.t +++ b/t/op/sprintf.t @@ -8,7 +8,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use warnings; diff --git a/t/op/stat.t b/t/op/stat.t index 45b7ed9203..1317ba8e7c 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use Config; diff --git a/t/op/subst.t b/t/op/subst.t index 9757f4c595..7dd7a1c92c 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; require Config; import Config; } diff --git a/t/op/subst_amp.t b/t/op/subst_amp.t index e2e7c0e542..71895720f7 100755 --- a/t/op/subst_amp.t +++ b/t/op/subst_amp.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; require Config; import Config; } diff --git a/t/op/substr.t b/t/op/substr.t index f2a0c6c4fe..891e9041a7 100755 --- a/t/op/substr.t +++ b/t/op/substr.t @@ -6,7 +6,7 @@ print "1..135\n"; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } use warnings ; diff --git a/t/op/taint.t b/t/op/taint.t index 44f50aea18..7cc4447a0b 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -9,7 +9,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } use strict; diff --git a/t/op/tie.t b/t/op/tie.t index 9543420a42..696a9265fb 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -6,7 +6,7 @@ # Currently it only tests the untie warning chdir 't' if -d 't'; -unshift @INC, "../lib"; +@INC = '../lib'; $ENV{PERL5LIB} = "../lib"; $|=1; diff --git a/t/op/tiearray.t b/t/op/tiearray.t index 25fda3fb03..8e78b2f76b 100755 --- a/t/op/tiearray.t +++ b/t/op/tiearray.t @@ -3,7 +3,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } my %seen; diff --git a/t/op/tiehandle.t b/t/op/tiehandle.t index 6ae3faaaec..d7e6a78baf 100755 --- a/t/op/tiehandle.t +++ b/t/op/tiehandle.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } my @expect; @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, "../lib"; + @INC = '../lib'; } print "1..27\n"; diff --git a/t/op/undef.t b/t/op/undef.t index 8944ee3976..f6e36a5bed 100755 --- a/t/op/undef.t +++ b/t/op/undef.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } print "1..27\n"; diff --git a/t/op/universal.t b/t/op/universal.t index a0a74ec4b2..e6db8e691f 100755 --- a/t/op/universal.t +++ b/t/op/universal.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; $| = 1; } diff --git a/t/op/ver.t b/t/op/ver.t index 5346f392ce..63cb7164dd 100755 --- a/t/op/ver.t +++ b/t/op/ver.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, "../lib"; + @INC = '../lib'; } print "1..23\n"; diff --git a/t/pragma/constant.t b/t/pragma/constant.t index dde64ceebd..450b4d02cf 100755 --- a/t/pragma/constant.t +++ b/t/pragma/constant.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; + @INC = '../lib'; } use warnings; diff --git a/t/pragma/diagnostics.t b/t/pragma/diagnostics.t index 15cd6b5927..14014f6b68 100755 --- a/t/pragma/diagnostics.t +++ b/t/pragma/diagnostics.t @@ -1,8 +1,8 @@ #!./perl BEGIN { - chdir '..' if -d '../pod'; - unshift @INC, './lib' if -d './lib'; + chdir '..' if -d '../pod' && -d '../t'; + @INC = 'lib'; } diff --git a/t/pragma/locale.t b/t/pragma/locale.t index 5f601153aa..c8a0df8724 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; unshift @INC, '.'; require Config; import Config; if (!$Config{d_setlocale} || $Config{ccflags} =~ /\bD?NO_LOCALE\b/) { diff --git a/t/pragma/overload.t b/t/pragma/overload.t index a5949b68d8..42e400637f 100755 --- a/t/pragma/overload.t +++ b/t/pragma/overload.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } package Oscalar; diff --git a/t/pragma/strict.t b/t/pragma/strict.t index 167b3604f5..5b245d0ab4 100755 --- a/t/pragma/strict.t +++ b/t/pragma/strict.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; $ENV{PERL5LIB} = '../lib'; } diff --git a/t/pragma/sub_lval.t b/t/pragma/sub_lval.t index e96c329d8e..3ab8766892 100755 --- a/t/pragma/sub_lval.t +++ b/t/pragma/sub_lval.t @@ -2,7 +2,7 @@ print "1..46\n"; BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } sub a : lvalue { my $a = 34; bless \$a } # Return a temporary diff --git a/t/pragma/subs.t b/t/pragma/subs.t index fe84f5ef76..cebb635d60 100755 --- a/t/pragma/subs.t +++ b/t/pragma/subs.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; $ENV{PERL5LIB} = '../lib'; } diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t index d1546feeaf..1d0bef798e 100755 --- a/t/pragma/utf8.t +++ b/t/pragma/utf8.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; $ENV{PERL5LIB} = '../lib'; if ( ord("\t") != 9 ) { # skip on ebcdic platforms print "1..0 # Skip utf8 tests on ebcdic platform.\n"; diff --git a/t/pragma/warnings.t b/t/pragma/warnings.t index a551740b17..66b4ff9160 100644 --- a/t/pragma/warnings.t +++ b/t/pragma/warnings.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; $ENV{PERL5LIB} = '../lib'; require Config; import Config; } |