Lines Matching refs:k

412 			(my $k = $_) =~ tr/[A-Z]/[a-z]/;
417 			if (substr($k, 0, 1) eq '+') {
418 				$k = substr($k, 1);
420 			} elsif (substr($k, 0, 1) eq '-') {
422 				$k = substr($k, 1);
428 				if (defined $resp_hdr{$k}) {
429 					diag(sprintf("\nheader '%s' MUST not be set", $k));
433 				if (not defined $resp_hdr{$k}) {
434 					diag(sprintf("\nrequired header '%s' is missing", $k));
441 					if ($resp_hdr{$k} !~ /$1/) {
444 							$href->{$_}, $resp_hdr{$k}, $1));
447 				} elsif ($href->{$_} ne $resp_hdr{$k}) {
450 						$href->{$_}, $resp_hdr{$k}));