--- rxvt-unicode/src/urxvt.pm	2006/01/08 00:11:38	1.50
+++ rxvt-unicode/src/urxvt.pm	2006/01/08 00:27:47	1.51
@@ -487,8 +487,8 @@
 
       for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
          if ($_ eq "default") {
-            $want_ext{$_}++ for qw(selection);
-         } elsif (/-(.*)/) {
+            $want_ext{$_}++ for qw(selection option-popup);
+         } elsif (/^-(.*)$/) {
             delete $want_ext{$1};
          } else {
             $want_ext{$_}++;