@@ -1697,15 +1697,6 @@ sub _where_clause_and_param {

         if defined $table_quote;

       push @$clause, "$column_quote = :$column";

     }

-

-    # Check unsafety column

-    my $safety = $self->{safety_character};

-    unless ($column_join =~ /^[$safety\.]+$/) {

-      for my $column (keys %$where) {

-        croak qq{"$column" is not safety column name } . _subname

-          unless $column =~ /^[$safety\.]+$/;

-      }

-    }

     $w->{clause} = @$clause ? "where ( " . join(' and ', @$clause) . " ) " : '' ;

     $w->{param} = $where;

@@ -1348,6 +1348,9 @@ $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);

 $row = $dbi->select($key1, table => $table1)->one;

 is_deeply($row, {$key1 => 1});

+eval { $dbi->select(table => $table1, where => {';' => 1}) };

+like($@, qr/safety/);

+

 test 'fetch filter';

 eval { $dbi->execute("drop table $table1") };

 $dbi->register_filter(