summaryrefslogtreecommitdiff
path: root/t/lib
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-02-28 16:23:15 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-02-28 16:23:15 +0000
commit19e194ad5a0b332a85659fe3309d0a3b36eef904 (patch)
tree4d1e9450dbff4857b435353983efdd1e3af2482c /t/lib
parent419f661778e370673da98a64e4f8542f2c1d4968 (diff)
downloadperl-19e194ad5a0b332a85659fe3309d0a3b36eef904.tar.gz
AIX 64-bit patches from Steven Hirsch <hirschs@btv.ibm.com>
The patch to File/Glob/Makefile.PL is inconvenient but at the moment necessary: adding an ext/FIle/Glob/hints/aix.pl to turn off the optimization ($self->{OPTIMIZE} = '') doesn't work, the file is processed by MakeMaker but OPTIMIZE ends up as -O in the resulting Makefile. A MakeMaker bug? p4raw-id: //depot/cfgperl@5323
Diffstat (limited to 't/lib')
-rwxr-xr-xt/lib/ipc_sysv.t19
1 files changed, 15 insertions, 4 deletions
diff --git a/t/lib/ipc_sysv.t b/t/lib/ipc_sysv.t
index 9777292f37..55d9ba197f 100755
--- a/t/lib/ipc_sysv.t
+++ b/t/lib/ipc_sysv.t
@@ -81,9 +81,16 @@ if ($Config{'d_msgget'} eq 'define' &&
my $test5bad;
my $test6bad;
- unless (msgsnd($msg,pack("L a*",$msgtype,$msgtext),IPC_NOWAIT)) {
+ if ($Config{'use64bitall'} eq 'define') {
+ unless (msgsnd($msg,pack("L L a*",0,$msgtype,$msgtext),IPC_NOWAIT)) {
print "not ";
- $test2bad = 1;
+ $test2bad = 1;
+ }
+ } else {
+ unless (msgsnd($msg,pack("L a*",$msgtype,$msgtext),IPC_NOWAIT)) {
+ print "not ";
+ $test2bad = 1;
+ }
}
print "ok 2\n";
if ($test2bad) {
@@ -127,8 +134,12 @@ EOM
EOM
}
- my($rmsgtype,$rmsgtext) = unpack("L a*",$msgbuf);
-
+ my($rmsgtype,$rmsgtext);
+ if ($Config{'use64bitall'} eq 'define') {
+ (undef,$rmsgtype,$rmsgtext) = unpack("L L a*",$msgbuf)
+ } else {
+ ($rmsgtype,$rmsgtext) = unpack("L a*",$msgbuf)
+ }
unless($rmsgtype == $msgtype && $rmsgtext eq $msgtext) {
print "not ";
$test6bad = 1;