summaryrefslogtreecommitdiff
path: root/ext/IPC
diff options
context:
space:
mode:
authorSlaven Rezic <slaven@rezic.de>2007-09-19 23:56:00 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-09-25 13:16:19 +0000
commit4aaee4e144d2f6ce517e737549a3608699e42696 (patch)
tree382c0ced402a2b5bb2242a1d480076cf5d368f80 /ext/IPC
parent4d84587446ede57955bcf063281333bc358c9c57 (diff)
downloadperl-4aaee4e144d2f6ce517e737549a3608699e42696.tar.gz
Re: [perl #45513] Test failures on amd64-freebsd 6.2
Message-ID: <87abri1lbj.fsf@biokovo-amd64.herceg.de> p4raw-id: //depot/perl@31967
Diffstat (limited to 'ext/IPC')
-rwxr-xr-xext/IPC/SysV/t/ipcsysv.t9
1 files changed, 5 insertions, 4 deletions
diff --git a/ext/IPC/SysV/t/ipcsysv.t b/ext/IPC/SysV/t/ipcsysv.t
index 54bab4377a..f0350de422 100755
--- a/ext/IPC/SysV/t/ipcsysv.t
+++ b/ext/IPC/SysV/t/ipcsysv.t
@@ -148,8 +148,11 @@ SKIP: {
use IPC::SysV qw(IPC_CREAT GETALL SETALL);
+ # FreeBSD's default limit seems to be 9
+ my $nsem = 5;
+
my $test_name = 'sem acquire';
- $sem = semget(IPC_PRIVATE, 10, $perm | IPC_CREAT);
+ $sem = semget(IPC_PRIVATE, $nsem, $perm | IPC_CREAT);
if ($sem) {
pass($test_name);
}
@@ -164,10 +167,8 @@ SKIP: {
my $data;
ok(semctl($sem,0,IPC_STAT,$data),'sem data call');
-
- cmp_ok(length($data),'>',0,'sem data len');
- my $nsem = 10;
+ cmp_ok(length($data),'>',0,'sem data len');
ok(semctl($sem,0,SETALL,pack("s!*",(0) x $nsem)), 'set all sems');