diff options
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Filter-Util-Call/t/call.t | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/ext/Filter-Util-Call/t/call.t b/ext/Filter-Util-Call/t/call.t index c1a5685669..b1c7c05dad 100644 --- a/ext/Filter-Util-Call/t/call.t +++ b/ext/Filter-Util-Call/t/call.t @@ -1,13 +1,19 @@ BEGIN { - chdir('t') if -d 't'; - @INC = '.'; - push @INC, '../lib'; - require Config; import Config; - if ($Config{'extensions'} !~ m{\bFilter/Util/Call\b}) { - print "1..0 # Skip: Filter::Util::Call was not built\n"; - exit 0; + if ($ENV{PERL_CORE}){ + chdir('t') if -d 't'; + @INC = ('.', '../lib'); + + require Config; import Config; + %Config=%Config if 0; # cease -w + if ($Config{'extensions'} !~ m{\bFilter/Util/Call\b}) { + print "1..0 # Skip: Filter::Util::Call was not built\n"; + exit 0; + } + require 'lib/filter-util.pl'; + } + else { + require 'filter-util.pl'; } - require 'lib/filter-util.pl'; } use strict; |