Change 19990: Upgrade to PodParser 1.23; but do not update

[Jarkko Hietaniemi]

Change 19990 by [EMAIL PROTECTED] on 2003/07/04 13:50:29

        Upgrade to PodParser 1.23; but do not update
        t/pod/find.t or t/pod/testp2pt.pl since the
        first one does not work at all under core,
        and the second change would drop MacOS Classic
        portability tweaks introduced by change #18669.

Affected files ...

... //depot/perl/lib/Pod/Find.pm#14 edit
... //depot/perl/lib/Pod/Usage.pm#18 edit

Differences ...

==== //depot/perl/lib/Pod/Find.pm#14 (text) ====
Index: perl/lib/Pod/Find.pm
--- perl/lib/Pod/Find.pm#13~16979~      Mon Jun  3 10:06:03 2002
+++ perl/lib/Pod/Find.pm        Fri Jul  4 06:50:29 2003
@@ -13,7 +13,7 @@
 package Pod::Find;
 
 use vars qw($VERSION);
-$VERSION = 0.22;   ## Current version of this package
+$VERSION = 0.23;   ## Current version of this package
 require  5.005;   ## requires this Perl version or later
 use Carp;
 
@@ -416,6 +416,9 @@
       if -d $Config::Config{'scriptdir'};
   }
 
+  warn "Search path is: ".join(' ', @search_dirs)."\n"
+        if $options{'-verbose'};
+
   # Loop over directories
   Dir: foreach my $dir ( @search_dirs ) {
 
@@ -442,6 +445,16 @@
       warn "Directory $dir does not exist\n"
         if $options{'-verbose'};
       next Dir;
+    }
+    # for some strange reason the path on MacOS/darwin is
+    # 'pods' not 'pod'
+    # this could be the case also for other systems that
+    # have a case-tolerant file system, but File::Spec
+    # does not recognize 'darwin' yet
+    #if(File::Spec->case_tolerant && -d File::Spec->catdir($dir,'pods')) {
+    if($^O =~ /macos|darwin/i && -d File::Spec->catdir($dir,'pods')) {
+      $dir = File::Spec->catdir($dir,'pods');
+      redo Dir;
     }
     if(-d File::Spec->catdir($dir,'pod')) {
       $dir = File::Spec->catdir($dir,'pod');

==== //depot/perl/lib/Pod/Usage.pm#18 (text) ====
Index: perl/lib/Pod/Usage.pm
--- perl/lib/Pod/Usage.pm#17~18224~     Sun Dec  1 18:59:02 2002
+++ perl/lib/Pod/Usage.pm       Fri Jul  4 06:50:29 2003
@@ -10,7 +10,7 @@
 package Pod::Usage;
 
 use vars qw($VERSION);
-$VERSION = 1.14;  ## Current version of this package
+$VERSION = 1.16;  ## Current version of this package
 require  5.005;    ## requires this Perl version or later
 
 =head1 NAME
@@ -469,7 +469,8 @@
     }
 
     ## Default the output file
-    $opts{"-output"} = ($opts{"-exitval"} < 2) ? \*STDOUT : \*STDERR
+    $opts{"-output"} = (lc($opts{"-exitval"}) eq "noexit" ||
+                        $opts{"-exitval"} < 2) ? \*STDOUT : \*STDERR
             unless (defined $opts{"-output"});
     ## Default the input file
     $opts{"-input"} = $0  unless (defined $opts{"-input"});
@@ -506,7 +507,7 @@
              and  $opts{"-output"} == \*STDOUT )
     {
        ## spit out the entire PODs. Might as well invoke perldoc
-       my $progpath = File::Spec->catfile($Config{bin}, "perldoc");
+       my $progpath = File::Spec->catfile($Config{scriptdir}, "perldoc");
        system($progpath, $opts{"-input"});
     }
     else {
End of Patch.