… | … | ||
---|---|---|---|
485 | 485 | ||
486 | my %want_ext; | 486 | my %want_ext; |
487 | 487 | ||
488 | for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { | 488 | for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { |
489 | if ($_ eq "default") { | 489 | if ($_ eq "default") { |
490 | $want_ext{$_}++ for qw(selection); | 490 | $want_ext{$_}++ for qw(selection option-popup); |
491 | } elsif (/-(.*)/) { | 491 | } elsif (/^-(.*)$/) { |
492 | delete $want_ext{$1}; | 492 | delete $want_ext{$1}; |
493 | } else { | 493 | } else { |
494 | $want_ext{$_}++; | 494 | $want_ext{$_}++; |
495 | } | 495 | } |
496 | } | 496 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |