… | … | ||
---|---|---|---|
353 | for (@$callbacks) { | 353 | for (@$callbacks) { |
354 | eval { &{$_->[1]} }; | 354 | eval { &{$_->[1]} }; |
355 | 355 | ||
356 | if ($@) { | 356 | if ($@) { |
357 | warn "$@"; | 357 | warn "$@"; |
358 | warn "... while processing $EVENT[$event][0] event, skipping processing altogether.\n"; | 358 | warn "... while processing $EVENT[$event][0](@_) event, skipping processing altogether.\n"; |
359 | override; | 359 | override; |
360 | } | 360 | } |
361 | 361 | ||
362 | return 1 if $override; | 362 | return 1 if $override; |
363 | } | 363 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |