--- rxvt-unicode/src/urxvt.pm	2014/05/18 18:09:52	1.237
+++ rxvt-unicode/src/urxvt.pm	2014/05/18 18:15:04	1.238
@@ -677,7 +677,6 @@
       }
 
       for (
-         @{ delete $TERM->{perl_ext_3} },
          grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2
       ) {
          if ($_ eq "default") {
@@ -685,7 +684,8 @@
             $ext_arg{$_} = []
                for
                   qw(selection option-popup selection-popup readline),
-                  map $_->[0], values %{ $TERM->{meta}{binding} };
+                  map $_->[0], values %{ $TERM->{meta}{binding} },
+                  @{ delete $TERM->{perl_ext_3} };
 
             for ($TERM->_keysym_resources) {
                next if /^(?:string|command|builtin|builtin-string|perl)/;