diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-01-28 17:25:03 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-01-28 17:25:03 +0000 |
| commit | 8f20275887caedc32e165a1aa9890f861054dd9a (patch) | |
| tree | 942107be35d88adc0ba6f69d7c84bc907384ec9a /pod/pod2text.PL | |
| parent | 2352541471cd5a156f21e29f93b7167afe87acb2 (diff) | |
| download | perl-8f20275887caedc32e165a1aa9890f861054dd9a.tar.gz | |
Upgrade to podlators-2.0.2
p4raw-id: //depot/perl@26988
Diffstat (limited to 'pod/pod2text.PL')
| -rw-r--r-- | pod/pod2text.PL | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/pod/pod2text.PL b/pod/pod2text.PL index 785a3f393f..a978f717ad 100644 --- a/pod/pod2text.PL +++ b/pod/pod2text.PL @@ -37,7 +37,7 @@ print OUT <<'!NO!SUBS!'; # pod2text -- Convert POD data to formatted ASCII text. # -# Copyright 1999, 2000, 2001 by Russ Allbery <rra@stanford.edu> +# Copyright 1999, 2000, 2001, 2004, 2006 by Russ Allbery <rra@stanford.edu> # # This program is free software; you may redistribute it and/or modify it # under the same terms as Perl itself. @@ -99,11 +99,10 @@ if ($options{color}) { delete @options{'color', 'termcap', 'overstrike'}; # Initialize and run the formatter. +my $parser = $formatter->new (%options); do { - my $parser = $formatter->new (%options); my ($input, $output) = splice (@ARGV, 0, 2); - $parser->parse_file ($input, $output); - undef $parser; + $parser->parse_from_file ($input, $output); } while (@ARGV); __END__ @@ -273,7 +272,7 @@ Russ Allbery <rra@stanford.edu>. =head1 COPYRIGHT AND LICENSE -Copyright 1999, 2000, 2001, 2004 by Russ Allbery <rra@stanford.edu>. +Copyright 1999, 2000, 2001, 2004, 2006 by Russ Allbery <rra@stanford.edu>. This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. |