From 4aaee4e144d2f6ce517e737549a3608699e42696 Mon Sep 17 00:00:00 2001 From: Slaven Rezic Date: Wed, 19 Sep 2007 23:56:00 +0200 Subject: [PATCH] Re: [perl #45513] Test failures on amd64-freebsd 6.2 Message-ID: <87abri1lbj.fsf@biokovo-amd64.herceg.de> p4raw-id: //depot/perl@31967 --- ext/IPC/SysV/t/ipcsysv.t | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ext/IPC/SysV/t/ipcsysv.t b/ext/IPC/SysV/t/ipcsysv.t index 54bab43..f0350de 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'); -- 2.7.4