[MacPerl-Porters] [PATCH 5.6.0] tests in :t:lib:{n-p}*.t

[Prymmer/Kahn <pvhp@best.com>]

Hi,

Enclosed is a quick patch - also available as lib_n-p_misc.patch
in the http directory that was mentioned several messages ago.

Note that the open2 and open3 tests are skip owing to lack of
$Config{d_fork}.  Note that some tests probe for the presence of a
requisite XS module by examining $Config{extensions} however my copy of
Config.pm does not have an extensions='' entry.  Do the folks further
along with the build of perl + extensions have it?  What does this
return for you:

   perl -V:extensions

thanks.

Here is the patch:
diff -ru :lib.g-i:ndbm.t :lib:ndbm.t
--- :lib.g-i:ndbm.t	Tue Jul 20 17:18:13 1999
+++ :lib:ndbm.t	Sun May 21 20:17:01 2000
@@ -4,7 +4,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, ($^O eq 'MacOS') ? '::lib:' : '../lib';
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bNDBM_File\b/) {
 	print "1..0 # Skip: NDBM_File was not built\n";
diff -ru :lib.g-i:odbm.t :lib:odbm.t
--- :lib.g-i:odbm.t	Fri Aug 20 15:52:02 1999
+++ :lib:odbm.t	Sun May 21 20:18:29 2000
@@ -4,7 +4,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, ($^O eq 'MacOS') ? '::lib:' : '../lib';
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bODBM_File\b/) {
 	print "1..0 # Skip: ODBM_File was not built\n";
diff -ru :lib.g-i:opcode.t :lib:opcode.t
--- :lib.g-i:opcode.t	Tue Jul 20 17:18:13 1999
+++ :lib:opcode.t	Sun May 21 20:26:55 2000
@@ -4,7 +4,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, ($^O eq 'MacOS') ? '::lib:' : '../lib';
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
         print "1..0\n";
diff -ru :lib.g-i:open2.t :lib:open2.t
--- :lib.g-i:open2.t	Tue Jul 20 17:18:13 1999
+++ :lib:open2.t	Sun May 21 20:31:02 2000
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, ($^O eq 'MacOS') ? '::lib:' : '../lib';
     require Config; import Config;
     if (!$Config{'d_fork'}
        # open2/3 supported on win32 (but not Borland due to CRT bugs)
diff -ru :lib.g-i:open3.t :lib:open3.t
--- :lib.g-i:open3.t	Tue Jul 20 17:18:13 1999
+++ :lib:open3.t	Sun May 21 20:32:10 2000
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, ($^O eq 'MacOS') ? '::lib:' : '../lib';
     require Config; import Config;
     if (!$Config{'d_fork'}
        # open2/3 supported on win32 (but not Borland due to CRT bugs)
diff -ru :lib.g-i:ops.t :lib:ops.t
--- :lib.g-i:ops.t	Tue Jul 20 17:18:13 1999
+++ :lib:ops.t	Sun May 21 20:34:12 2000
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, ($^O eq 'MacOS') ? '::lib:' : '../lib';
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
         print "1..0\n";
diff -ru :lib.g-i:parsewords.t :lib:parsewords.t
--- :lib.g-i:parsewords.t	Mon Mar 13 21:25:37 2000
+++ :lib:parsewords.t	Sun May 21 20:36:35 2000
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, ($^O eq 'MacOS') ? '::lib:' : '../lib';
 }
 
 use warnings;
diff -ru :lib.g-i:ph.t :lib:ph.t
--- :lib.g-i:ph.t	Tue Jul 20 17:18:13 1999
+++ :lib:ph.t	Sun May 21 20:37:44 2000
@@ -6,7 +6,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, ($^O eq 'MacOS') ? '::lib:' : '../lib';
 }
 
 # All the constants which Socket.pm tries to make available:
diff -ru :lib.g-i:posix.t :lib:posix.t
--- :lib.g-i:posix.t	Sat Feb 19 16:08:47 2000
+++ :lib:posix.t	Sun May 21 20:39:40 2000
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, ($^O eq 'MacOS') ? '::lib:' : '../lib';
     require Config; import Config;
     if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
 	print "1..0\n";
End of Patch.

Peter Prymmer




==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-porters-request@macperl.org