Lines Matching refs:key
101 while (my ($key, $value) = each %$suspect) {102 if (exists $orig->{$key}) {103 if ($orig->{$key} ne $value) {104 print "# key '$key' was '$orig->{$key}' now '$value'\n";108 print "# key '$key' is '$orig->{$key}', unexpect.\n";114 print "# key '$_' was '$orig->{$_}' now missing\n";