X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F746sybase.t;h=2eeeb111088ddbafff65a3b429a4cbf37e7f190e;hb=b0b44f974ad33fb7e2e899dcd844392eb09287d7;hp=55546492c4b7be933b7fb6505f74a9adf9573288;hpb=64f4e6918b4284ea08e9b01fe23ee00aaa058b35;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/746sybase.t b/t/746sybase.t
index 5554649..2eeeb11 100644
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -1,5 +1,6 @@
 use strict;
 use warnings;  
+no warnings 'uninitialized';
 
 use Test::More;
 use Test::Exception;
@@ -151,10 +152,11 @@ SQL
       ok(!$@, "inserted $size $type without dying");
       diag $@ if $@;
 
-      ok(eval {
+      my $got = eval {
         $rs->search({ id=> $id }, { select => [$type] })->single->$type
-      } eq $binstr{$size}, "verified inserted $size $type" );
+      };
       diag $@ if $@;
+      ok($got eq $binstr{$size}, "verified inserted $size $type");
     }
   }