| … | |
… | |
| 470 | my $source = "package $pkg; use strict; use utf8;\n" |
470 | my $source = "package $pkg; use strict; use utf8;\n" |
| 471 | . "use base urxvt::term::proxy::;\n" |
471 | . "use base urxvt::term::proxy::;\n" |
| 472 | . "#line 1 \"$path\"\n{\n" |
472 | . "#line 1 \"$path\"\n{\n" |
| 473 | . (do { local $/; <$fh> }) |
473 | . (do { local $/; <$fh> }) |
| 474 | . "\n};\n1"; |
474 | . "\n};\n1"; |
|
|
475 | |
|
|
476 | $source =~ /(.*)/s and $source = $1; # untaint |
| 475 | |
477 | |
| 476 | eval $source or die "$path: $@"; |
478 | eval $source or die "$path: $@"; |
| 477 | |
479 | |
| 478 | $pkg |
480 | $pkg |
| 479 | } |
481 | } |
