| … | |
… | |
| 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 | |
| … | |
… | |
| 1078 | |
1077 | |
| 1079 | for my $dir (reverse @libdirs) { |
1078 | for my $dir (reverse @libdirs) { |
| 1080 | opendir my $fh, $dir |
1079 | opendir my $fh, $dir |
| 1081 | or next; |
1080 | or next; |
| 1082 | for my $ext (readdir $fh) { |
1081 | for my $ext (readdir $fh) { |
| 1083 | $ext ne "." |
1082 | $ext !~ /^\./ |
| 1084 | and $ext ne ".." |
|
|
| 1085 | and open my $fh, "<", "$dir/$ext" |
1083 | and open my $fh, "<", "$dir/$ext" |
| 1086 | or next; |
1084 | or next; |
| 1087 | |
1085 | |
| 1088 | while (<$fh>) { |
1086 | while (<$fh>) { |
| 1089 | if (/^#:META:X_RESOURCE:(.*)/) { |
1087 | if (/^#:META:X_RESOURCE:(.*)/) { |
