… | |
… | |
907 | |
907 | |
908 | if (my $cb = $TERM->{_hook}[$htype]) { |
908 | if (my $cb = $TERM->{_hook}[$htype]) { |
909 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" |
909 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" |
910 | if $verbosity >= 10; |
910 | if $verbosity >= 10; |
911 | |
911 | |
912 | keys %$cb; |
912 | for my $pkg (keys %$cb) { |
913 | |
|
|
914 | while (my ($pkg, $cb) = each %$cb) { |
|
|
915 | my $retval_ = eval { $cb->($TERM->{_pkg}{$pkg}, @_) }; |
913 | my $retval_ = eval { $cb->{$pkg}->($TERM->{_pkg}{$pkg}, @_) }; |
916 | $retval ||= $retval_; |
914 | $retval ||= $retval_; |
917 | |
915 | |
918 | if ($@) { |
916 | if ($@) { |
919 | $TERM->ungrab; # better to lose the grab than the session |
917 | $TERM->ungrab; # better to lose the grab than the session |
920 | warn $@; |
918 | warn $@; |