… | |
… | |
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); |