[svn:dbd-oracle] r13748 - in dbd-oracle/branches/DBDOracle8: . t

[byterock]

Author: byterock
Date: Tue Jan 19 11:22:50 2010
New Revision: 13748

Modified:
   dbd-oracle/branches/DBDOracle8/Makefile.PL
   dbd-oracle/branches/DBDOracle8/Oracle8.pm
   dbd-oracle/branches/DBDOracle8/t/31lob.t

Log:
another little change

Modified: dbd-oracle/branches/DBDOracle8/Makefile.PL
==============================================================================
--- dbd-oracle/branches/DBDOracle8/Makefile.PL  (original)
+++ dbd-oracle/branches/DBDOracle8/Makefile.PL  Tue Jan 19 11:22:50 2010
@@ -121,7 +121,7 @@
 

 # --- Where is Oracle installed...

 

-my $ORACLE_ENV  = ($os eq 'VMS') ? 'ORA_ROOT' : 'ORACLE_HOME';

+my $ORACLE_ENV  = ($os eq 'VMS') ? 'ORA8_ROOT' : 'ORACLE_HOME8';

 my $OH = $ENV{$ORACLE_ENV} || '';

 $OH  = win32_oracle_home($OH) if ($os eq 'MSWin32') or ($os =~ /cygwin/i);

 $OH = unixify $OH if $os eq 'VMS';


Modified: dbd-oracle/branches/DBDOracle8/Oracle8.pm
==============================================================================
--- dbd-oracle/branches/DBDOracle8/Oracle8.pm   (original)
+++ dbd-oracle/branches/DBDOracle8/Oracle8.pm   Tue Jan 19 11:22:50 2010
@@ -8,7 +8,7 @@
 

 $DBD::Oracle8::VERSION = '1.00';

 

-my $ORACLE_ENV  = ($^O eq 'VMS') ? 'ORA_ROOT' : 'ORACLE_HOME';

+my $ORACLE_ENV  = ($^O eq 'VMS') ? 'ORA_ROOT8' : 'ORACLE_HOME8';

 

 {

     package DBD::Oracle8;


Modified: dbd-oracle/branches/DBDOracle8/t/31lob.t
==============================================================================
--- dbd-oracle/branches/DBDOracle8/t/31lob.t    (original)
+++ dbd-oracle/branches/DBDOracle8/t/31lob.t    Tue Jan 19 11:22:50 2010
@@ -2,7 +2,7 @@
 

 use strict;

 use Test::More tests => 2;

-use DBD::Oracle qw(:ora_types);

+use DBD::Oracle8 qw(:ora_types);

 use DBI;

 

 unshift @INC ,'t';