Lines Matching refs:tag
117 my $tag = "";
134 if ($tag eq "description") {
135 # New "tag" is actually part of
136 # description. Don't consider it a tag
138 } elsif ($tag ne "") {
139 parse_error($file, $ln, "tag '$tag' is invalid", $_);
145 parse_error($file, $ln, "tag 'Where' is invalid. Should be 'What:' instead", "");
155 if ($tag =~ m/what/) {
171 $tag = $new_tag;
177 if ($tag ne "" && $new_tag) {
178 $tag = $new_tag;
215 $data{$what}->{$tag} .= $content;
221 $data{$what}->{$tag} = $content;
228 if (!$tag && $data{$nametag}->{what}) {
233 if ($tag eq "description") {
237 $data{$what}->{$tag} .= "\n";
250 $data{$what}->{$tag} .= $content;
255 $data{$what}->{$tag} .= "\n$1";
256 $data{$what}->{$tag} =~ s/\n+$//;