repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 13648ad137816d458673ac53d7c59de7a206dd16:
path_to: 
revision_to: 

commit 13648ad137816d458673ac53d7c59de7a206dd16
Author: Marc Lehmann 
Date:   Tue Jun 5 21:29:52 2012 +0000

    *** empty log message ***

diff --git a/doc/rxvt.1.pod b/doc/rxvt.1.pod

--- a/doc/rxvt.1.pod
+++ b/doc/rxvt.1.pod
@@ -1287,9 +1287,9 @@ the @@RXVT_NAME@@perl(3) manpage.
 =item B: I

 Colon-separated list of additional directories that hold extension
-scripts. When looking for perl extensions, @@RXVT_NAME@@ will first
-look in these directories, then in $HOME/.urxvt/ext and lastly in
-F<@@RXVT_LIBDIR@@/urxvt/perl/>.
+scripts. When looking for perl extensions, @@RXVT_NAME@@ will first look
+in these directories, then in C<$RXVT_PERL_LIB>, F<$HOME/.urxvt/ext> and
+lastly in F<@@RXVT_LIBDIR@@/urxvt/perl/>.

 See the @@RXVT_NAME@@perl(3) manpage.

@@ -1639,13 +1639,19 @@ defaults to C<:0> if it doesn't exist.

 The shell to be used for command execution, defaults to C.

-=item B
+=item B (sic)

 The unix domain socket path used by @@RXVT_NAME@@c(1) and
 @@RXVT_NAME@@d(1).

 Default F<<< $HOME/.urxvt/urxvtd-I<<  >> >>>.

+=item B (sic)
+
+Additional F<:>-separated library search path for perl extensions. Will be
+searched after B<-perl-lib> but before F<~/.urxvt/ext> and the system library
+directory.
+
 =item B

 Used to locate the default directory for the unix domain socket for
diff --git a/src/urxvt.pm b/src/urxvt.pm

--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -945,9 +945,23 @@ BEGIN {

 no warnings 'utf8';

+sub perl_libdirs {
+   map { split /:/ }
+      $_[0]->resource ("perl_lib"),
+      $ENV{URXVT_PERL_LIB},
+      "$ENV{HOME}/.urxvt/ext",
+      "$LIBDIR/perl"
+}
+
+our %META; # meta header information from scripts
+our %SCAN; # which dirs already scanned
+
 sub resource {
    my ($term, $name, $isarg, $flag, $value) = @_;

+   for my $dir (perl_libdirs $term) {
+   }
+
    warn "resourece<@_>\n";#d#

    0
@@ -998,7 +1012,7 @@ sub invoke {
    my $htype = shift;

    if ($htype == 0) { # INIT
-      my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$ENV{HOME}/.urxvt/ext", "$LIBDIR/perl");
+      my @dirs = perl_libdirs $TERM;

       my %ext_arg;

-----END OF PAGE-----