[svn:dbi] r9898 - dbi/trunk/lib/DBI/Gofer/Transport

[timbo]

Author: timbo
Date: Thu Aug 30 07:04:18 2007
New Revision: 9898

Modified:
   dbi/trunk/lib/DBI/Gofer/Transport/Base.pm

Log:
Handle deserialization errors better


Modified: dbi/trunk/lib/DBI/Gofer/Transport/Base.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Transport/Base.pm   (original)
+++ dbi/trunk/lib/DBI/Gofer/Transport/Base.pm   Thu Aug 30 07:04:18 2007
@@ -120,8 +120,10 @@
             or die "does not have gofer header\n";
         my ($t_version) = $1;
        $serializer ||= $self->{serializer_obj};
-        $data = $serializer->deserialize($frozen_data)
-            and $data->{_transport}{version} = $t_version;
+        $data = $serializer->deserialize($frozen_data);
+        die ref($serializer)."->deserialize didn't return a reference"
+            unless ref $data;
+        $data->{_transport}{version} = $t_version;
     };
     if ($@) {
         chomp(my $err = $@);