From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 9 Jun 2004 13:13:29 +0000 (+0000)
Subject: Upgrade to Pod::Parser 1.28
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d8277e26ba3dacb5d0719896027eea95e497496;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Pod::Parser 1.28
(except Pod::Find, which has local patches not yet on CPAN)

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

diff --git a/lib/Pod/Checker.pm b/lib/Pod/Checker.pm
index 78e27c4..1e01392 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 cb784a1..ecebac8 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 653342e..d12e016 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 $_;
diff --git a/pod/pod2usage.PL b/pod/pod2usage.PL
index 1b14c17..ae4aaba 100644
--- a/pod/pod2usage.PL
+++ b/pod/pod2usage.PL
@@ -15,8 +15,9 @@ use Cwd;
 # This is so that make depend always knows where to find PL derivatives.
 $origdir = cwd;
 chdir(dirname($0));
-$file = basename($0, '.PL');
-$file .= '.com' if $^O eq 'VMS';
+($file = basename($0)) =~ s/\.PL$//;
+$file =~ s/\.pl$// if ($^O eq 'os2' or $^O eq 'dos');  # "case-forgiving"
+$file =~ s/\.pl$/.com/ if ($^O eq 'VMS');              # "case-forgiving"
 
 open OUT,">$file" or die "Can't create $file: $!";
 
diff --git a/pod/podchecker.PL b/pod/podchecker.PL
index 1a903b5..1fa6917 100644
--- a/pod/podchecker.PL
+++ b/pod/podchecker.PL
@@ -114,8 +114,10 @@ L<Pod::Parser> and L<Pod::Checker>
 
 =head1 AUTHORS
 
+Please report bugs using L<http://rt.cpan.org>.
+
 Brad Appleton E<lt>bradapp@enteract.comE<gt>,
-Marek Rouchal E<lt>marek@saftsack.fs.uni-bayreuth.deE<gt>
+Marek Rouchal E<lt>marekr@cpan.orgE<gt>
 
 Based on code for B<Pod::Text::pod2text(1)> written by
 Tom Christiansen E<lt>tchrist@mox.perl.comE<gt>
diff --git a/pod/podselect.PL b/pod/podselect.PL
index 138e076..7022fd2 100644
--- a/pod/podselect.PL
+++ b/pod/podselect.PL
@@ -15,8 +15,9 @@ use Cwd;
 # This is so that make depend always knows where to find PL derivatives.
 $origdir = cwd;
 chdir(dirname($0));
-$file = basename($0, '.PL');
-$file .= '.com' if $^O eq 'VMS';
+($file = basename($0)) =~ s/\.PL$//;
+$file =~ s/\.pl$// if ($^O eq 'os2' or $^O eq 'dos');  # "case-forgiving"
+$file =~ s/\.pl$/.com/ if ($^O eq 'VMS');              # "case-forgiving"
 
 open OUT,">$file" or die "Can't create $file: $!";
 
diff --git a/t/pod/find.t b/t/pod/find.t
index 412771d..7f8476d 100644
--- a/t/pod/find.t
+++ b/t/pod/find.t
@@ -49,7 +49,7 @@ my $compare = $ENV{PERL_CORE} ?
   join(',', sort qw(
     Pod::Stuff
 ))
-  : join(',', qw(
+  : join(',', sort qw(
     Pod::Checker
     Pod::Find
     Pod::InputObjects