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