From: Slaven Rezic <slaven@rezic.de>
Date: Wed, 19 Sep 2007 21:56:00 +0000 (+0200)
Subject: Re: [perl #45513] Test failures on amd64-freebsd 6.2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4aaee4e144d2f6ce517e737549a3608699e42696;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #45513] Test failures on amd64-freebsd 6.2
Message-ID: <87abri1lbj.fsf@biokovo-amd64.herceg.de>

p4raw-id: //depot/perl@31967
---

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');