| … | |
… | |
| 498 | Using this function has the advantage that its output ends up in the |
498 | Using this function has the advantage that its output ends up in the |
| 499 | correct place, e.g. on stderr of the connecting urxvtc client. |
499 | correct place, e.g. on stderr of the connecting urxvtc client. |
| 500 | |
500 | |
| 501 | Messages have a size limit of 1023 bytes currently. |
501 | Messages have a size limit of 1023 bytes currently. |
| 502 | |
502 | |
| 503 | =item $is_safe = urxvt::safe |
|
|
| 504 | |
|
|
| 505 | Returns true when it is safe to do potentially unsafe things, such as |
|
|
| 506 | evaluating perl code specified by the user. This is true when urxvt was |
|
|
| 507 | started setuid or setgid. |
|
|
| 508 | |
|
|
| 509 | =item $time = urxvt::NOW |
503 | =item $time = urxvt::NOW |
| 510 | |
504 | |
| 511 | Returns the "current time" (as per the event loop). |
505 | Returns the "current time" (as per the event loop). |
| 512 | |
506 | |
| 513 | =item urxvt::CurrentTime |
507 | =item urxvt::CurrentTime |
| … | |
… | |
| 628 | verbose 3, "loading extension '$path' into package '$pkg'"; |
622 | verbose 3, "loading extension '$path' into package '$pkg'"; |
| 629 | |
623 | |
| 630 | open my $fh, "<:raw", $path |
624 | open my $fh, "<:raw", $path |
| 631 | or die "$path: $!"; |
625 | or die "$path: $!"; |
| 632 | |
626 | |
| 633 | my $source = untaint |
627 | my $source = |
| 634 | "package $pkg; use strict; use utf8;\n" |
628 | "package $pkg; use strict; use utf8;\n" |
| 635 | . "use base urxvt::term::extension::;\n" |
629 | . "use base urxvt::term::extension::;\n" |
| 636 | . "#line 1 \"$path\"\n{\n" |
630 | . "#line 1 \"$path\"\n{\n" |
| 637 | . (do { local $/; <$fh> }) |
631 | . (do { local $/; <$fh> }) |
| 638 | . "\n};\n1"; |
632 | . "\n};\n1"; |
