| Subject: | DBD::Oracle ignores $ENV{TNS_ADMIN} in connect |
* DBD-Oracle-1.36
* This is perl, v5.10.1 (*) built for ppc64-linux-thread-multi
* Linux 2.6.32-131.0.15.el6.ppc64 #1 SMP Tue May 10 15:44:09 EDT 2011
ppc64 ppc64 ppc64 GNU/Linux
testing with -f instead of -d
--- /root/.cpan/build/DBD-Oracle-1.36-6xPyiQ/blib/lib/DBD/Oracle.pm
2011-12-06 22:22:44.000000000 +0100
+++ /usr/local/lib64/perl5/DBD/Oracle.pm 2011-12-23 12:01:27.921148722 +0100
@@ -156,7 +156,10 @@
TNS_ADMIN:
foreach $d ( @tns_admin ) {
- next TNS_ADMIN unless $d and -f $d;
+ my $tsarc=`ls -l $d/tnsnames.ora 2>&1` if $debug;
+ $drh->trace_msg("Trying $d/tnsnames.ora\n$tsarc\n") if $debug;
+ #next TNS_ADMIN unless $d and -f $d;
+ next TNS_ADMIN unless $d and -d $d;
open FH, '<', "$d/tnsnames.ora" or next TNS_ADMIN;
$drh->trace_msg("Loading $d/tnsnames.ora\n") if $debug;