This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Pod::Text fixes
authorRoderick Schertler <roderick@gate.net>
Sat, 22 Feb 1997 18:03:08 +0000 (13:03 -0500)
committerChip Salzenberg <chip@atlantic.net>
Fri, 21 Feb 1997 14:41:53 +0000 (02:41 +1200)
Here are some bug fixes for Pod::Text.

Is it a bug that text given to =for and =begin doesn't get indented?  It
seems like a bug to me, but I imagine one could argue the other way so I
wanted to test opinion before fixing it.

p5p-msgid: <350.856634588@eeyore.ibcinc.com>

lib/Pod/Text.pm

index 2ecaebe..d40abbc 100644 (file)
@@ -48,7 +48,7 @@ require Exporter;
 @EXPORT = qw(pod2text);
 
 use vars qw($VERSION);
-$VERSION = "1.0201";
+$VERSION = "1.0202";
 
 $termcap=0;
 
@@ -101,7 +101,7 @@ POD_DIRECTIVE: while (<IN>) {
              $begun = "";
         }
         elsif ($begun eq "text") {
-            print STDOUT $_;
+            print OUTPUT $_;
         }
         next;
     }
@@ -119,7 +119,7 @@ POD_DIRECTIVE: while (<IN>) {
 
     if (/^=for\s+(\S+)\s*(.*)/s) {
         if ($1 eq "text") {
-            print STDOUT $2,"";
+            print OUTPUT $2,"";
         } else {
             # ignore unknown for
         }
@@ -128,7 +128,7 @@ POD_DIRECTIVE: while (<IN>) {
     elsif (/^=begin\s+(\S+)\s*(.*)/s) {
         $begun = $1;
         if ($1 eq "text") {
-            print STDOUT $2."";
+            print OUTPUT $2."";
         }
         next;
     }
@@ -211,6 +211,9 @@ sub prepare_for_output {
        if ($Cmd eq 'cut') {
            $cutting = 1;
        }
+       elsif ($Cmd eq 'pod') {
+           $cutting = 0;
+       }
        elsif ($Cmd eq 'head1') {
            makespace();
            print OUTPUT;