parent
82b1ac4509
commit
9054d02e2e
@ -0,0 +1,36 @@
|
||||
From 62b12906e6d9afad570ec29716e3ef4d9bd1aa3f Mon Sep 17 00:00:00 2001
|
||||
From: Andy Lester <andy@petdance.com>
|
||||
Date: Wed, 17 May 2017 23:05:50 -0500
|
||||
Subject: [PATCH] Use absolute paths so that lack of . in @INC should still
|
||||
work. Also remove a comment about a now-deleted file.
|
||||
|
||||
---
|
||||
t/07_perlcritic.t | 8 ++------
|
||||
1 file changed, 2 insertions(+), 6 deletions(-)
|
||||
|
||||
diff --git a/t/07_perlcritic.t b/t/07_perlcritic.t
|
||||
index 37aa4a1d..a4a13350 100644
|
||||
--- a/t/07_perlcritic.t
|
||||
+++ b/t/07_perlcritic.t
|
||||
@@ -14,19 +14,15 @@ our $VERSION = '1.126';
|
||||
|
||||
#-----------------------------------------------------------------------------
|
||||
|
||||
-my $perlcritic = File::Spec->catfile( qw(blib script perlcritic) );
|
||||
+my $perlcritic = File::Spec->rel2abs( File::Spec->catfile( qw( blib script perlcritic ) ) );
|
||||
if (not -e $perlcritic) {
|
||||
- $perlcritic = File::Spec->catfile( qw(bin perlcritic) )
|
||||
+ $perlcritic = File::Spec->rel2abs( File::Spec->catfile( qw( bin perlcritic ) ) );
|
||||
}
|
||||
|
||||
require_ok($perlcritic);
|
||||
|
||||
#-----------------------------------------------------------------------------
|
||||
|
||||
-# ensure we return true if this test is loaded by
|
||||
-# t/07_perlcritic.t_without_optional_dependencies.t
|
||||
-1;
|
||||
-
|
||||
# Local Variables:
|
||||
# mode: cperl
|
||||
# cperl-indent-level: 4
|
Loading…
Reference in new issue