Oracle PERL DBD - [svn:dbd-oracle] r2463

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

[svn:dbd-oracle] r2463 - dbd-oracle/trunk

timbo@cvs.perl.org

2006-01-31, 8:26 pm

Author: timbo
Date: Tue Jan 31 14:25:48 2006
New Revision: 2463

Modified:
dbd-oracle/trunk/test.pl
Log:
skip test.pl if ORACLE_DSN env var is set

Modified: dbd-oracle/trunk/test.pl
====================
====================
====================
==================
--- dbd-oracle/trunk/test.pl (original)
+++ dbd-oracle/trunk/test.pl Tue Jan 31 14:25:48 2006
@@ -31,6 +31,9 @@ GetOptions(
) or die;
$opt_n ||= 10;

+# skip this old set of half-baked oddities if ORACLE_DSN env var is set
+exit 0 if $ENV{ORACLE_DSN};
+
$dbname = $ARGV[0] || ''; # if '' it'll use TWO_TASK/ORACLE_SID
$dbuser = $ENV{ORACLE_USERID} || 'scott/tiger';

Sponsored Links