[Bps-public-commit] dbix-searchbuilder branch, master, updated. 1.59-1-ge041756

[Ruslan Zakirov]

The branch, master has been updated
       via  e041756eda80c94fcb940162d75f6406cd7a7c6f (commit)
      from  5d80f0c0f43f31998d3a9b88e395eea784331bd7 (commit)

Summary of changes:
 SearchBuilder/Record.pm |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

- Log -----------------------------------------------------------------
commit e041756eda80c94fcb940162d75f6406cd7a7c6f
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date:   Tue Dec 28 04:19:43 2010 +0300

    get rid of uninit warning

diff --git a/SearchBuilder/Record.pm b/SearchBuilder/Record.pm
index bd1af42..5bd4cf3 100755
--- a/SearchBuilder/Record.pm
+++ b/SearchBuilder/Record.pm
@@ -1281,12 +1281,12 @@ sub Create {
         # Support for databases which don't deal with LOBs automatically
         my $ca = $self->_ClassAccessible();
         foreach $key ( keys %attribs ) {
-            if ( $ca->{$key}->{'type'} =~ /^(text|longtext|clob|blob|lob)$/i ) {
-                my $bhash =
-                  $self->_Handle->BLOBParams( $key, $ca->{$key}->{'type'} );
-                $bhash->{'value'} = $attribs{$key};
-                $attribs{$key} = $bhash;
-            }
+            my $type = $ca->{$key}->{'type'};
+            next unless $type && $type =~ /^(text|longtext|clob|blob|lob)$/i;
+
+            my $bhash = $self->_Handle->BLOBParams( $key, $type );
+            $bhash->{'value'} = $attribs{$key};
+            $attribs{$key} = $bhash;
         }
     }
     return ( $self->_Handle->Insert( $self->Table, %attribs ) );

-----------------------------------------------------------------------