[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