From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 7 Jul 1996 20:33:52 +0000 (+0000)
Subject: perl 5.003_01: pod/pod2html.PL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=347a6e9122479579acd85b56a9ef411f7145d7f5;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003_01: pod/pod2html.PL

Correct typo in STDERR
Remove .pm as well as .pod suffix from input filename
Drop erroneous double quotes around function parameter
Convert characters with high bit set to HTML escapes
---

diff --git a/pod/pod2html.PL b/pod/pod2html.PL
index 646190b..ced8478 100644
--- a/pod/pod2html.PL
+++ b/pod/pod2html.PL
@@ -98,9 +98,9 @@ unless (@Pods) {
 
 # loop twice through the pods, first to learn the links, then to produce html
 for $count (0,1) {
-    print STTDER "Scanning pods...\n" unless $count;
+    print STDERR "Scanning pods...\n" unless $count;
     foreach $podfh ( @Pods ) {
-	($pod = $podfh) =~ s/\.pod$//;
+	($pod = $podfh) =~ s/\.(?:pod|pm)$//;
 	Debug("files", "opening 2 $podfh" );
 	print "Creating $pod.html from $podfh\n" if $count;
 	$RS = "\n=";         # grok pods by item (Nonstandard but effecient)
@@ -151,7 +151,7 @@ for $count (0,1) {
 		if ($count) {  # producing html
 		    ($depth) or next; # just skip it
 		    do_list("back",$all[$i+1],\$in_list,\$depth);
-		    do_rest("$title.$rest");
+		    do_rest($title.$rest);
 		}
 	    }
 	    elsif ($cmd =~ /^cut/) {
@@ -161,7 +161,7 @@ for $count (0,1) {
                 if ($count) {  # producing html
                     if ($title =~ s/^html//) {
                         $in_html =1;
-                        do_rest("$title.$rest");
+                        do_rest($title.$rest);
                     }
                 }
             }
@@ -501,6 +501,7 @@ sub gensym {
 sub pre_escapes {  # twiddle these, and stay up late  :-)
     my($thing) = @_;
     for ($$thing) { 
+    s/([\200-\377])/noremap("&".ord($1).";")/ge;
 	s/"(.*?)"/``$1''/gs;
 	s/&/noremap("&amp;")/ge;
 	s/<</noremap("&lt;&lt;")/eg;