| … | |
… | |
| 729 | @TERM_EXT = (); |
729 | @TERM_EXT = (); |
| 730 | $TERM->register_package ($_) for @pkg; |
730 | $TERM->register_package ($_) for @pkg; |
| 731 | } |
731 | } |
| 732 | |
732 | |
| 733 | for ( |
733 | for ( |
|
|
734 | @{ delete $TERM->{perl_ext_3} }, |
| 734 | (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2), |
735 | (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2), |
| 735 | @{ delete $TERM->{perl_ext_3} } |
|
|
| 736 | ) { |
736 | ) { |
| 737 | if ($_ eq "default") { |
737 | if ($_ eq "default") { |
| 738 | |
738 | |
| 739 | $ext_arg{$_} = [] |
739 | $ext_arg{$_} = [] |
| 740 | for qw(selection option-popup selection-popup readline searchable-scrollback); |
740 | for qw(selection option-popup selection-popup readline searchable-scrollback); |
