X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/146174a91a192983720a158796dc066226ad0e55..e4038a1fb4fdfabe2578d9a8ffe81a18bec6013d:/t/lib/ipc_sysv.t?ds=sidebyside

diff --git a/t/lib/ipc_sysv.t b/t/lib/ipc_sysv.t
index 9777292..8485d5d 100755
--- a/t/lib/ipc_sysv.t
+++ b/t/lib/ipc_sysv.t
@@ -81,9 +81,9 @@ if ($Config{'d_msgget'} eq 'define' &&
     my $test5bad;
     my $test6bad;
 
-    unless (msgsnd($msg,pack("L a*",$msgtype,$msgtext),IPC_NOWAIT)) {
+    unless (msgsnd($msg,pack("L! a*",$msgtype,$msgtext),IPC_NOWAIT)) {
 	print "not ";
-         $test2bad = 1;
+	$test2bad = 1;
     }
     print "ok 2\n";
     if ($test2bad) {
@@ -127,8 +127,8 @@ EOM
 EOM
     }
 
-    my($rmsgtype,$rmsgtext) = unpack("L a*",$msgbuf);
-
+    my($rmsgtype,$rmsgtext);
+    ($rmsgtype,$rmsgtext) = unpack("L! a*",$msgbuf)
     unless($rmsgtype == $msgtype && $rmsgtext eq $msgtext) {
 	print "not ";
 	$test6bad = 1;