[MacPerl-Porters] [PATCH] ":perl:t:lib:selfloader.t"

[Thomas Wegner]

Hi,

I'm sending a patch for ":perl:t:lib:selfloader.t".

The patch makes this test happy on Mac OS.
 

diff -ru :perl:t:lib:selfloader.t.orig :perl:t:lib:selfloader.t
--- :perl:t:lib:selfloader.t.orig       Mon Feb  5 23:54:30 2001
+++ :perl:t:lib:selfloader.t    Thu May 31 18:21:58 2001
@@ -2,16 +2,26 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    $dir = "self-$$";
-    @INC = $dir;
-    push @INC, '../lib';
+    if ($^O eq 'MacOS') {
+      $dir = ":self-$$";
+      @INC = $dir;
+      push @INC, '::lib';
+    } else { 
+      $dir = "self-$$";
+      @INC = $dir;
+      push @INC, '../lib';
+    }
 
     print "1..19\n";
 
     # First we must set up some selfloader files
     mkdir $dir, 0755            or die "Can't mkdir $dir: $!";
 
-    open(FOO, ">$dir/Foo.pm") or die;
+    if ($^O eq 'MacOS') {
+      open(FOO, ">$dir:Foo.pm") or die;
+    } else {
+      open(FOO, ">$dir/Foo.pm") or die;
+    }
     print FOO <<'EOT';
 package Foo;
 use SelfLoader;
@@ -40,7 +50,11 @@
 
     close(FOO);
 
-    open(BAR, ">$dir/Bar.pm") or die;
+    if ($^O eq 'MacOS') {
+      open(BAR, ">$dir:Bar.pm") or die;
+    } else {
+      open(BAR, ">$dir/Bar.pm") or die;
+    }
     print BAR <<'EOT';
 package Bar;
 use SelfLoader;
@@ -196,6 +210,10 @@
 # cleanup
 END {
 return unless $dir && -d $dir;
-unlink "$dir/Foo.pm", "$dir/Bar.pm";
+if ($^O eq 'MacOS') {
+    unlink "$dir:Foo.pm", "$dir:Bar.pm";
+} else {
+    unlink "$dir/Foo.pm", "$dir/Bar.pm";
+}
 rmdir "$dir";
 }


__END__ of patch


The patches should be applied against MacPerl 5.6.1a2, i.e. after the maint patch has 
been applied.


Best regards,

--Thomas

_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com