diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-10 23:26:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-10 23:26:16 +0000 |
| commit | 36e6c0f5894e5506448610538867d3411009193a (patch) | |
| tree | fcb90aa4b54480a7c1319a8f949a69eea62919e8 /t | |
| parent | 6b4ac6611c98278a0d6cf49b8f443a5cf6468a7a (diff) | |
| download | perl-36e6c0f5894e5506448610538867d3411009193a.tar.gz | |
Put back the std @INC thing.
p4raw-id: //depot/perl@6581
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/cgi-form.t | 5 | ||||
| -rwxr-xr-x | t/lib/cgi-function.t | 5 | ||||
| -rwxr-xr-x | t/lib/cgi-html.t | 5 | ||||
| -rwxr-xr-x | t/lib/cgi-pretty.t | 5 | ||||
| -rwxr-xr-x | t/lib/cgi-request.t | 5 | ||||
| -rwxr-xr-x | t/lib/gol-basic.t | 5 | ||||
| -rwxr-xr-x | t/lib/gol-compat.t | 5 | ||||
| -rwxr-xr-x | t/lib/gol-linkage.t | 5 | ||||
| -rw-r--r-- | t/lib/gol-oo.t | 5 |
9 files changed, 45 insertions, 0 deletions
diff --git a/t/lib/cgi-form.t b/t/lib/cgi-form.t index 1be3894582..6bfb76a7e5 100755 --- a/t/lib/cgi-form.t +++ b/t/lib/cgi-form.t @@ -1,5 +1,10 @@ #!/usr/local/bin/perl -w +BEGIN { + chdir('t') if -d 't'; + unshift @INC, '../lib'; +} + # Test ability to retrieve HTTP request info ######################### We start with some black magic to print on failure. use lib '../blib/lib','../blib/arch'; diff --git a/t/lib/cgi-function.t b/t/lib/cgi-function.t index 87ce5d4438..46d077bc7f 100755 --- a/t/lib/cgi-function.t +++ b/t/lib/cgi-function.t @@ -1,5 +1,10 @@ #!/usr/local/bin/perl -w +BEGIN { + chdir('t') if -d 't'; + unshift @INC, '../lib'; +} + # Test ability to retrieve HTTP request info ######################### We start with some black magic to print on failure. use lib '../blib/lib','../blib/arch'; diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t index 1ce02e402c..a1ebe9e08a 100755 --- a/t/lib/cgi-html.t +++ b/t/lib/cgi-html.t @@ -1,5 +1,10 @@ #!/usr/local/bin/perl -w +BEGIN { + chdir('t') if -d 't'; + unshift @INC, '../lib'; +} + # Test ability to retrieve HTTP request info ######################### We start with some black magic to print on failure. use lib '../blib/lib','../blib/arch'; diff --git a/t/lib/cgi-pretty.t b/t/lib/cgi-pretty.t index 807897f66d..65b4722d5d 100755 --- a/t/lib/cgi-pretty.t +++ b/t/lib/cgi-pretty.t @@ -1,5 +1,10 @@ #!/usr/local/bin/perl -w +BEGIN { + chdir('t') if -d 't'; + unshift @INC, '../lib'; +} + # Test ability to retrieve HTTP request info ######################### We start with some black magic to print on failure. use lib '../blib/lib','../blib/arch'; diff --git a/t/lib/cgi-request.t b/t/lib/cgi-request.t index 96775a9279..3482f1cfd5 100755 --- a/t/lib/cgi-request.t +++ b/t/lib/cgi-request.t @@ -1,5 +1,10 @@ #!/usr/local/bin/perl -w +BEGIN { + chdir('t') if -d 't'; + unshift @INC, '../lib'; +} + # Test ability to retrieve HTTP request info ######################### We start with some black magic to print on failure. use lib '../blib/lib','../blib/arch'; diff --git a/t/lib/gol-basic.t b/t/lib/gol-basic.t index 8ad074f701..6707ef1043 100755 --- a/t/lib/gol-basic.t +++ b/t/lib/gol-basic.t @@ -1,5 +1,10 @@ #!./perl -w +BEGIN { + chdir('t') if -d 't'; + unshift @INC, '../lib'; +} + use Getopt::Long qw(:config no_ignore_case); die("Getopt::Long version 2.23_03 required--this is only version ". $Getopt::Long::VERSION) diff --git a/t/lib/gol-compat.t b/t/lib/gol-compat.t index 1d7930680e..2f566b085c 100755 --- a/t/lib/gol-compat.t +++ b/t/lib/gol-compat.t @@ -1,5 +1,10 @@ #!./perl -w +BEGIN { + chdir('t') if -d 't'; + unshift @INC, '../lib'; +} + require "newgetopt.pl"; print "1..9\n"; diff --git a/t/lib/gol-linkage.t b/t/lib/gol-linkage.t index 55c5a1acec..69fc73bac0 100755 --- a/t/lib/gol-linkage.t +++ b/t/lib/gol-linkage.t @@ -1,5 +1,10 @@ #!./perl -w +BEGIN { + chdir('t') if -d 't'; + unshift @INC, '../lib'; +} + use Getopt::Long; print "1..18\n"; diff --git a/t/lib/gol-oo.t b/t/lib/gol-oo.t index 6100d188b1..106d54fcc0 100644 --- a/t/lib/gol-oo.t +++ b/t/lib/gol-oo.t @@ -1,5 +1,10 @@ #!./perl -w +BEGIN { + chdir('t') if -d 't'; + unshift @INC, '../lib'; +} + use Getopt::Long; die("Getopt::Long version 2.23_03 required--this is only version ". $Getopt::Long::VERSION) |