From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 12 Apr 2016 14:28:25 +0000 (+0200)
Subject: Fix t/746sybase.t failing under -T
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b16ef4e820ac2e747bbb639614bd9405c6b735c;p=dbsrgits%2FDBIx-Class-Historic.git

Fix t/746sybase.t failing under -T
---

diff --git a/t/746sybase.t b/t/746sybase.t
index 818ed26..74587af 100644
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -5,6 +5,7 @@ use strict;
 use warnings;
 no warnings 'uninitialized';
 
+use Config;
 use Test::More;
 use Test::Exception;
 use DBIx::Class::_Util 'sigwarn_silencer';
@@ -627,6 +628,7 @@ if (Test::Builder->new->is_passing and $ENV{LC_ALL} and $ENV{LC_ALL} ne 'C') {
   local $ENV{DBICTEST_SYBASE_SUBTEST_RERUN} = 1;
 
   local $ENV{PATH};
+  local $ENV{PERL5LIB} = join ($Config{path_sep}, @INC);
   my @cmd = map { $_ =~ /(.+)/ } ($^X, __FILE__);
 
   # this is cheating, and may even hang here and there (testing on windows passed fine)