| … | |
… | |
| 823 | |
823 | |
| 824 | eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval"); |
824 | eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval"); |
| 825 | warn $@ if $@; |
825 | warn $@ if $@; |
| 826 | } |
826 | } |
| 827 | |
827 | |
| 828 | $retval = undef; |
|
|
| 829 | |
|
|
| 830 | if ($htype == HOOK_OSC_SEQ) { |
828 | if ($htype == HOOK_OSC_SEQ) { |
| 831 | if (my $exts = delete $TERM->{meta}{autoload_osc}{$_[0]}) { |
829 | if (my $exts = delete $TERM->{meta}{autoload_osc}{$_[0]}) { |
| 832 | $TERM->autoload_extension ($_->[0]) for @$exts; |
830 | $TERM->autoload_extension ($_->[0]) for @$exts; |
| 833 | } |
831 | } |
| 834 | } elsif ($htype == HOOK_OSC_SEQ_PERL) { |
832 | } elsif ($htype == HOOK_OSC_SEQ_PERL) { |
| 835 | if ($_[0] =~ /^([^;]+)/ and (my $exts = delete $TERM->{meta}{autoload_osc_perl}{$1})) { |
833 | if ($_[0] =~ /^([^;]+)/ and (my $exts = delete $TERM->{meta}{autoload_osc_perl}{$1})) { |
| 836 | $TERM->autoload_extension ($_->[0]) for @$exts; |
834 | $TERM->autoload_extension ($_->[0]) for @$exts; |
| 837 | } |
835 | } |
| 838 | } |
836 | } |
|
|
837 | |
|
|
838 | $retval = undef; |
| 839 | |
839 | |
| 840 | if (my $cb = $TERM->{_hook}[$htype]) { |
840 | if (my $cb = $TERM->{_hook}[$htype]) { |
| 841 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" |
841 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" |
| 842 | if $verbosity >= 10; |
842 | if $verbosity >= 10; |
| 843 | |
843 | |
