Author: byterock
Date: Fri Apr 23 12:02:59 2010
New Revision: 13927
Modified:
dbd-oracle/trunk/Changes
dbd-oracle/trunk/Oracle.pm
Log:
Fix for rt.cpan.org Ticket #=51594 type_info and type_info_all miss vital information from John Scoles
Modified: dbd-oracle/trunk/Changes
==============================================================================
--- dbd-oracle/trunk/Changes (original)
+++ dbd-oracle/trunk/Changes Fri Apr 23 12:02:59 2010
@@ -1,5 +1,6 @@
=head1 Changes in DBD-Oracle 1.25(svn rev #####)
+ Fix for rt.cpan.org Ticket #=51594 type_info and type_info_all miss vital information from John Scoles
Added ora_lob_is_init function by John Scoles
Fix for rt.cpan.org Ticket #=55031 Ubuntu Server Building with Oracle XE under 32-bit from Brian Candler
Fix for rt.cpan.org Ticket #=56810 bug with multiple nested cursor from John Scoles
Modified: dbd-oracle/trunk/Oracle.pm
==============================================================================
--- dbd-oracle/trunk/Oracle.pm (original)
+++ dbd-oracle/trunk/Oracle.pm Fri Apr 23 12:02:59 2010
@@ -702,6 +702,7 @@
SQL_DATETIME_SUB => 16,
NUM_PREC_RADIX => 17,
INTERVAL_PRECISION => 18,
+
},
[ "LONG RAW", SQL_LONGVARBINARY, 2147483647,"'", "'",
undef, 1,0,0,undef,0,undef,
@@ -727,21 +728,16 @@
[ "VARCHAR2", SQL_VARCHAR, $vc2len, "'", "'",
"max length", 1,1,3,undef,0,0,
"VARCHAR2", undef,undef,SQL_VARCHAR, undef,undef,undef, ],
- ];
- push @$type_info_all,
- [ "BLOB", SQL_LONGVARBINARY, 2147483647,"'", "'",
+ [ "BLOB", SQL_BLOB, 2147483647,"'", "'",
undef, 1,1,0,undef,0,undef,
"BLOB", undef,undef,SQL_LONGVARBINARY,undef,undef,undef, ],
- [ "BFILE", SQL_LONGVARBINARY, 2147483647,"'", "'",
+ [ "BFILE", -9114, 2147483647,"'", "'",
undef, 1,1,0,undef,0,undef,
"BFILE", undef,undef,SQL_LONGVARBINARY,undef,undef,undef, ],
- [ "CLOB", SQL_LONGVARCHAR, 2147483647,"'", "'",
+ [ "CLOB", SQL_CLOB, 2147483647,"'", "'",
undef, 1,1,0,undef,0,undef,
"CLOB", undef,undef,SQL_LONGVARCHAR, undef,undef,undef, ],
-
- if $version >= 8;
- push @$type_info_all,
- ["TIMESTAMP WITH TIME ZONE", # type name
+ ["TIMESTAMP WITH TIME ZONE", # type name
SQL_TYPE_TIMESTAMP_WITH_TIMEZONE, # data type
40, # column size
"TIMESTAMP'", # literal prefix
@@ -760,8 +756,8 @@
5, # sql datetime sub
undef, # num prec radix
undef, # interval precision
- ],
- [ "INTERVAL DAY TO SECOND", # type name
+ ],
+ [ "INTERVAL DAY TO SECOND", # type name
SQL_INTERVAL_DAY_TO_SECOND, # data type
22, # column size '+00 11:12:10.222222200'
"INTERVAL'", # literal prefix
@@ -800,9 +796,10 @@
7, # sql datetime sub
undef, # num prec radix
undef, # interval precision
- ],
- if $version >= 10;
- return $type_info_all;
+ ]
+ ];
+
+ return $type_info_all;
}
sub plsql_errstr {
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.