… | |
… | |
465 | my $htype = shift; |
465 | my $htype = shift; |
466 | |
466 | |
467 | if ($htype == 0) { # INIT |
467 | if ($htype == 0) { # INIT |
468 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); |
468 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); |
469 | |
469 | |
470 | for my $ext (map { split /:/, $TERM->resource ("perl_ext_$_") } 1, 2) { |
470 | for my $ext (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { |
471 | my @files = grep -f $_, map "$_/$ext", @dirs; |
471 | my @files = grep -f $_, map "$_/$ext", @dirs; |
472 | |
472 | |
473 | if (@files) { |
473 | if (@files) { |
474 | register_package script_package $files[0]; |
474 | register_package script_package $files[0]; |
475 | } else { |
475 | } else { |