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