[svn:dbd-oracle] r13924 - in dbd-oracle/trunk: . t

[byterock]

Author: byterock
Date: Fri Apr 23 09:13:19 2010
New Revision: 13924

Modified:
   dbd-oracle/trunk/Oracle.pm
   dbd-oracle/trunk/Oracle.xs
   dbd-oracle/trunk/t/31lob.t

Log:
Fix for rt.cpan.org Ticket #55028: DBD INVALID_HANDLE: OCILobGetLength

While not a bug I have added in OCILobLocatorIsInit as the fnction 
ora_lob_is_init

so the user can test for a condion before an error is thrown


Modified: dbd-oracle/trunk/Oracle.pm
==============================================================================
--- dbd-oracle/trunk/Oracle.pm  (original)
+++ dbd-oracle/trunk/Oracle.pm  Fri Apr 23 09:13:19 2010
@@ -74,6 +74,7 @@
         DBD::Oracle::db->install_method("ora_lob_trim");
         DBD::Oracle::db->install_method("ora_lob_length");
         DBD::Oracle::db->install_method("ora_lob_chunk_size");
+        DBD::Oracle::db->install_method("ora_lob_is_init");
         DBD::Oracle::db->install_method("ora_nls_parameters");
         DBD::Oracle::db->install_method("ora_can_unicode");
        DBD::Oracle::st->install_method("ora_fetch_scroll");
@@ -3605,6 +3606,15 @@
 Returns the length of the LOB.
 Uses the Oracle OCILobGetLength function.
 
+
+=item ora_lob_is_init
+
+  $is_init = $dbh->ora_lob_is_init($lob_locator);
+
+Returns true(1) if the Lob Locator is initialized false(0) if it is not, or 
'undef' 
+if there is an error.
+Uses the Oracle OCILobLocatorIsInit function.
+
 =item ora_lob_chunk_size
 
   $chunk_size = $dbh->ora_lob_chunk_size($lob_locator);

Modified: dbd-oracle/trunk/Oracle.xs
==============================================================================
--- dbd-oracle/trunk/Oracle.xs  (original)
+++ dbd-oracle/trunk/Oracle.xs  Fri Apr 23 09:13:19 2010
@@ -469,6 +469,24 @@
        }
 
 void
+ora_lob_is_init(dbh, locator)
+       SV *dbh
+       OCILobLocator   *locator
+       PREINIT:
+       D_imp_dbh(dbh);
+       sword status;
+       boolean is_init = 0;
+       CODE:
+       
OCILobLocatorIsInit_log_stat(imp_dbh->envhp,imp_dbh->errhp,locator,&is_init,status);
+       if (status != OCI_SUCCESS) {
+               oci_error(dbh, imp_dbh->errhp, status, "OCILobLocatorIsInit 
ora_lob_is_init");
+           ST(0) = &sv_undef;
+       }
+       else {
+           ST(0) = sv_2mortal(newSVuv(is_init));
+       }
+
+void
 ora_lob_length(dbh, locator)
        SV *dbh
        OCILobLocator   *locator
@@ -479,7 +497,7 @@
        CODE:
        OCILobGetLength_log_stat(imp_dbh->svchp, imp_dbh->errhp, locator, &len, 
status);
        if (status != OCI_SUCCESS) {
-               oci_error(dbh, imp_dbh->errhp, status, "OCILobGetLength");
+               oci_error(dbh, imp_dbh->errhp, status, "OCILobGetLength 
ora_lob_length");
        ST(0) = &sv_undef;
        }
        else {

Modified: dbd-oracle/trunk/t/31lob.t
==============================================================================
--- dbd-oracle/trunk/t/31lob.t  (original)
+++ dbd-oracle/trunk/t/31lob.t  Fri Apr 23 09:13:19 2010
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More tests => 11;
+use Test::More tests => 12;
 use DBD::Oracle qw(:ora_types);
 use DBI;
 
@@ -103,6 +103,9 @@
 
     is( ref $loc, "OCILobLocatorPtr", "returned valid locator" );
 
+    is( $dbh->ora_lob_is_init($loc), 1, "returned initialized locator" );
+  
+
     # write string > 32k
     $large_value = 'ABCD' x 10_000;