Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the DBD-Oracle CPAN distribution.

Report information
The Basics
Id: 73456
Status: resolved
Priority: 0/
Queue: DBD-Oracle

People
Owner: champoux [...] pythian.com
Requestors: tsalmon18 [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.36
Fixed in: (no value)



Subject: DBD::Oracle ignores $ENV{TNS_ADMIN} in connect
Download (untitled) / with headers
text/plain 850b
* 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;
Subject: Re: [rt.cpan.org #73456] DBD::Oracle ignores $ENV{TNS_ADMIN} in connect
Date: Fri, 23 Dec 2011 13:55:54 -0500
To: bug-DBD-Oracle [...] rt.cpan.org
From: Yanick Champoux <champoux [...] pythian.com>
Download (untitled) / with headers
text/plain 552b
On 12/23/11 06:37, T. SALMON via RT wrote: Show quoted text
> - next TNS_ADMIN unless $d and -f $d; >
Oh dearie me. Somebody was asleep at the wheel when he typed that. And I'm afraid that someone was me. Oops. Fix is going to be merged in trunk, and should appear in v1.37_00 and v1.38 of DBD::Oracle. Thanks! Joy, `/anick -- Yanick Champoux, Senior Perl Developer The Pythian Group - love your data http://www.pythian.com -- Pythian proud winner of Oracle North America Titan Award for Exadata Solution...watch the video on pythian.com
v1.38 released.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.