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