From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Fri, 13 Mar 1998 20:03:52 +0000 (-0500)
Subject: pod2html again
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4d9b39d8f15049e1549fda7afe0c7c2d758d308;p=p5sagit%2Fp5-mst-13.2.git

pod2html again

	Message-Id: <199803140103.UAA04839@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1102
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index dafa27d..a0dc4b3 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1010,13 +1010,19 @@ sub process_pod {
 
 #
 # process_for - process a =for pod tag.  if it's for html, split
-# it out verbatim, otherwise ignore it.
+# it out verbatim, if illustration, center it, otherwise ignore it.
 #
 sub process_for {
     my($whom, $text) = @_;
     if ( $whom =~ /^(pod2)?html$/i) {
 	print HTML $text;
-    } 
+    } elsif ($whom =~ /^illustration$/i) {
+        1 while chomp $text;
+	for my $ext (qw[.png .gif .jpeg .jpg .tga .pcl .bmp]) {
+	  $text .= $ext, last if -r "$text$ext";
+	}
+        print HTML qq{<p align = "center"><img src = "$text" alt = "$text illustration"></p>};
+    }
 }
 
 #