| … | … | ||
|---|---|---|---|
| 975 | sub invoke { | 975 | sub invoke { |
| 976 | local $TERM = shift; | 976 | local $TERM = shift; |
| 977 | my $htype = shift; | 977 | my $htype = shift; |
| 978 | 978 | ||
| 979 | if ($htype == 0) { # INIT | 979 | if ($htype == 0) { # INIT |
| 980 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); | 980 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$ENV{HOME}/.urxvt/ext", "$LIBDIR/perl"); |
| 981 | 981 | ||
| 982 | my %ext_arg; | 982 | my %ext_arg; |
| 983 | 983 | ||
| 984 | { | 984 | { |
| 985 | my @init = @TERM_INIT; | 985 | my @init = @TERM_INIT; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |