diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-09 13:13:29 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-09 13:13:29 +0000 |
| commit | 7d8277e26ba3dacb5d0719896027eea95e497496 (patch) | |
| tree | e9383321a735b202e11f0033cd47682b8854146d /lib/Pod | |
| parent | 1d69df2bf087d7ee3a9ecf4ad5d83ad461d6e51e (diff) | |
| download | perl-7d8277e26ba3dacb5d0719896027eea95e497496.tar.gz | |
Upgrade to Pod::Parser 1.28
(except Pod::Find, which has local patches not yet on CPAN)
p4raw-id: //depot/perl@22920
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Checker.pm | 3 | ||||
| -rw-r--r-- | lib/Pod/ParseUtils.pm | 4 | ||||
| -rw-r--r-- | lib/Pod/Parser.pm | 3 |
3 files changed, 4 insertions, 6 deletions
diff --git a/lib/Pod/Checker.pm b/lib/Pod/Checker.pm index 78e27c4eb4..1e01392af0 100644 --- a/lib/Pod/Checker.pm +++ b/lib/Pod/Checker.pm @@ -10,7 +10,7 @@ package Pod::Checker; use vars qw($VERSION); -$VERSION = 1.41; ## Current version of this package +$VERSION = 1.42; ## Current version of this package require 5.005; ## requires this Perl version or later use Pod::ParseUtils; ## for hyperlinks and lists @@ -744,7 +744,6 @@ sub end_pod { ## print the number of errors found my $self = shift; my $infile = $self->input_file(); - my $out_fh = $self->output_handle(); if(@{$self->{_list_stack}}) { my $list; diff --git a/lib/Pod/ParseUtils.pm b/lib/Pod/ParseUtils.pm index cb784a1a9d..ecebac8a08 100644 --- a/lib/Pod/ParseUtils.pm +++ b/lib/Pod/ParseUtils.pm @@ -10,7 +10,7 @@ package Pod::ParseUtils; use vars qw($VERSION); -$VERSION = 0.30; ## Current version of this package +$VERSION = 1.20; ## Current version of this package require 5.005; ## requires this Perl version or later =head1 NAME @@ -396,7 +396,7 @@ sub parse { if($page =~ /[(]\w*[)]$/) { $self->warning("(section) in '$page' deprecated"); } - if(!$quoted && $node =~ m:[|/]:) { + if(!$quoted && $node =~ m:[|/]: && $type ne 'hyperlink') { $self->warning("node '$node' contains non-escaped | or /"); } if($alttext =~ m:[|/]:) { diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm index 653342e20c..d12e01624a 100644 --- a/lib/Pod/Parser.pm +++ b/lib/Pod/Parser.pm @@ -1155,8 +1155,7 @@ sub parse_from_file { my $self = shift; my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : (); my ($infile, $outfile) = @_; - my ($in_fh, $out_fh); - ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6); + my ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6); my ($close_input, $close_output) = (0, 0); local *myData = $self; local $_; |