| … | … | ||
|---|---|---|---|
| 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 |