bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bug/warning

Browse source 
Apparently nobody uses "return ABORT;" in a hook, because it emitted an
ugly warning. main::abort() takes a list, so destructuring the message
to a scalar was wrong.
This commit is contained in:
Juerd Waalboer 2023-01-16 00:51:42 +01:00
parent 2836a5a671
commit 094fbcb1db
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/RevBank/Plugins.pm
View file

@ -22,10 +22,10 @@ sub call_hooks($hook, @args) {
my $method = "hook_$hook";
for my $class (@plugins) {
if ($class->can($method)) {
my ($rv, $message) = $class->$method(@args);
my ($rv, @message) = $class->$method(@args);
if (defined $rv and ref $rv) {
main::abort($message) if $rv == ABORT;
main::abort(@message) if $rv == ABORT;
warn "$class->$method returned an unsupported value.\n";
}
}