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.
p4raw-link: @18669 on //depot/perl: 53ecdda105bb4103d210aff4a70dce9565ed670e

p4raw-id: //depot/perl@19990

1 files changed, 14 insertions, 1 deletions

diff --git a/lib/Pod/Find.pm b/lib/Pod/Find.pm
index 111744b8df..45bea56a43 100644
--- a/lib/Pod/Find.pm
+++ b/lib/Pod/Find.pm
@@ -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 @@ sub pod_where {
       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 ) {
 
@@ -443,6 +446,16 @@ sub pod_where {
         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');
       redo Dir;