[svn:dbd-oracle] r13726 - dbd-oracle/branches/DBDOracle8/lib/DBD/Oracle8

Author: byterock
Date: Fri Jan 15 08:44:00 2010
New Revision: 13726

Modified:
   dbd-oracle/branches/DBDOracle8/lib/DBD/Oracle8/GetInfo.pm

Log:
another try at it

Modified: dbd-oracle/branches/DBDOracle8/lib/DBD/Oracle8/GetInfo.pm
==============================================================================
--- dbd-oracle/branches/DBDOracle8/lib/DBD/Oracle8/GetInfo.pm	(original)
+++ dbd-oracle/branches/DBDOracle8/lib/DBD/Oracle8/GetInfo.pm	Fri Jan 15 08:44:00 2010
@@ -1,19 +1,19 @@
-package DBD::Oracle::GetInfo;
+package DBD::Oracle8::GetInfo;
 
-use DBD::Oracle();
+use DBD::Oracle8();
 
 my $fmt = '%02d.%02d.%1d%1d%1d%1d';   # ODBC version string: ##.##.#####
 
-my $sql_driver_ver = sprintf $fmt, split (/\./, "$DBD::Oracle::VERSION.0.0.0.0.0.0");
+my $sql_driver_ver = sprintf $fmt, split (/\./, "$DBD::Oracle8::VERSION.0.0.0.0.0.0");
 
 sub sql_dbms_version {
     my $dbh = shift;
     local $^W; # for ora_server_version having too few parts
-    return sprintf $fmt, @{DBD::Oracle::db::ora_server_version($dbh)};
+    return sprintf $fmt, @{DBD::Oracle8::db::ora_server_version($dbh)};
 }
 sub sql_data_source_name {
     my $dbh = shift;
-    return 'dbi:Oracle:' . $dbh->{Name};
+    return 'dbi:Oracle8:' . $dbh->{Name};
 }
 sub sql_user_name {
     my $dbh = shift;