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

Author: mjevans
Date: Fri Mar 30 01:40:07 2012
New Revision: 15250

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

Log:
$dbh->err was being tested when it may not have been set


Modified: dbd-oracle/trunk/Changes
==============================================================================
--- dbd-oracle/trunk/Changes	(original)
+++ dbd-oracle/trunk/Changes	Fri Mar 30 01:40:07 2012
@@ -24,6 +24,8 @@
  - Removed almost all DBIS usage fixing and speeding up threaded
    Perls (Martin J. Evans).
 
+ - Minor fix to avoid use of uninitialised variable in 31lob.t (Martin J. Evans)
+
  [DOCUMENTATION]
  - clarification of when StrictlyTyped/DiscardString can be used and
    LongReadLen (Martin J. Evans)

Modified: dbd-oracle/trunk/t/31lob.t
==============================================================================
--- dbd-oracle/trunk/t/31lob.t	(original)
+++ dbd-oracle/trunk/t/31lob.t	Fri Mar 30 01:40:07 2012
@@ -76,7 +76,7 @@
 
 sub have_v_session {
     $dbh->do('select * from v$session where 0=1');
-    return $dbh->err != 942;
+    return defined($dbh->err) ? $dbh->err != 942 : 1;
 }