fix sybase mro

diff --git a/lib/DBIx/Class/Storage/DBI/Sybase.pm b/lib/DBIx/Class/Storage/DBI/Sybase.pm
index 39062a2..46da4a2 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/Sybase.pm
+++ b/lib/DBIx/Class/Storage/DBI/Sybase.pm
@@ -4,8 +4,8 @@ use strict;
 use warnings;
 use mro 'c3';
 use base qw/
-    DBIx::Class::Storage::DBI
     DBIx::Class::Storage::DBI::Sybase::Base
+    DBIx::Class::Storage::DBI
 /;
 use Carp::Clan qw/^DBIx::Class/;
 

diff --git a/t/746sybase.t b/t/746sybase.t
index 5554649..2eeeb11 100644 (file)
--- 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");
     }
   }