diff options
117 files changed, 314 insertions, 119 deletions
@@ -79,6 +79,201 @@ Version 5.005_55 Development release working toward 5.006 ---------------- ____________________________________________________________________________ +[ 2890] By: gsar on 1999/02/12 10:00:30 + Log: add $AutoLoader::VERSION + Branch: perl + ! lib/AutoLoader.pm +____________________________________________________________________________ +[ 2889] By: gsar on 1999/02/12 09:55:48 + Log: tweak PERL_STRICT_CR notes + Branch: perl + ! pod/perl5005delta.pod +____________________________________________________________________________ +[ 2888] By: gsar on 1999/02/12 09:41:45 + Log: add note about test-notty target + Branch: perl + ! README.win32 +____________________________________________________________________________ +[ 2887] By: gsar on 1999/02/12 09:37:37 + Log: add perltodo.pod + Branch: perl + + pod/perltodo.pod + ! MANIFEST Todo pod/Makefile pod/perl.pod pod/roffitall + ! win32/pod.mak +____________________________________________________________________________ +[ 2886] By: jhi on 1999/02/12 08:52:14 + Log: Integrate from mainperl. + Branch: cfgperl + +> t/op/fh.t + !> (integrate 30 files) +____________________________________________________________________________ +[ 2885] By: gsar on 1999/02/12 08:42:10 + Log: note how to find REG_INFTY limit + Branch: perl + ! pod/perlre.pod +____________________________________________________________________________ +[ 2884] By: jhi on 1999/02/12 08:36:14 + Log: OpenBSD pthreads awareness, thanks to + David Leonard <david.leonard@csee.uq.edu.au> + Branch: maint-5.005/perl + ! Configure hints/openbsd.sh +____________________________________________________________________________ +[ 2883] By: jhi on 1999/02/12 08:29:51 + Log: AVAILABILITY sync. + Branch: maint-5.005/perl + ! pod/perl.pod +____________________________________________________________________________ +[ 2882] By: gsar on 1999/02/12 08:05:20 + Log: IO is maintained by p5p (per Graham Barr's wishes) + Branch: perl + ! MAINTAIN ext/IO/ChangeLog ext/IO/README ext/IO/lib/IO/Dir.pm + ! ext/IO/lib/IO/Pipe.pm ext/IO/lib/IO/Poll.pm + ! ext/IO/lib/IO/Select.pm ext/IO/lib/IO/Socket.pm + ! ext/IO/lib/IO/Socket/INET.pm ext/IO/lib/IO/Socket/UNIX.pm +____________________________________________________________________________ +[ 2881] By: gsar on 1999/02/12 07:57:13 + Log: fh.t typo + Branch: perl + ! t/op/fh.t +____________________________________________________________________________ +[ 2880] By: gsar on 1999/02/12 07:38:16 + Log: PERL5OPT=-T enables taint mode (suggested by Jason Riedy <ejr@cise.ufl.edu>) + Branch: perl + ! perl.c pod/perlrun.pod +____________________________________________________________________________ +[ 2879] By: gsar on 1999/02/12 05:39:29 + Log: fix ops that are not filehandle constructors to not create GV if it + doesn't already exist (avoids leaks); extend semantics of defined() + so that defined(*{$foo}) works (experimental) + Branch: perl + + t/op/fh.t + ! MANIFEST embed.h embed.pl objXSUB.h op.c pod/perldiag.pod pp.c + ! pp_hot.c pp_sys.c proto.h t/op/gv.t t/op/misc.t +____________________________________________________________________________ +[ 2878] By: jhi on 1999/02/11 22:00:50 + Log: Replace changes #2783, #2784, #2785, with a single tested + patch from Francois Desarmenien <desar@club-internet.fr>. + Branch: maint-5.005/perl + ! MANIFEST ext/GDBM_File/hints/sco.pl ext/IPC/SysV/SysV.xs + ! hints/sco.sh +____________________________________________________________________________ +[ 2877] By: jhi on 1999/02/11 20:44:00 + Log: From: Chris Nandor <pudge@pobox.com> + To: perl5-porters@perl.org + Subject: [PATCH] perlport.pod 1.39 + Date: Thu, 11 Feb 1999 12:28:35 -0500 + Message-Id: <v04020a2db2e8c3177123@[192.168.0.77]> + Branch: cfgperl + ! pod/perlport.pod +____________________________________________________________________________ +[ 2876] By: jhi on 1999/02/11 20:43:17 + Log: From: Chris Nandor <pudge@pobox.com> + To: perl5-porters@perl.org + Subject: [PATCH] perlport.pod 1.39 + Date: Thu, 11 Feb 1999 12:28:35 -0500 + Message-Id: <v04020a2db2e8c3177123@[192.168.0.77]> + Branch: maint-5.005/perl + ! pod/perlport.pod +____________________________________________________________________________ +[ 2875] By: jhi on 1999/02/11 20:35:08 + Log: The fpsetmask() really is SCO5 only. + Branch: maint-5.005/perl + ! unixish.h +____________________________________________________________________________ +[ 2874] By: jhi on 1999/02/11 20:32:06 + Log: Change #2783 missed these. + Branch: maint-5.005/perl + ! ext/IPC/SysV/SysV.xs unixish.h +____________________________________________________________________________ +[ 2873] By: jhi on 1999/02/11 20:27:45 + Log: Import the change #2810 from cfgperl. + Branch: maint-5.005/perl + + ext/GDBM_File/hints/sco.pl + ! MANIFEST hints/sco.sh unixish.h +____________________________________________________________________________ +[ 2872] By: jhi on 1999/02/11 19:57:37 + Log: Sync the current AVAILABILITY. + Branch: maint-5.005/perl + ! pod/perl.pod pod/perldelta.pod +____________________________________________________________________________ +[ 2871] By: jhi on 1999/02/11 19:42:54 + Log: Copied the GNU/Hurd hints file over from cfgperl + because it works well enough (there are still some + rough edges in Hurd), verified via private + email from Mark Kettenis <kettenis@wins.uva.nl> + Branch: maint-5.005/perl + + hints/gnu.sh +____________________________________________________________________________ +[ 2870] By: gsar on 1999/02/11 11:17:08 + Log: remove double typeglob deref (suggested by RonaldWS <ronaldws@aol.com>) + Branch: perl + ! ext/IO/lib/IO/Pipe.pm +____________________________________________________________________________ +[ 2869] By: gsar on 1999/02/11 11:00:56 + Log: update win32/pod.mak + Branch: perl + ! win32/pod.mak +____________________________________________________________________________ +[ 2868] By: gsar on 1999/02/11 10:42:44 + Log: From: Benjamin Low <b.d.low@unsw.edu.au> + Date: Fri, 08 Jan 1999 14:36:53 +1100 + Message-ID: <36957D55.1D65A0B2@unsw.edu.au> + Subject: Re: [Fwd: IO::Socket::connect and blocking] + Branch: perl + ! ext/IO/lib/IO/Socket.pm +____________________________________________________________________________ +[ 2867] By: gsar on 1999/02/11 09:43:03 + Log: av_extend() doc tweak from Jan Dubois + Branch: perl + ! pod/perlguts.pod +____________________________________________________________________________ +[ 2866] By: gsar on 1999/02/11 09:27:17 + Log: display full pathname of unreadable files + Branch: perl + ! utils/perldoc.PL +____________________________________________________________________________ +[ 2865] By: gsar on 1999/02/11 09:02:31 + Log: missing patch in change#2522 + Branch: perl + ! lib/Pod/Text.pm +____________________________________________________________________________ +[ 2864] By: jhi on 1999/02/11 08:45:00 + Log: From: Spider Boardman <spider@zk3.dec.com> + To: perlbug@perl.com + Subject: Not OK: perl 5.00503 +MAINT_TRIAL_5 on RISC-ultrix 4.4 (UNINSTALLED) + Date: Wed, 10 Feb 1999 23:33:31 -0500 + Message-Id: <9902110433.AA12816@abyss.zk3.dec.com> + Branch: maint-5.005/perl + ! doio.c ext/IPC/SysV/SysV.xs hints/ultrix_4.sh +____________________________________________________________________________ +[ 2863] By: jhi on 1999/02/11 08:35:35 + Log: AVAILABILITY. + Branch: maint-5.005/perl + ! pod/perl.pod +____________________________________________________________________________ +[ 2862] By: gsar on 1999/02/11 08:14:34 + Log: integrate changes#2738,2740 from maint-5.005 + Branch: perl + !> lib/ExtUtils/MakeMaker.pm +____________________________________________________________________________ +[ 2861] By: jhi on 1999/02/11 08:04:25 + Log: Integrate from mainperl. + Branch: cfgperl + !> Changes perl.h pod/perl5005delta.pod pp_ctl.c t/op/local.t + !> t/op/range.t win32/config.gc +____________________________________________________________________________ +[ 2860] By: gsar on 1999/02/11 07:30:08 + Log: binmode() support for cygwin32 (suggested by Steven Morlock + <newspost@morlock.net>) + Branch: perl + ! perl.h +____________________________________________________________________________ +[ 2859] By: gsar on 1999/02/11 07:14:21 + Log: update Changes + Branch: perl + ! Changes + !> pod/perl5005delta.pod +____________________________________________________________________________ [ 2858] By: gsar on 1999/02/11 07:10:59 Log: remove dup hunk Branch: maint-5.005/perl diff --git a/t/base/term.t b/t/base/term.t index e96313dec5..638069482f 100755 --- a/t/base/term.t +++ b/t/base/term.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Config; diff --git a/t/comp/colon.t b/t/comp/colon.t index d2c64fe4c5..dee5330ff2 100755 --- a/t/comp/colon.t +++ b/t/comp/colon.t @@ -9,7 +9,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use strict; diff --git a/t/comp/cpp.t b/t/comp/cpp.t index 86e7359524..f6450a5f75 100755 --- a/t/comp/cpp.t +++ b/t/comp/cpp.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Config; diff --git a/t/comp/proto.t b/t/comp/proto.t index 6a59107ce7..084e0ab715 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -11,7 +11,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use strict; diff --git a/t/comp/require.t b/t/comp/require.t index 5c41f5ccec..fc72c079b0 100755 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = ('.', '../lib'); + unshift @INC, ('.', '../lib'); } # don't make this lexical diff --git a/t/comp/use.t b/t/comp/use.t index a6ce2a4d56..1099547393 100755 --- a/t/comp/use.t +++ b/t/comp/use.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..14\n"; @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; $ENV{PERL5LIB} = '../lib'; # so children will see it too } use lib '../lib'; @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Config; diff --git a/t/io/pipe.t b/t/io/pipe.t index 13db20b0c9..9f12ed8c73 100755 --- a/t/io/pipe.t +++ b/t/io/pipe.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; require Config; import Config; unless ($Config{'d_fork'}) { print "1..0\n"; diff --git a/t/lib/abbrev.t b/t/lib/abbrev.t index fb5a9841eb..05e5c70cac 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'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Text::Abbrev; diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t index 0391b7b490..4d33e2233a 100755 --- a/t/lib/anydbm.t +++ b/t/lib/anydbm.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } require AnyDBM_File; #If Fcntl is not available, try 0x202 or 0x102 for O_RDWR|O_CREAT diff --git a/t/lib/autoloader.t b/t/lib/autoloader.t index b1622a8ae2..47cace2024 100755 --- a/t/lib/autoloader.t +++ b/t/lib/autoloader.t @@ -3,7 +3,7 @@ BEGIN { chdir 't' if -d 't'; $dir = "auto-$$"; - @INC = ("./$dir", "../lib"); + unshift @INC, ("./$dir", "../lib"); } print "1..9\n"; diff --git a/t/lib/basename.t b/t/lib/basename.t index a02aa32cb7..478e26a8a5 100755 --- a/t/lib/basename.t +++ b/t/lib/basename.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use File::Basename qw(fileparse basename dirname); diff --git a/t/lib/bigint.t b/t/lib/bigint.t index 034c5c6457..d2d520ea3c 100755 --- a/t/lib/bigint.t +++ b/t/lib/bigint.t @@ -1,6 +1,6 @@ #!./perl -BEGIN { @INC = '../lib' } +BEGIN { unshift @INC, '../lib' } require "bigint.pl"; $test = 0; diff --git a/t/lib/bigintpm.t b/t/lib/bigintpm.t index e7cac26323..e6c775f2f5 100755 --- a/t/lib/bigintpm.t +++ b/t/lib/bigintpm.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Math::BigInt; diff --git a/t/lib/cgi-form.t b/t/lib/cgi-form.t index 86df161b02..83217a2070 100755 --- a/t/lib/cgi-form.t +++ b/t/lib/cgi-form.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } BEGIN {$| = 1; print "1..17\n"; } diff --git a/t/lib/cgi-function.t b/t/lib/cgi-function.t index ad8b968161..b4cd56811f 100755 --- a/t/lib/cgi-function.t +++ b/t/lib/cgi-function.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } BEGIN {$| = 1; print "1..24\n"; } diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t index c673806af6..3fe41d170a 100755 --- a/t/lib/cgi-html.t +++ b/t/lib/cgi-html.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; require Config; import Config; } diff --git a/t/lib/cgi-request.t b/t/lib/cgi-request.t index 8c70c40350..2a6f3fb906 100755 --- a/t/lib/cgi-request.t +++ b/t/lib/cgi-request.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } BEGIN {$| = 1; print "1..31\n"; } diff --git a/t/lib/checktree.t b/t/lib/checktree.t index b5426ca261..760357529b 100755 --- a/t/lib/checktree.t +++ b/t/lib/checktree.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..1\n"; diff --git a/t/lib/complex.t b/t/lib/complex.t index c073f506e3..6fbdf8dd67 100755 --- a/t/lib/complex.t +++ b/t/lib/complex.t @@ -9,7 +9,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Math::Complex; diff --git a/t/lib/db-btree.t b/t/lib/db-btree.t index bf739c81d5..1ebc64df35 100755 --- a/t/lib/db-btree.t +++ b/t/lib/db-btree.t @@ -1,7 +1,7 @@ #!./perl -w BEGIN { - @INC = '../lib' if -d '../lib' ; + unshift @INC, '../lib' if -d '../lib' ; require Config; import Config; if ($Config{'extensions'} !~ /\bDB_File\b/) { print "1..0\n"; diff --git a/t/lib/db-hash.t b/t/lib/db-hash.t index e748472263..9f2456f7bb 100755 --- a/t/lib/db-hash.t +++ b/t/lib/db-hash.t @@ -1,7 +1,7 @@ #!./perl -w BEGIN { - @INC = '../lib' if -d '../lib' ; + unshift @INC, '../lib' if -d '../lib' ; require Config; import Config; if ($Config{'extensions'} !~ /\bDB_File\b/) { print "1..0\n"; diff --git a/t/lib/db-recno.t b/t/lib/db-recno.t index c89c3cafde..636a43fa59 100755 --- a/t/lib/db-recno.t +++ b/t/lib/db-recno.t @@ -1,7 +1,7 @@ #!./perl -w BEGIN { - @INC = '../lib' if -d '../lib' ; + unshift @INC, '../lib' if -d '../lib' ; require Config; import Config; if ($Config{'extensions'} !~ /\bDB_File\b/) { print "1..0\n"; diff --git a/t/lib/dirhand.t b/t/lib/dirhand.t index aa7be356df..a8683c7fb8 100755 --- a/t/lib/dirhand.t +++ b/t/lib/dirhand.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 577d4eac22..ea537bf6d1 100755 --- a/t/lib/dosglob.t +++ b/t/lib/dosglob.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..10\n"; diff --git a/t/lib/dumper-ovl.t b/t/lib/dumper-ovl.t index db4a5d9e75..8c095e59be 100755 --- a/t/lib/dumper-ovl.t +++ b/t/lib/dumper-ovl.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } use Data::Dumper; diff --git a/t/lib/dumper.t b/t/lib/dumper.t index 063df83457..96c07ea48a 100755 --- a/t/lib/dumper.t +++ b/t/lib/dumper.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } use Data::Dumper; diff --git a/t/lib/english.t b/t/lib/english.t index 9691229be0..2ee613352b 100755 --- a/t/lib/english.t +++ b/t/lib/english.t @@ -2,7 +2,7 @@ print "1..16\n"; -BEGIN { @INC = '../lib' } +BEGIN { unshift @INC, '../lib' } use English; use Config; my $threads = $Config{'usethreads'} || 0; diff --git a/t/lib/env.t b/t/lib/env.t index 5a8220778a..93d24066e6 100755 --- a/t/lib/env.t +++ b/t/lib/env.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } BEGIN { diff --git a/t/lib/errno.t b/t/lib/errno.t index 361723f1b2..6320f6b236 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/fields.t b/t/lib/fields.t index 139e469b5a..5aae3451cc 100755 --- a/t/lib/fields.t +++ b/t/lib/fields.t @@ -4,7 +4,7 @@ my $w; BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../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 a97fdd532c..019f3742c5 100755 --- a/t/lib/filecache.t +++ b/t/lib/filecache.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..1\n"; diff --git a/t/lib/filecopy.t b/t/lib/filecopy.t index 329931f4b4..e461595d9b 100755 --- a/t/lib/filecopy.t +++ b/t/lib/filecopy.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..11\n"; diff --git a/t/lib/filefind.t b/t/lib/filefind.t index cd2e9771c7..5d1492f040 100755 --- a/t/lib/filefind.t +++ b/t/lib/filefind.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..2\n"; diff --git a/t/lib/filehand.t b/t/lib/filehand.t index 827410a96a..22cff0ecb0 100755 --- a/t/lib/filehand.t +++ b/t/lib/filehand.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 c3bf4a4479..40e6e213c1 100755 --- a/t/lib/filepath.t +++ b/t/lib/filepath.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use File::Path; diff --git a/t/lib/filespec.t b/t/lib/filespec.t index ca22d3e12b..3aeed17958 100755 --- a/t/lib/filespec.t +++ b/t/lib/filespec.t @@ -3,7 +3,7 @@ BEGIN { $^O = ''; chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..4\n"; diff --git a/t/lib/findbin.t b/t/lib/findbin.t index 3e742f9a4f..f0939e94a9 100755 --- a/t/lib/findbin.t +++ b/t/lib/findbin.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..1\n"; diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t index 2395611d1e..f88d4708bb 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 { - @INC = '../lib'; + unshift @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bGDBM_File\b/) { print "1..0\n"; diff --git a/t/lib/getopt.t b/t/lib/getopt.t index fb70f10aae..035462722b 100755 --- a/t/lib/getopt.t +++ b/t/lib/getopt.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..11\n"; diff --git a/t/lib/h2ph.t b/t/lib/h2ph.t index 1fa7f63536..467e6965ab 100755 --- a/t/lib/h2ph.t +++ b/t/lib/h2ph.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..2\n"; diff --git a/t/lib/hostname.t b/t/lib/hostname.t index e4ac36521c..30dcf0f0b7 100755 --- a/t/lib/hostname.t +++ b/t/lib/hostname.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Sys::Hostname; diff --git a/t/lib/io_const.t b/t/lib/io_const.t index 3d747f1c3b..48cb6b5dc8 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_dir.t b/t/lib/io_dir.t index 889e35cc7a..11ec8bcbf9 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../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 6b0caf14fa..c895fb4c25 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_multihomed.t b/t/lib/io_multihomed.t index d9b96c0164..de15b3e42e 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_pipe.t b/t/lib/io_pipe.t index e617c92432..0c1a498226 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_poll.t b/t/lib/io_poll.t index a0d081b034..c179ce96fb 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_sel.t b/t/lib/io_sel.t index 3dc651bbc2..e0d7a45338 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_sock.t b/t/lib/io_sock.t index 60f5b5a9e1..b1189a0044 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_taint.t b/t/lib/io_taint.t index 0ef2cfd63f..deaa6c7f61 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_tell.t b/t/lib/io_tell.t index 2009d610db..8d75242251 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; $tell_file = "TEST"; } else { diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t index 88cb4b6629..1434873125 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_unix.t b/t/lib/io_unix.t index 1d7842b6dc..ccb274847f 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/io_xs.t b/t/lib/io_xs.t index 1a6fd381a3..6bbba16f8c 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'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } } diff --git a/t/lib/ipc_sysv.t b/t/lib/ipc_sysv.t index 500b5b6ae8..1cbde9687a 100755 --- a/t/lib/ipc_sysv.t +++ b/t/lib/ipc_sysv.t @@ -3,7 +3,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; require Config; import Config; diff --git a/t/lib/ndbm.t b/t/lib/ndbm.t index a97dbd1f1e..be122ff687 100755 --- a/t/lib/ndbm.t +++ b/t/lib/ndbm.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bNDBM_File\b/) { print "1..0\n"; diff --git a/t/lib/odbm.t b/t/lib/odbm.t index 8ba9bcf3a4..78d8593319 100755 --- a/t/lib/odbm.t +++ b/t/lib/odbm.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bODBM_File\b/) { print "1..0\n"; diff --git a/t/lib/opcode.t b/t/lib/opcode.t index a785fce48b..f83a689f05 100755 --- a/t/lib/opcode.t +++ b/t/lib/opcode.t @@ -4,7 +4,7 @@ $|=1; BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 85b807c98a..64431123e8 100755 --- a/t/lib/open2.t +++ b/t/lib/open2.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 b84dac9f14..3a5d1c16df 100755 --- a/t/lib/open3.t +++ b/t/lib/open3.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 56b1bacabb..ce8b6d0d5f 100755 --- a/t/lib/ops.t +++ b/t/lib/ops.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 3c5e75b187..86323b6fc6 100755 --- a/t/lib/parsewords.t +++ b/t/lib/parsewords.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Text::ParseWords; diff --git a/t/lib/ph.t b/t/lib/ph.t index de27dee5e2..dd24c79f2d 100755 --- a/t/lib/ph.t +++ b/t/lib/ph.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 4f5ee196a9..6f72a8ee6b 100755 --- a/t/lib/posix.t +++ b/t/lib/posix.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 27993d95c9..6e12873585 100755 --- a/t/lib/safe1.t +++ b/t/lib/safe1.t @@ -2,7 +2,7 @@ $|=1; BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 e0dcfdda1c..572876c5ca 100755 --- a/t/lib/safe2.t +++ b/t/lib/safe2.t @@ -2,7 +2,7 @@ $|=1; BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 591fe14c60..70f0b74f69 100755 --- a/t/lib/sdbm.t +++ b/t/lib/sdbm.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 c36fdb8c34..46cea394bc 100755 --- a/t/lib/searchdict.t +++ b/t/lib/searchdict.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..4\n"; diff --git a/t/lib/selectsaver.t b/t/lib/selectsaver.t index 3b58d709ab..677caec894 100755 --- a/t/lib/selectsaver.t +++ b/t/lib/selectsaver.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..3\n"; diff --git a/t/lib/socket.t b/t/lib/socket.t index 4e382958ce..8f945ac6f7 100755 --- a/t/lib/socket.t +++ b/t/lib/socket.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../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 d35f264c7a..a04cccd43c 100755 --- a/t/lib/soundex.t +++ b/t/lib/soundex.t @@ -18,7 +18,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Text::Soundex; diff --git a/t/lib/symbol.t b/t/lib/symbol.t index 03449a3ed7..14c919c0f3 100755 --- a/t/lib/symbol.t +++ b/t/lib/symbol.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..8\n"; diff --git a/t/lib/textfill.t b/t/lib/textfill.t index 19add69423..9ae6de9fc1 100755 --- a/t/lib/textfill.t +++ b/t/lib/textfill.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } @tests = (split(/\nEND\n/s, <<DONE)); diff --git a/t/lib/texttabs.t b/t/lib/texttabs.t index ea9012c652..80395f4c02 100755 --- a/t/lib/texttabs.t +++ b/t/lib/texttabs.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..3\n"; diff --git a/t/lib/textwrap.t b/t/lib/textwrap.t index c3a455b15b..aee2500108 100755 --- a/t/lib/textwrap.t +++ b/t/lib/textwrap.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } @tests = (split(/\nEND\n/s, <<DONE)); diff --git a/t/lib/thread.t b/t/lib/thread.t index 83407a9fab..8d385236cc 100755 --- a/t/lib/thread.t +++ b/t/lib/thread.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; require Config; import Config; if (! $Config{'usethreads'}) { print "1..0\n"; diff --git a/t/lib/tie-push.t b/t/lib/tie-push.t index dd718deb14..23a0a9403a 100755 --- a/t/lib/tie-push.t +++ b/t/lib/tie-push.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } { @@ -21,4 +21,4 @@ tie @x,Basic; tie @get,Basic; tie @got,Basic; tie @tests,Basic; -require "../t/op/push.t" +require "op/push.t" diff --git a/t/lib/tie-stdarray.t b/t/lib/tie-stdarray.t index 7ca4d76f11..5a678a5a1f 100755 --- a/t/lib/tie-stdarray.t +++ b/t/lib/tie-stdarray.t @@ -2,11 +2,11 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Tie::Array; tie @foo,Tie::StdArray; tie @ary,Tie::StdArray; tie @bar,Tie::StdArray; -require "../t/op/array.t" +require "op/array.t" diff --git a/t/lib/tie-stdpush.t b/t/lib/tie-stdpush.t index 34a69472f4..35ae1b89a4 100755 --- a/t/lib/tie-stdpush.t +++ b/t/lib/tie-stdpush.t @@ -2,9 +2,9 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Tie::Array; tie @x,Tie::StdArray; -require "../t/op/push.t" +require "op/push.t" diff --git a/t/lib/timelocal.t b/t/lib/timelocal.t index 100e0768aa..359d71e64c 100755 --- a/t/lib/timelocal.t +++ b/t/lib/timelocal.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Time::Local; diff --git a/t/lib/trig.t b/t/lib/trig.t index 3114176ab0..20669f0bd9 100755 --- a/t/lib/trig.t +++ b/t/lib/trig.t @@ -10,7 +10,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Math::Trig; diff --git a/t/op/assignwarn.t b/t/op/assignwarn.t index 57e89c45e0..00f7abbf67 100755 --- a/t/op/assignwarn.t +++ b/t/op/assignwarn.t @@ -8,7 +8,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use strict; diff --git a/t/op/avhv.t b/t/op/avhv.t index 55cc992e63..6837127d52 100755 --- a/t/op/avhv.t +++ b/t/op/avhv.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } require Tie::Array; diff --git a/t/op/bop.t b/t/op/bop.t index b247341417..0c5ef4874d 100755 --- a/t/op/bop.t +++ b/t/op/bop.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..18\n"; diff --git a/t/op/closure.t b/t/op/closure.t index 95d44f51e3..2284be6df1 100755 --- a/t/op/closure.t +++ b/t/op/closure.t @@ -7,7 +7,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Config; diff --git a/t/op/defins.t b/t/op/defins.t index 33c74ea28e..9e714a718b 100755 --- a/t/op/defins.t +++ b/t/op/defins.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @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 e24d01d24c..7808d9d7c5 100755 --- a/t/op/die_exit.t +++ b/t/op/die_exit.t @@ -7,7 +7,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -e '../lib'; + unshift @INC, '../lib' if -e '../lib'; } my $perl = -e '../perl' ? '../perl' : -e './perl' ? './perl' : 'perl'; diff --git a/t/op/fork.t b/t/op/fork.t index 9790ff0f8c..516aa735fe 100755 --- a/t/op/fork.t +++ b/t/op/fork.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; require Config; import Config; unless ($Config{'d_fork'}) { print "1..0\n"; diff --git a/t/op/goto_xs.t b/t/op/goto_xs.t index a35575eb26..8d9bca1cd6 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'; -@INC = "../lib"; +unshift @INC, "../lib"; $ENV{PERL5LIB} = "../lib"; # turn warnings into fatal errors diff --git a/t/op/hashwarn.t b/t/op/hashwarn.t index 6343a2a8d5..634e7e1f25 100755 --- a/t/op/hashwarn.t +++ b/t/op/hashwarn.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use strict; diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t index 8ca22b0378..e45f8eaba7 100755 --- a/t/op/lex_assign.t +++ b/t/op/lex_assign.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } umask 0; diff --git a/t/op/magic.t b/t/op/magic.t index 056ded4068..9b819a8d7b 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -4,7 +4,7 @@ BEGIN { $^W = 1; $| = 1; chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; $SIG{__WARN__} = sub { die "Dying on warning: ", @_ }; } diff --git a/t/op/misc.t b/t/op/misc.t index 57d57b7b37..78c8bf2eec 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'; -@INC = "../lib"; +unshift @INC, "../lib"; $ENV{PERL5LIB} = "../lib"; $|=1; diff --git a/t/op/nothread.t b/t/op/nothread.t index a0d444d90b..cee8e2dbe1 100755 --- a/t/op/nothread.t +++ b/t/op/nothread.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = "../lib"; + unshift @INC, "../lib"; require Config; import Config; if ($Config{'usethreads'}) diff --git a/t/op/pack.t b/t/op/pack.t index f2f858296f..53b001d4ff 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; require Config; import Config; } diff --git a/t/op/pat.t b/t/op/pat.t index b56f7b4009..b2c0e055fe 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -8,7 +8,7 @@ print "1..185\n"; BEGIN { chdir 't' if -d 't'; - @INC = "../lib" if -d "../lib"; + unshift @INC, "../lib" if -d "../lib"; } eval 'use Config'; # Defaults assumed if this fails diff --git a/t/op/quotemeta.t b/t/op/quotemeta.t index 98265a88d9..60e5b7be05 100755 --- a/t/op/quotemeta.t +++ b/t/op/quotemeta.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; require Config; import Config; } diff --git a/t/op/rand.t b/t/op/rand.t index 2f02d344fc..97019bb099 100755 --- a/t/op/rand.t +++ b/t/op/rand.t @@ -17,7 +17,7 @@ BEGIN { chdir "t" if -d "t"; - @INC = "../lib" if -d "../lib"; + unshift @INC, "../lib" if -d "../lib"; } use strict; diff --git a/t/op/regexp.t b/t/op/regexp.t index 11b3ee31da..98d998d9e5 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -31,7 +31,7 @@ $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } $iters = shift || 1; # Poor man performance suite, 10000 is OK. diff --git a/t/op/runlevel.t b/t/op/runlevel.t index bff3c363ac..623ca42d54 100755 --- a/t/op/runlevel.t +++ b/t/op/runlevel.t @@ -7,7 +7,7 @@ ## chdir 't' if -d 't'; -@INC = "../lib"; +unshift @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 4de5cce640..27c77a4fc4 100755 --- a/t/op/sort.t +++ b/t/op/sort.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } print "1..37\n"; diff --git a/t/op/stat.t b/t/op/stat.t index 2207b40e30..e989064f1a 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } use Config; diff --git a/t/op/subst.t b/t/op/subst.t index bfca868e4d..65deab2ef8 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; require Config; import Config; } diff --git a/t/op/subst_amp.t b/t/op/subst_amp.t index e5e31f5257..e2e7c0e542 100755 --- a/t/op/subst_amp.t +++ b/t/op/subst_amp.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; require Config; import Config; } diff --git a/t/op/taint.t b/t/op/taint.t index e77d5d1a04..e25d4e0ef0 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -9,7 +9,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } use strict; diff --git a/t/op/tie.t b/t/op/tie.t index 451dee07b3..daec685d8d 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'; -@INC = "../lib"; +unshift @INC, "../lib"; $ENV{PERL5LIB} = "../lib"; $|=1; diff --git a/t/op/tiearray.t b/t/op/tiearray.t index 8e78b2f76b..25fda3fb03 100755 --- a/t/op/tiearray.t +++ b/t/op/tiearray.t @@ -3,7 +3,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } my %seen; diff --git a/t/op/tiehandle.t b/t/op/tiehandle.t index d7e6a78baf..6ae3faaaec 100755 --- a/t/op/tiehandle.t +++ b/t/op/tiehandle.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } my @expect; diff --git a/t/op/universal.t b/t/op/universal.t index bde78fd04c..eb6ec3ce97 100755 --- a/t/op/universal.t +++ b/t/op/universal.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } print "1..72\n"; diff --git a/t/pragma/constant.t b/t/pragma/constant.t index 5b63dfacc2..15ce319c02 100755 --- a/t/pragma/constant.t +++ b/t/pragma/constant.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib' if -d '../lib'; + unshift @INC, '../lib' if -d '../lib'; } BEGIN {$^W |= 1} # Insist upon warnings diff --git a/t/pragma/overload.t b/t/pragma/overload.t index c013a7cb36..7fd0196d4a 100755 --- a/t/pragma/overload.t +++ b/t/pragma/overload.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; } package Oscalar; diff --git a/t/pragma/strict.t b/t/pragma/strict.t index fc3282089f..1f55986d27 100755 --- a/t/pragma/strict.t +++ b/t/pragma/strict.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; $ENV{PERL5LIB} = '../lib'; } diff --git a/t/pragma/subs.t b/t/pragma/subs.t index 6ebbf78a46..42251f6279 100755 --- a/t/pragma/subs.t +++ b/t/pragma/subs.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; $ENV{PERL5LIB} = '../lib'; } diff --git a/t/pragma/warning.t b/t/pragma/warning.t index 640dc2f958..f4d955acb9 100755 --- a/t/pragma/warning.t +++ b/t/pragma/warning.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; $ENV{PERL5LIB} = '../lib'; require Config; import Config; } |