| … | … | ||
|---|---|---|---|
| 383 | my $cb = $TERM->{_hook}[$htype] | 383 | my $cb = $TERM->{_hook}[$htype] |
| 384 | or return; | 384 | or return; |
| 385 | 385 | ||
| 386 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" | 386 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" |
| 387 | if $verbosity >= 10; | 387 | if $verbosity >= 10; |
| 388 | |||
| 389 | keys %$cb; | ||
| 388 | 390 | ||
| 389 | while (my ($pkg, $cb) = each %$cb) { | 391 | while (my ($pkg, $cb) = each %$cb) { |
| 390 | return 1 | 392 | return 1 |
| 391 | if $cb->( | 393 | if $cb->( |
| 392 | $TERM->{$pkg} ||= do { | 394 | $TERM->{$pkg} ||= do { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |