Lines Matching refs:header

325     my $header;
370 	    if (defined $header) { 
371 		if ( $header eq 'DESCRIPTION' && 
380 		$msg{$header} .= $_;
389 	# the previous header needs to share the same description.
394 	    push @headers, $header if defined $header;
400 		$msg{$header = 'DESCRIPTION'} = '';
412                     undef $header;
421 	if( $for_item ) { $header = $for_item; undef $for_item } 
423 	    $header = $1;
425 	    $header =~ s/\n/ /gs; # Allow multi-line headers
429 	$header =~ s/[A-Z]<(.*?)>/$1/g;
432 	$header =~ s/(\.\s*)?$//;
434         my @toks = split( /(%l?[dxX]|%[ucp]|%(?:\.\d+)?[fs])/, $header );
457 	    $transfmt{$header}{pat} =
458               "    s^\\s*$lhs\\s*\Q$header\Es\n\t&& return 1;\n";
459             $transfmt{$header}{len} = $conlen;
461             my $lhs = "\Q$header\E";
463             $transfmt{$header}{pat} =
464 	      "    s^\\s*$lhs\\s*\Q$header\E\n\t && return 1;\n";
465             $transfmt{$header}{len} = length( $header );
468 	print STDERR __PACKAGE__.": Duplicate entry: \"$header\"\n"
469 	    if $msg{$header};
471 	$msg{$header} = '';