diff options
author | Paul Marquess <Paul.Marquess@ntlworld.com> | 2009-06-09 22:26:21 -0500 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-06-12 15:32:07 +0100 |
commit | 2068b09afa6a598c2055af462cf7ebb3172ac2ef (patch) | |
tree | 4239867d94fdf0155082385916fa8b7390a738b1 /ext | |
parent | 187cff5523b09da04bd46f9a24628f51916a63e0 (diff) | |
download | perl-2068b09afa6a598c2055af462cf7ebb3172ac2ef.tar.gz |
[PATCH] Filter-Util-Call (was RE: pmqs: dual life modules)
(cherry picked from commit af6a0f9e3d4aacb66f6fd0d20aa527ab7d9a9032)
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; |