diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-25 16:15:59 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-29 02:09:53 +0000 |
| commit | 20822f61cc01ab34be1e17db483aceb9d5ec8fb7 (patch) | |
| tree | e81ff4ef8b435f718d8ca14ebf2df9dbf32a3601 /t/lib | |
| parent | 4009639630e1c5aaaff711ab11d5e4837d5bfe2c (diff) | |
| download | perl-20822f61cc01ab34be1e17db483aceb9d5ec8fb7.tar.gz | |
Use minimal @INC in tests, most of the time just '../lib',
so that we simply can't pick up stuff from other Perls than
the one we are testing. Pointed out by
Subject: Re: [PATCH: 6757] make new Storable tests forgiving of places where not built
Message-Id: <E13SKH1-00031D-00@virgo.cus.cam.ac.uk>
p4raw-id: //depot/perl@6874
Diffstat (limited to 't/lib')
114 files changed, 132 insertions, 114 deletions
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; |