[libmoo-perl] 10/43: stop relying on . in @INC
gregor herrmann
gregoa at debian.org
Mon Dec 26 17:56:13 UTC 2016
This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository libmoo-perl.
commit c8bc1e09d2c7b4680c19d619de6ba9ffa5111c98
Author: Graham Knop <haarg at haarg.org>
Date: Sun Oct 16 08:06:48 2016 -0400
stop relying on . in @INC
---
t/accessor-weaken-pre-5_8_3.t | 4 ++--
t/sub-defer-no-subname.t | 2 +-
xt/handle_moose.t | 2 +-
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/t/accessor-weaken-pre-5_8_3.t b/t/accessor-weaken-pre-5_8_3.t
index da429a6..5cbca6e 100644
--- a/t/accessor-weaken-pre-5_8_3.t
+++ b/t/accessor-weaken-pre-5_8_3.t
@@ -1,10 +1,10 @@
use Moo::_strictures;
-
+use File::Spec;
BEGIN {
$ENV{MOO_TEST_PRE_583} = 1;
}
-(my $real_test = __FILE__) =~ s/-pre-5_8_3//;
+(my $real_test = File::Spec->rel2abs(__FILE__)) =~ s/-pre-5_8_3//;
unless (defined do $real_test) {
die "$real_test: $@" if $@;
diff --git a/t/sub-defer-no-subname.t b/t/sub-defer-no-subname.t
index 42f9a7a..273a39b 100644
--- a/t/sub-defer-no-subname.t
+++ b/t/sub-defer-no-subname.t
@@ -4,6 +4,6 @@ use InlineModule
'Sub::Name' => undef,
'Sub::Util' => undef,
;
-do 't/sub-defer.t';
+do './t/sub-defer.t';
die $@
if $@;
diff --git a/xt/handle_moose.t b/xt/handle_moose.t
index e03af54..00a68a1 100644
--- a/xt/handle_moose.t
+++ b/xt/handle_moose.t
@@ -1,7 +1,7 @@
use Moo::_strictures;
use Test::Fatal;
-BEGIN { require "t/moo-accessors.t"; }
+BEGIN { require "./t/moo-accessors.t"; }
require Moose;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoo-perl.git
More information about the Pkg-perl-cvs-commits
mailing list