| … | |
… | |
| 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 | |
