| … | … | ||
|---|---|---|---|
| 884 | my $disable = shift; | 884 | my $disable = shift; |
| 885 | 885 | ||
| 886 | my $term = delete $disable->{""}; | 886 | my $term = delete $disable->{""}; |
| 887 | 887 | ||
| 888 | while (my ($htype, $id) = each %$disable) { | 888 | while (my ($htype, $id) = each %$disable) { |
| 889 | warn "disable hook $htype,$id\n";#d# | ||
| 890 | delete $term->{_hook}[$htype]{$id}; | 889 | delete $term->{_hook}[$htype]{$id}; |
| 891 | $term->set_should_invoke ($htype, -1); | 890 | $term->set_should_invoke ($htype, -1); |
| 892 | } | 891 | } |
| 893 | } | 892 | } |
| 894 | 893 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |