From 09e75b67b2ae29a7dbcad77a47adaf75ad76bbeb Mon Sep 17 00:00:00 2001 From: millert Date: Wed, 7 Apr 2004 21:32:56 +0000 Subject: merge local changes into perl-5.8.3 --- gnu/usr.bin/perl/lib/Pod/Perldoc.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'gnu/usr.bin/perl/lib/Pod/Perldoc.pm') diff --git a/gnu/usr.bin/perl/lib/Pod/Perldoc.pm b/gnu/usr.bin/perl/lib/Pod/Perldoc.pm index d00b604483c..5413fbd3307 100644 --- a/gnu/usr.bin/perl/lib/Pod/Perldoc.pm +++ b/gnu/usr.bin/perl/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; -- cgit v1.2.3-59-g8ed1b