diff options
| author | Brent Dax <brentdax@cpan.org> | 2002-03-14 01:08:41 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-15 02:55:34 +0000 |
| commit | f8f99792a41bb8e3b8d79451b979dbe275636f1a (patch) | |
| tree | db24e9aa1db6e9a25b9dcf824e693aaede6b605b /lib | |
| parent | 7f45fac236f26ae9ce0b7455315edbed1b12f481 (diff) | |
| download | perl-f8f99792a41bb8e3b8d79451b979dbe275636f1a.tar.gz | |
RE: [PATCH] Get rid of bad error message formatting in Pod::Html
From: "Brent Dax" <brentdax@cpan.org>
Message-ID: <FJELLKOPEAGHOOODKEDPOEIBDFAA.brentdax@cpan.org>
p4raw-id: //depot/perl@15229
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Html.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 91f78f6e03..362b054e3f 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -407,7 +407,7 @@ sub pod2html { if ($title) { $title =~ s/\s*\(.*\)//; } else { - warn "$0: no title for $podfile" unless $quiet; + warn "$0: no title for $podfile.\n" unless $quiet; $podfile =~ /^(.*)(\.[^.\/]+)?\z/s; $title = ($podfile eq "-" ? 'No Title' : $1); warn "using $title" if $verbose; @@ -1595,7 +1595,7 @@ sub process_text1($$;$$){ # warning; show some text. $linktext = $opar unless defined $linktext; - warn "$0: $podfile: cannot resolve L<$opar> in paragraph $paragraph."; + warn "$0: $podfile: cannot resolve L<$opar> in paragraph $paragraph.\n"; } # now we have a URL or just plain code @@ -1617,7 +1617,7 @@ sub process_text1($$;$$){ } elsif( $func eq 'Z' ){ # Z<> - empty - warn "$0: $podfile: invalid X<> in paragraph $paragraph." + warn "$0: $podfile: invalid X<> in paragraph $paragraph.\n" unless $$rstr =~ s/^>//; } else { @@ -1636,7 +1636,7 @@ sub process_text1($$;$$){ if( $lev == 1 ){ $res .= pure_text( $$rstr ); } else { - warn "$0: $podfile: undelimited $func<> in paragraph $paragraph."; + warn "$0: $podfile: undelimited $func<> in paragraph $paragraph.\n"; } } return $res; @@ -1660,7 +1660,7 @@ sub go_ahead($$$){ } $res .= $2; } - warn "$0: $podfile: undelimited $func<> in paragraph $paragraph."; + warn "$0: $podfile: undelimited $func<> in paragraph $paragraph.\n"; return $res; } |