--- rxvt-unicode/src/urxvt.pm	2012/06/05 21:06:15	1.206
+++ rxvt-unicode/src/urxvt.pm	2012/06/05 21:29:52	1.207
@@ -945,9 +945,23 @@
 
 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 @@
    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;