Lines Matching refs:ln
51 my ($file, $ln, $msg, $data) = @_;
55 print STDERR "Warning: file $file#$ln:\n\t$msg";
94 my $ln;
103 $ln++;
115 parse_error($file, $ln, "tag '$tag' is invalid", $_);
121 parse_error($file, $ln, "tag 'Where' is invalid. Should be 'What:' instead", "");
129 push @{$symbols{$content}->{file}}, " $file:" . ($ln - 1);
135 parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{description});
173 $data{$what}->{line_no} = $ln;
175 $data{$what}->{line_no} = $ln if (!defined($data{$what}->{line_no}));
179 parse_error($file, $ln, "'What:' should come first:", $_);
236 parse_error($file, $ln, "Unexpected content", $_);
240 parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{description});