From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 27 Oct 2003 12:39:39 +0000 (+0000)
Subject: Sync with Pod::Perldoc 3.12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0377e16d912288b7c21a9d90350476c453da3e44;p=p5sagit%2Fp5-mst-13.2.git

Sync with Pod::Perldoc 3.12

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

diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm
index 8f1bb0c..178481e 100644
--- a/lib/Pod/Perldoc.pm
+++ b/lib/Pod/Perldoc.pm
@@ -12,7 +12,7 @@ use File::Spec::Functions qw(catfile catdir splitdir);
 use vars qw($VERSION @Pagers $Bindir $Pod2man
   $Temp_Files_Created $Temp_File_Lifetime
 );
-$VERSION = '3.11';
+$VERSION = '3.12';
 #..........................................................................
 
 BEGIN {  # Make a DEBUG constant very first thing...
@@ -766,9 +766,12 @@ sub maybe_generate_dynamic_pod {
         push @{ $self->{'temp_file_list'} }, $buffer;
          # I.e., it MIGHT be deleted at the end.
         
-        print $buffd "=over 8\n\n";
+	my $in_list = $self->opt_f;
+
+        print $buffd "=over 8\n\n" if $in_list;
         print $buffd @dynamic_pod  or die "Can't print $buffer: $!";
-        print $buffd "=back\n";
+        print $buffd "=back\n"     if $in_list;
+
         close $buffd        or die "Can't close $buffer: $!";
         
         @$found_things = $buffer;