Lines Matching refs:k1
1320 my ($h, $k1, $k2, $v) = @_;1321 if (exists $h->{$k1}->{$k2}) {1322 die "Error: $k1:$k2 already set to " .1323 $h->{$k1}->{$k2} . ", cannot set to " . $v;1325 $h->{$k1}->{$k2} = $v;
