[svn:dbi] r15002 - dbi/trunk/ex

[email protected] Wed, 16 Nov 2011 12:00:42 -0800 (PST)
Newsgroups perl.dbi.changes
Message-ID <[email protected]>
Author: timbo
Date: Wed Nov 16 12:00:42 2011
New Revision: 15002

Modified:
   dbi/trunk/ex/unicode_test.pl

Log:
Tweak comment on ChopBlanks


Modified: dbi/trunk/ex/unicode_test.pl
==============================================================================
--- dbi/trunk/ex/unicode_test.pl	(original)
+++ dbi/trunk/ex/unicode_test.pl	Wed Nov 16 12:00:42 2011
@@ -124,10 +124,9 @@
     # DBD::ODBC has type_info_all and column_info support
     $length_fn = 'len';
 } elsif ($driver eq 'Unify') {
-    # Unify does not have varchar
-    $h->{ChopBlanks} = 1;
     $blob_column_type = 'binary';
     $unicode_column_type = 'char';	# or text
+    $h->{ChopBlanks} = 1;       # Unify does not have varchar so we use char and ChopBlanks
     $h->{uni_unicode} = 1;	# Available in the upcoming 0.81
     $length_fn = 'undefined';	# I don't think Unify has a function like this
 }
@@ -436,7 +435,6 @@
 sub find_type {
     my ($h, $types, $minsize) = @_;
 
-
     my $r = $h->type_info_all;
 
     #print Dumper($r);
@@ -470,6 +468,7 @@
             }
         }
     }
+    return; # no type found
 }
 
 # vim:ts=8:sw=4:et