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