diff options
| author | Yorhel <git@yorhel.nl> | 2009-11-04 20:55:58 +0100 |
|---|---|---|
| committer | Yorhel <git@yorhel.nl> | 2009-11-04 20:55:58 +0100 |
| commit | 6576cf8921cbb6e8e50717e071e3f3201c088763 (patch) | |
| tree | 6bc31f5c74ea89836239c31d1a44954c28e817d3 /lib | |
| parent | e9fb4c410ef5f20f09feed3a5bb3c5f437530745 (diff) | |
Multi::Core: die() on SQL error
One example of what I would consider "horribly wrong".
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Multi/Core.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Multi/Core.pm b/lib/Multi/Core.pm index 5c668b7c..6388c924 100644 --- a/lib/Multi/Core.pm +++ b/lib/Multi/Core.pm @@ -105,7 +105,7 @@ sub pg_error { # ARG: command, errmsg, [ query, params, orig_session, event-args my $s = $_[ARG2] ? sprintf ' (Session: %s, Query: "%s", Params: %s, Args: %s)', join(', ', $_[KERNEL]->alias_list($_[ARG4])), $_[ARG2], join(', ', $_[ARG3] ? map qq|"$_"|, @{$_[ARG3]} : '[none]'), $_[ARG5]||'' : ''; - $_[KERNEL]->call(core => log => 'SQL Error for command %s: %s %s', $_[ARG0], $_[ARG1], $s); + die sprintf 'SQL Error for command %s: %s%s', $_[ARG0], $_[ARG1], $s; } |