[Bast-commits] r6642 - DBIx-Class/0.08/trunk/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-11 23:48:28 +0000 (Thu, 11 Jun 2009)
New Revision: 6642

Modified:
   DBIx-Class/0.08/trunk/t/74mssql.t
Log:
add support for DBICTEST_MSSQL_PERL5LIB to 74mssql.t

Modified: DBIx-Class/0.08/trunk/t/74mssql.t
===================================================================
--- DBIx-Class/0.08/trunk/t/74mssql.t	2009-06-11 23:39:28 UTC (rev 6641)
+++ DBIx-Class/0.08/trunk/t/74mssql.t	2009-06-11 23:48:28 UTC (rev 6642)
@@ -1,6 +1,13 @@
 use strict;
 use warnings;  
 
+# use this if you keep a copy of DBD::Sybase linked to FreeTDS somewhere else
+BEGIN {
+  if (my $lib_dirs = $ENV{DBICTEST_MSSQL_PERL5LIB}) {
+    unshift @INC, $_ for split /:/, $lib_dirs;
+  }
+}
+
 use Test::More;
 use lib qw(t/lib);
 use DBICTest;