diff options
| author | Nicholas Clark <nick@ccl4.org> | 2003-10-27 12:39:39 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-10-27 12:39:39 +0000 |
| commit | 0377e16d912288b7c21a9d90350476c453da3e44 (patch) | |
| tree | f297954f577685c4909cee17a0fa6bde0a1ee45a /lib/Pod | |
| parent | 6f698202e5ae120e98ec531d30dc8ff690fa41f5 (diff) | |
| download | perl-0377e16d912288b7c21a9d90350476c453da3e44.tar.gz | |
Sync with Pod::Perldoc 3.12
p4raw-id: //depot/perl@21548
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Perldoc.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm index 8f1bb0cb55..178481e0aa 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; |