cleanup (3 arg open, 1 grep instead of 3)
[dbsrgits/DBIx-Class-Historic.git] / t / 746sybase.t
index 5afbf3a..82ad9c2 100644 (file)
@@ -24,7 +24,7 @@ my @storage_types = (
   'DBI::Sybase::ASE',
   'DBI::Sybase::ASE::NoBindVars',
 );
-eval "require $_" for @storage_types;
+eval "require DBIx::Class::Storage::$_;" for @storage_types;
 
 my $schema;
 my $storage_idx = -1;