--- rxvt-unicode/src/urxvt.pm	2012/06/07 16:30:58	1.215
+++ rxvt-unicode/src/urxvt.pm	2012/06/10 13:32:55	1.216
@@ -948,12 +948,13 @@
 sub parse_resource {
    my ($term, $name, $isarg, $longopt, $flag, $value) = @_;
 
+   $name =~ y/-/./ if $isarg;
+
    $term->scan_meta;
 
    my $r = $term->{meta}{resource};
+   keys %$r; # reste iterator
    while (my ($pattern, $v) = each %$r) {
-      $name =~ y/-/./ if $isarg;
-
       if (
          $pattern =~ /\.$/
          ? $pattern eq substr $name, 0, length $pattern