diff options
| author | Russ Allbery <rra@stanford.edu> | 2001-07-19 08:52:37 -0700 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-07-20 06:44:44 +0000 |
| commit | aa212ad6bac1d6418641d6202980bfcb97513e73 (patch) | |
| tree | 523397e049b2bc4f706538930ec3b83d3db44ddf /lib | |
| parent | dad750121485da0e5d544b0581f7569bb424e5d3 (diff) | |
| download | perl-aa212ad6bac1d6418641d6202980bfcb97513e73.tar.gz | |
Re: [PATCH: perl@11373] pod fixups for pod/perlhack.pod
Message-Id: <ylvgko4jm2.fsf@windlord.stanford.edu>
p4raw-id: //depot/perl@11416
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Man.pm | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm index 669e04ba0a..9c6eba0a55 100644 --- a/lib/Pod/Man.pm +++ b/lib/Pod/Man.pm @@ -1,5 +1,5 @@ # Pod::Man -- Convert POD data to formatted *roff input. -# $Id: Man.pm,v 1.19 2001/07/10 11:08:09 eagle Exp $ +# $Id: Man.pm,v 1.20 2001/07/19 22:51:11 eagle Exp $ # # Copyright 1999, 2000, 2001 by Russ Allbery <rra@stanford.edu> # @@ -37,7 +37,7 @@ use vars qw(@ISA %ESCAPES $PREAMBLE $VERSION); # Don't use the CVS revision as the version, since this module is also in Perl # core and too many things could munge CVS magic revision strings. This # number should ideally be the same as the CVS revision in podlators, however. -$VERSION = 1.19; +$VERSION = 1.20; ############################################################################## @@ -569,7 +569,8 @@ sub sequence { } elsif (exists $ESCAPES{$_}) { return bless \ "$ESCAPES{$_}", 'Pod::Man::String'; } else { - carp "Unknown escape E<$1>"; + my ($file, $line) = $seq->file_line; + warn "$file:$line: Unknown escape E<$_>\n"; return bless \ "E<$_>", 'Pod::Man::String'; } } @@ -607,7 +608,8 @@ sub sequence { if ($command eq 'X') { push (@{ $$self{INDEX} }, $_); return '' } # Anything else is unknown. - carp "Unknown sequence $command<$_>"; + my ($file, $line) = $seq->file_line; + warn "$file:$line: Unknown sequence $command<$_>\n"; } @@ -702,7 +704,9 @@ sub cmd_back { my $self = shift; $$self{INDENT} = pop @{ $$self{INDENTS} }; unless (defined $$self{INDENT}) { - carp "Unmatched =back"; + my ($file, $line, $paragraph) = @_; + ($file, $line) = $paragraph->file_line; + warn "$file:$line: Unmatched =back\n"; $$self{INDENT} = 0; } if ($$self{WEIRDINDENT}) { @@ -1344,17 +1348,17 @@ invalid. A quote specification must be one, two, or four characters long. (W) The POD source contained a non-standard command paragraph (something of the form C<=command args>) that Pod::Man didn't know about. It was ignored. -=item Unknown escape EE<lt>%sE<gt> +=item %s:%d: Unknown escape EE<lt>%sE<gt> (W) The POD source contained an C<EE<lt>E<gt>> escape that Pod::Man didn't know about. C<EE<lt>%sE<gt>> was printed verbatim in the output. -=item Unknown sequence %s +=item %s:%d: Unknown sequence %s (W) The POD source contained a non-standard interior sequence (something of the form C<XE<lt>E<gt>>) that Pod::Man didn't know about. It was ignored. -=item Unmatched =back +=item %s:%d: Unmatched =back (W) Pod::Man encountered a C<=back> command that didn't correspond to an C<=over> command. |