… | |
… | |
501 | open my $fh, "<:raw", $path |
501 | open my $fh, "<:raw", $path |
502 | or die "$path: $!"; |
502 | or die "$path: $!"; |
503 | |
503 | |
504 | my $source = untaint |
504 | my $source = untaint |
505 | "package $pkg; use strict; use utf8;\n" |
505 | "package $pkg; use strict; use utf8;\n" |
506 | . "use base urxvt::term::proxy::;\n" |
506 | . "use base urxvt::term::extension::;\n" |
507 | . "#line 1 \"$path\"\n{\n" |
507 | . "#line 1 \"$path\"\n{\n" |
508 | . (do { local $/; <$fh> }) |
508 | . (do { local $/; <$fh> }) |
509 | . "\n};\n1"; |
509 | . "\n};\n1"; |
510 | |
510 | |
511 | eval $source |
511 | eval $source |
… | |
… | |
588 | } |
588 | } |
589 | |
589 | |
590 | $retval |
590 | $retval |
591 | } |
591 | } |
592 | |
592 | |
593 | # urxvt::term::proxy |
593 | # urxvt::term::extension |
594 | |
594 | |
595 | package urxvt::term::proxy; |
595 | package urxvt::term::extension; |
596 | |
596 | |
597 | sub enable { |
597 | sub enable { |
598 | my ($self, %hook) = @_; |
598 | my ($self, %hook) = @_; |
599 | my $pkg = $self->{_pkg}; |
599 | my $pkg = $self->{_pkg}; |
600 | |
600 | |