Change 15229 by jhi@alpha on 2002/03/15 02:55:34
Subject: RE: [PATCH] Get rid of bad error message formatting in Pod::Html
From: "Brent Dax" <[EMAIL PROTECTED]>
Date: Thu, 14 Mar 2002 09:08:41 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Pod/Html.pm#54 edit
Differences ...
==== //depot/perl/lib/Pod/Html.pm#54 (text) ====
Index: perl/lib/Pod/Html.pm
--- perl/lib/Pod/Html.pm.~1~ Thu Mar 14 20:00:05 2002
+++ perl/lib/Pod/Html.pm Thu Mar 14 20:00:05 2002
@@ -407,7 +407,7 @@
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 @@
# 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 @@
} 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 @@
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 @@
}
$res .= $2;
}
- warn "$0: $podfile: undelimited $func<> in paragraph $paragraph.";
+ warn "$0: $podfile: undelimited $func<> in paragraph $paragraph.\n";
return $res;
}
End of Patch.
