The SysV IPC test must use the native integers

[perl5.git] / t / lib / ipc_sysv.t

diff --git a/t/lib/ipc_sysv.t b/t/lib/ipc_sysv.t
index 55d9ba1..8485d5d 100755 (executable)
--- a/t/lib/ipc_sysv.t
+++ b/t/lib/ipc_sysv.t
@@ -81,16 +81,9 @@ if ($Config{'d_msgget'} eq 'define' &&
     my $test5bad;
     my $test6bad;
 
     my $test5bad;
     my $test6bad;
 

-    if ($Config{'use64bitall'} eq 'define') {
-      unless (msgsnd($msg,pack("L L a*",0,$msgtype,$msgtext),IPC_NOWAIT)) {
+    unless (msgsnd($msg,pack("L! a*",$msgtype,$msgtext),IPC_NOWAIT)) {

        print "not ";
        $test2bad = 1;
        print "not ";
        $test2bad = 1;

-      }
-    } else {
-      unless (msgsnd($msg,pack("L a*",$msgtype,$msgtext),IPC_NOWAIT)) {
-       print "not ";
-       $test2bad = 1;
-      }

     }
     print "ok 2\n";
     if ($test2bad) {
     }
     print "ok 2\n";
     if ($test2bad) {


@@ -135,11 +128,7 @@ EOM
     }
 
     my($rmsgtype,$rmsgtext);
     }
 
     my($rmsgtype,$rmsgtext);

-    if ($Config{'use64bitall'} eq 'define') {
-      (undef,$rmsgtype,$rmsgtext) = unpack("L L a*",$msgbuf)
-    } else {
-      ($rmsgtype,$rmsgtext) = unpack("L a*",$msgbuf)
-    }
+    ($rmsgtype,$rmsgtext) = unpack("L! a*",$msgbuf)

     unless($rmsgtype == $msgtype && $rmsgtext eq $msgtext) {
        print "not ";
        $test6bad = 1;
     unless($rmsgtype == $msgtype && $rmsgtext eq $msgtext) {
        print "not ";
        $test6bad = 1;