diff options
| author | Stephen McCamant <smcc@mit.edu> | 2004-12-28 05:49:19 -0800 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2004-12-29 11:57:57 +0000 |
| commit | 5638aaacc9150fc0f24c4cbd2aba01385e12f1da (patch) | |
| tree | 755b4e97c9209f60fb714c8d8bc33824ddc18335 /ext/B/t/optree_varinit.t | |
| parent | 6aee8cc40635577b66291b2b8fea08d3acbffb23 (diff) | |
| download | perl-5638aaacc9150fc0f24c4cbd2aba01385e12f1da.tar.gz | |
Cleanup ext/B tests for -w and to run separately
Message-ID: <16849.54495.424654.896889@apocalypse.OCF.Berkeley.EDU>
p4raw-id: //depot/perl@23691
Diffstat (limited to 'ext/B/t/optree_varinit.t')
| -rw-r--r-- | ext/B/t/optree_varinit.t | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/ext/B/t/optree_varinit.t b/ext/B/t/optree_varinit.t index e7fd492981..25260b8aeb 100644 --- a/ext/B/t/optree_varinit.t +++ b/ext/B/t/optree_varinit.t @@ -1,8 +1,13 @@ #!perl BEGIN { - chdir 't'; - @INC = ('../lib', '../ext/B/t'); + if ($ENV{PERL_CORE}){ + chdir('t') if -d 't'; + @INC = ('.', '../lib', '../ext/B/t'); + } else { + unshift @INC, 't'; + push @INC, "../../t"; + } require Config; if (($Config::Config{'extensions'} !~ /\bB\b/) ){ print "1..0 # Skip -- Perl configured without B module\n"; @@ -13,7 +18,7 @@ BEGIN { "1..0 # Skip: Data::Dumper was not built, needed by OptreeCheck\n"; exit 0; } - require './test.pl'; + require 'test.pl'; } use OptreeCheck; use Config; |