Lines Matching refs:key
299 while (my ($key, $value) = each %$suspect) {
300 # Force a hash recompute if this perl's internals can cache the hash key.
301 $key = "" . $key;
302 if (exists $orig->{$key}) {
303 if ($orig->{$key} ne $value) {
304 print STDOUT "# key ", _qq($key), " was ", _qq($orig->{$key}),
309 print STDOUT "# key ", _qq($key), " is ", _qq($value),
315 # Force a hash recompute if this perl's internals can cache the hash key.
318 print STDOUT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n";