[MacPerl-Porters] [PATCHES] tie-push.t & tie-splice.t &tie-stdarray.t & tie-stdpush.t

[Thomas Wegner]

Hi, 

I'm sending patches for ":perl:t:lib:tie-push.t", ":perl:t:lib:tie-splice.t", 
":perl:t:lib:tie-stdarray.t" and ":perl:t:lib:tie-stdpush.t". There are some path 
specification issues that have to be fixed to make these tests happy on Mac OS. And 
here they are:


diff -ru :perl:t:lib:tie-push.t.orig :perl:t:lib:tie-push.t
--- :perl:t:lib:tie-push.t.orig Mon Feb  5 23:54:31 2001
+++ :perl:t:lib:tie-push.t      Mon May 28 20:15:27 2001
@@ -2,8 +2,12 @@
 
 BEGIN {
     chdir 't' if -d 't';
+    if ($^O eq 'MacOS') { 
+    @INC = qw(: ::lib); 
+    } else { 
     @INC = '.'; 
-    push @INC, '../lib';
+    push @INC, '../lib';  
+    }
 }    
 
 {
@@ -22,4 +26,8 @@
 tie @get,Basic;
 tie @got,Basic;
 tie @tests,Basic;
-require "op/push.t"
+if ($^O eq 'MacOS') {
+    require ":op:push.t";
+} else {
+    require "op/push.t";
+}


diff -ru :perl:t:lib:tie-splice.t.orig :perl:t:lib:tie-splice.t
--- :perl:t:lib:tie-splice.t.orig       Tue Mar 27 23:10:41 2001
+++ :perl:t:lib:tie-splice.t    Tue May 29 20:18:19 2001
@@ -2,8 +2,12 @@
 
 BEGIN {
     chdir 't' if -d 't';
+    if ($^O eq 'MacOS') { 
+    @INC = qw(: ::lib); 
+    } else { 
     @INC = '.'; 
-    push @INC, '../lib';
+    push @INC, '../lib';  
+    }
 }
 
 # bug id 20001020.002
@@ -12,6 +16,10 @@
 use Tie::Array;
 tie @a,Tie::StdArray;
 undef *Tie::StdArray::SPLICE;
-require "op/splice.t"
+if ($^O eq 'MacOS') {
+    require ":op:splice.t";
+} else {
+    require "op/splice.t";
+}
 
 # Pre-fix, this failed tests 6-9


diff -ru :perl:t:lib:tie-stdarray.t.orig :perl:t:lib:tie-stdarray.t
--- :perl:t:lib:tie-stdarray.t.orig     Tue May 29 18:30:54 2001
+++ :perl:t:lib:tie-stdarray.t  Tue May 29 18:37:19 2001
@@ -1,13 +1,21 @@
 #!./perl
 
 BEGIN {
-    chdir 't' if -d 't'; 
+    chdir 't' if -d 't';
+    if ($^O eq 'MacOS') { 
+    @INC = qw(: ::lib); 
+    } else { 
     @INC = '.'; 
     push @INC, '../lib';  
+    }
 }
 
 use Tie::Array;
 tie @foo,Tie::StdArray;
 tie @ary,Tie::StdArray;
 tie @bar,Tie::StdArray;
-require "op/array.t"
+if ($^O eq 'MacOS') { 
+    require ":op:array.t"
+} else {
+    require "op/array.t"
+}



diff -ru :perl:t:lib:tie-stdpush.t.orig :perl:t:lib:tie-stdpush.t
--- :perl:t:lib:tie-stdpush.t.orig      Mon Feb  5 23:54:31 2001
+++ :perl:t:lib:tie-stdpush.t   Tue May 29 19:07:19 2001
@@ -2,10 +2,18 @@
 
 BEGIN {
     chdir 't' if -d 't';
+    if ($^O eq 'MacOS') { 
+    @INC = qw(: ::lib); 
+    } else { 
     @INC = '.'; 
-    push @INC, '../lib';
+    push @INC, '../lib';  
+    }
 }
 
 use Tie::Array;
 tie @x,Tie::StdArray;
-require "op/push.t"
+if ($^O eq 'MacOS') {
+    require ":op:push.t";
+} else {
+    require "op/push.t";
+}


__END__ of patches


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