[svn:dbd-oracle] r15488 - dbd-oracle/trunk/t

Author: yanick
Date: Mon Nov 26 11:09:03 2012
New Revision: 15488

Modified:
   dbd-oracle/trunk/t/31lob.t

Log:
RT-69350: use lob after sth is destroyed

Thanks to Rob Davies

Modified: dbd-oracle/trunk/t/31lob.t
==============================================================================
--- dbd-oracle/trunk/t/31lob.t	(original)
+++ dbd-oracle/trunk/t/31lob.t	Mon Nov 26 11:09:03 2012
@@ -123,8 +123,10 @@
     ## test calling PL/SQL with LOB placeholder
         my $plsql_testcount = 4;
 
-        $stmt = "BEGIN ? := DBMS_LOB.GETLENGTH( ? ); END;";
-        $sth = $dbh->prepare( $stmt, { ora_auto_lob => 0 } );
+        my $sth = $dbh->prepare(
+            'BEGIN ? := DBMS_LOB.GETLENGTH( ? ); END;',
+            { ora_auto_lob => 0 } 
+        );
         $sth->bind_param_inout( 1, \$len, 16 );
         $sth->bind_param( 2, $loc, { ora_type => ORA_BLOB } );
         $sth->execute;