OS/2 tweaks for usethreads build (from Rocco Caputo

<troc@netrus.net>)

p4raw-id: //depot/perl@6149

4 files changed, 12 insertions, 13 deletions

diff --git a/os2/OS2/REXX/t/rx_dllld.t b/os2/OS2/REXX/t/rx_dllld.t
index 15362d78e9..406bd63a33 100644
--- a/os2/OS2/REXX/t/rx_dllld.t
+++ b/os2/OS2/REXX/t/rx_dllld.t
@@ -12,11 +12,11 @@ use OS2::REXX;
 
 $path = $ENV{LIBPATH} || $ENV{PATH} or die;
 foreach $dir (split(';', $path)) {
-  next unless -f "$dir/YDBAUTIL.DLL";
-  $found = "$dir/YDBAUTIL.DLL";
+  next unless -f "$dir/RXU.DLL";
+  $found = "$dir/RXU.DLL";
   last;
 }
-$found or print "1..0 # skipped: cannot find YDBAUTIL.DLL\n" and exit;
+$found or print "1..0 # skipped: cannot find RXU.DLL\n" and exit;
 
 print "1..5\n";
 
diff --git a/os2/OS2/REXX/t/rx_objcall.t b/os2/OS2/REXX/t/rx_objcall.t
index 8bdf90564d..b1154757d4 100644
--- a/os2/OS2/REXX/t/rx_objcall.t
+++ b/os2/OS2/REXX/t/rx_objcall.t
@@ -13,22 +13,21 @@ use OS2::REXX;
 #
 # DLL
 #
-$ydba = load OS2::REXX "ydbautil" 
-  or print "1..0 # skipped: cannot find YDBAUTIL.DLL\n" and exit;
+$rxu = load OS2::REXX "rxu" 
+  or print "1..0 # skipped: cannot find RXU.DLL\n" and exit;
 print "1..5\n", "ok 1\n";
 
 #
 # function
 #
-@pid = $ydba->RxProcId();
+@pid = $rxu->RxProcId();
 @pid == 1 ? print "ok 2\n" : print "not ok 2\n";
 @res = split " ", $pid[0];
 print "ok 3\n" if $res[0] == $$;
-@pid = $ydba->RxProcId();
+@pid = $rxu->RxProcId();
 @res = split " ", $pid[0];
 print "ok 4\n" if $res[0] == $$;
 print "# @pid\n";
 
-eval { $ydba->nixda(); };
+eval { $rxu->nixda(); };
 print "ok 5\n" if $@ =~ /^Can't find entry 'nixda\'/;
-
diff --git a/os2/OS2/REXX/t/rx_tievar.t b/os2/OS2/REXX/t/rx_tievar.t
index 5f43f4e5fc..9c9ea7d466 100644
--- a/os2/OS2/REXX/t/rx_tievar.t
+++ b/os2/OS2/REXX/t/rx_tievar.t
@@ -13,8 +13,8 @@ use OS2::REXX;
 #
 # DLL
 #
-load OS2::REXX "ydbautil"
-  or print "1..0 # skipped: cannot find YDBAUTIL.DLL\n" and exit;
+load OS2::REXX "rxu"
+  or print "1..0 # skipped: cannot find RXU.DLL\n" and exit;
 
 print "1..19\n";
 
diff --git a/os2/OS2/REXX/t/rx_tieydb.t b/os2/OS2/REXX/t/rx_tieydb.t
index 1653a2081c..ec6bfca20e 100644
--- a/os2/OS2/REXX/t/rx_tieydb.t
+++ b/os2/OS2/REXX/t/rx_tieydb.t
@@ -9,8 +9,8 @@ BEGIN {
 }
 
 use OS2::REXX;
-$rx = load OS2::REXX "ydbautil"     # from RXU17.ZIP
-  or print "1..0 # skipped: cannot find YDBAUTIL.DLL\n" and exit;
+$rx = load OS2::REXX "RXU"     # from RXU1a.ZIP
+  or print "1..0 # skipped: cannot find RXU.DLL\n" and exit;
 
 print "1..7\n", "ok 1\n";