[MacPerl-Porters] [PATCH] blib.pm for MacPerl 5.6.1

[Thomas Wegner]

Greetings,

since blib.pm was already there in MacPerl 5.6.1, it should be 
patched for 5.6.1r2 too, I guess.


diff -ru blib.pm.orig561 blib.pm
--- blib.pm.orig561     Tue May 28 19:33:32 2002
+++ blib.pm     Tue May 28 21:43:52 2002
@@ -37,6 +37,7 @@
  =cut

  use Cwd;
+use File::Spec;

  use vars qw($VERSION);
  $VERSION = '1.00';
@@ -51,20 +52,32 @@
     $dir = shift;
     $dir =~ s/blib\z//;
     $dir =~ s,/+\z,,;
-   $dir = '.' unless ($dir);
+   $dir = File::Spec->curdir() unless ($dir);
     die "$dir is not a directory\n" unless (-d $dir);
    }
- my $i   = 5;
+ my $i = 5;
+ my ($blib, $blib_lib, $blib_arch);
   while ($i--)
    {
-   my $blib = "${dir}/blib";
-   if (-d $blib && -d "$blib/arch" && -d "$blib/lib")
+   $blib = File::Spec->catdir($dir, "blib");
+   $blib_lib = File::Spec->catdir($blib, "lib");
+
+   if ($^O eq 'MacOS')
+    {
+        $blib_arch = File::Spec->catdir($blib_lib, "MacPPC");
+       }
+   else
+    {
+        $blib_arch = File::Spec->catdir($blib, "arch");
+       }
+
+   if (-d $blib && -d $blib_arch && -d $blib_lib)
      {
-     unshift(@INC,"$blib/arch","$blib/lib");
+     unshift(@INC,$blib_arch,$blib_lib);
       warn "Using $blib\n";
       return;
-    }
-   $dir .= "/..";
+       }
+   $dir = File::Spec->catdir($dir, File::Spec->updir());
    }
   die "Cannot find blib even in $dir\n";
  }

__END__ of patch


Best regards,

--Thomas