From: Gurusamy Sarathy Date: Fri, 12 Feb 1999 10:31:17 +0000 (+0000) Subject: make testsuite somewhat location independent X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93430cb427caeba01ba89b008008b46159a7c165;p=p5sagit%2Fp5-mst-13.2.git make testsuite somewhat location independent p4raw-id: //depot/perl@2891 --- diff --git a/Changes b/Changes index 48aed07..822f93c 100644 --- a/Changes +++ b/Changes @@ -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 + 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 ) + 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 . + 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 + To: perl5-porters@perl.org + Subject: [PATCH] perlport.pod 1.39 + Date: Thu, 11 Feb 1999 12:28:35 -0500 + Message-Id: + Branch: cfgperl + ! pod/perlport.pod +____________________________________________________________________________ +[ 2876] By: jhi on 1999/02/11 20:43:17 + Log: From: Chris Nandor + To: perl5-porters@perl.org + Subject: [PATCH] perlport.pod 1.39 + Date: Thu, 11 Feb 1999 12:28:35 -0500 + Message-Id: + 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 + 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 ) + 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 + 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 + 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 + ) + 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 e96313d..6380694 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 d2c64fe..dee5330 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 86e7359..f6450a5 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 6a59107..084e0ab 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 5c41f5c..fc72c07 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 a6ce2a4..1099547 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"; diff --git a/t/harness b/t/harness index f6d94de..88bcb38 100644 --- a/t/harness +++ b/t/harness @@ -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'; diff --git a/t/io/fs.t b/t/io/fs.t index f09d66c..04f5dbc 100755 --- a/t/io/fs.t +++ b/t/io/fs.t @@ -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 13db20b..9f12ed8 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 fb5a984..05e5c70 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 0391b7b..4d33e22 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 b1622a8..47cace2 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 a02aa32..478e26a 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 034c5c6..d2d520e 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 e7cac26..e6c775f 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 86df161..83217a2 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 ad8b968..b4cd568 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 c673806..3fe41d1 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 8c70c40..2a6f3fb 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 b5426ca..7603575 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 c073f50..6fbdf8d 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 bf739c8..1ebc64d 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 e748472..9f2456f 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 c89c3ca..636a43f 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 aa7be35..a8683c7 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 577d4ea..ea537bf 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 db4a5d9..8c095e5 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 063df83..96c07ea 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 9691229..2ee6133 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 5a82207..93d2406 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 361723f..6320f6b 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 139e469..5aae345 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 a97fdd5..019f374 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 329931f..e461595 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 cd2e977..5d1492f 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 827410a..22cff0e 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 c3bf4a4..40e6e21 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 ca22d3e..3aeed17 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 3e742f9..f0939e9 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 2395611..f88d470 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 fb70f10..0354627 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 1fa7f63..467e696 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 e4ac365..30dcf0f 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 3d747f1..48cb6b5 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 889e35c..11ec8bc 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 6b0caf1..c895fb4 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 d9b96c0..de15b3e 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 e617c92..0c1a498 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 a0d081b..c179ce9 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 3dc651b..e0d7a45 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 60f5b5a..b1189a0 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 0ef2cfd..deaa6c7 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 2009d61..8d75242 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 88cb4b6..1434873 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 1d7842b..ccb2748 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 1a6fd38..6bbba16 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 500b5b6..1cbde96 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 a97dbd1..be122ff 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 8ba9bcf..78d8593 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 a785fce..f83a689 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 85b807c..6443112 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 b84dac9..3a5d1c1 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 56b1bac..ce8b6d0 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 3c5e75b..86323b6 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 de27dee..dd24c79 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 4f5ee19..6f72a8e 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 27993d9..6e12873 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 e0dcfdd..572876c 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 591fe14..70f0b74 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 c36fdb8..46cea39 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 3b58d70..677caec 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 4e38295..8f945ac 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 d35f264..a04cccd 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 03449a3..14c919c 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 19add69..9ae6de9 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, < 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 bff3c36..623ca42 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 4de5cce..27c77a4 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 2207b40..e989064 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 bfca868..65deab2 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 e5e31f5..e2e7c0e 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 e77d5d1..e25d4e0 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 451dee0..daec685 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 8e78b2f..25fda3f 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 d7e6a78..6ae3faa 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 bde78fd..eb6ec3c 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 5b63dfa..15ce319 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 c013a7c..7fd0196 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 fc32820..1f55986 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 6ebbf78..42251f6 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 640dc2f..f4d955a 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; }