--- rxvt-unicode/src/urxvt.pm	2006/01/06 05:37:59	1.40
+++ rxvt-unicode/src/urxvt.pm	2006/01/06 20:50:58	1.41
@@ -467,7 +467,7 @@
    if ($htype == 0) { # INIT
       my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
 
-      for my $ext (map { split /:/, $TERM->resource ("perl_ext_$_") } 1, 2) {
+      for my $ext (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
          my @files = grep -f $_, map "$_/$ext", @dirs;
 
          if (@files) {