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;
