--- AnyEvent-DBI/DBI.pm	2008/11/03 12:08:22	1.8
+++ AnyEvent-DBI/DBI.pm	2008/11/06 13:56:58	1.9
@@ -252,8 +252,10 @@
 
    $@ = $error;
 
-   $self->{on_error}($self, $filename, $line, $fatal)
-      if $self->{on_error};
+   if ($self->{on_error}) {
+      $self->{on_error}($self, $filename, $line, $fatal);
+      return unless $fatal;
+   }
 
    die "$error at $filename, line $line\n";
 }