| timbo@cvs.perl.org 2006-01-20, 7:24 am |
| Author: timbo
Date: Fri Jan 20 01:42:05 2006
New Revision: 2435
Modified:
dbd-oracle/trunk/Changes
dbd-oracle/trunk/lib/DBD/Oracle/GetInfo.pm
dbd-oracle/trunk/t/70meta.t
Log:
Fixed undef warnings from $dbh->get_info(18);
Modified: dbd-oracle/trunk/Changes
====================
====================
====================
==================
--- dbd-oracle/trunk/Changes (original)
+++ dbd-oracle/trunk/Changes Fri Jan 20 01:42:05 2006
@@ -4,6 +4,7 @@
Fixed truncation error on fetch into UTF8 charset thanks to Honza Pazdziora.
Fixed INTERVAL DAY TO SECOND thanks to Honza Pazdziora.
Fixed undef warnings when connecting with undef $user.
+ Fixed undef warnings from $dbh->get_info(18);
Fixed LOB streaming example thanks to Pablo Zorzoli.
Added support for nested cursors in select lists thanks to Charles Jardine.
Modified: dbd-oracle/trunk/lib/DBD/Oracle/GetInfo.pm
====================
====================
====================
==================
--- dbd-oracle/trunk/lib/DBD/Oracle/GetInfo.pm (original)
+++ dbd-oracle/trunk/lib/DBD/Oracle/GetInfo.pm Fri Jan 20 01:42:05 2006
@@ -8,6 +8,7 @@ my $sql_driver_ver = sprintf $fmt, split
sub sql_dbms_version {
my $dbh = shift;
+ local $^W; # for ora_server_version having too few parts
return sprintf $fmt, @& #123;DBD::Oracle::db
::ora_server_version
($dbh)};
}
sub sql_data_source_name
{
Modified: dbd-oracle/trunk/t/70meta.t
====================
====================
====================
==================
--- dbd-oracle/trunk/t/70meta.t (original)
+++ dbd-oracle/trunk/t/70meta.t Fri Jan 20 01:42:05 2006
@@ -32,7 +32,7 @@ unless ($dbh) {
exit 0;
}
-print "1..11\n";
+print "1..13\n";
print "type_info_all\n";
my @types = $dbh-> type_info(SQL_ALL_TY
PES);
@@ -63,6 +63,11 @@ foreach my $table_info_params (@table_in
# print Dumper($data);
}
+my $sql_dbms_version = $dbh->get_info(18);
+ok(0,$sql_dbms_vers
ion);
+print " sql_dbms_version=$sq
l_dbms_version\n";
+ok(0,$sql_dbms_vers
ion =~ /^\d+\.\d+\.\d+$/);
+
$dbh->disconnect;
exit 0;
|