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