X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fpod2html.PL;h=ced84783e5fb407d5c1f5ccaa4eb786e39811d38;hb=84287afe68eecc4342d7e27aac5d9df9d2412490;hp=646190bddbce69afc3a7a83b4206e4b54b37c305;hpb=f360dba143c864a53fdb1573b40795cfe2331220;p=p5sagit%2Fp5-mst-13.2.git

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("&")/ge;
 	s/<</noremap("&lt;&lt;")/eg;