This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mktests.PL: Require inctools in .t files
[perl5.git]
/
dist
/
Devel-PPPort
/
t
/
call.t
diff --git
a/dist/Devel-PPPort/t/call.t
b/dist/Devel-PPPort/t/call.t
index
2612270
..
957a77d
100644
(file)
--- a/
dist/Devel-PPPort/t/call.t
+++ b/
dist/Devel-PPPort/t/call.t
@@
-10,10
+10,12
@@
#
################################################################################
#
################################################################################
+use FindBin ();
+
BEGIN {
if ($ENV{'PERL_CORE'}) {
chdir 't' if -d 't';
BEGIN {
if ($ENV{'PERL_CORE'}) {
chdir 't' if -d 't';
-
@INC = ('../lib', '../ext/Devel-PPPort/t')
if -d '../lib' && -d '../ext';
+
unshift @INC, '../lib'
if -d '../lib' && -d '../ext';
require Config; import Config;
use vars '%Config';
if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
require Config; import Config;
use vars '%Config';
if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
@@
-21,13
+23,16
@@
BEGIN {
exit 0;
}
}
exit 0;
}
}
- else {
- unshift @INC, 't';
- }
+
+ use lib "$FindBin::Bin";
+ use lib "$FindBin::Bin/../parts/inc";
+
+ die qq[Cannot find "$FindBin::Bin/../parts/inc"] unless -d "$FindBin::Bin/../parts/inc";
sub load {
eval "use Test";
require 'testutil.pl' if $@;
sub load {
eval "use Test";
require 'testutil.pl' if $@;
+ require 'inctools';
}
if (86) {
}
if (86) {