Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the IO-All CPAN distribution.

Report information
The Basics
Id: 7527
Status: resolved
Priority: 0/
Queue: IO-All

People
Owner: Nobody in particular
Requestors: t [...] tomacorp.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.31
Fixed in: (no value)



Subject: Locking problems are also on HP-UX
make test fails on test lock.t in IO-All-0.31 This is perl, v5.8.0 built for PA-RISC2.0 HP-UX cad B.10.20 A 9000/785 2012571776 two-user license Using HP's c compiler (not gcc). A comment in lock.t shows that there is some problem with locking in cygwin and solaris. My guess is that HP-UX has the problem also. The uploaded file lock.t just adds the OS 'hpux' to the list of OS's to skip. Thanks, -toma
use lib 't', 'lib'; use strict; use warnings; use Test::More; use IO::All; use IO_All_Test; # XXX This needs to be fixed!!! plan( $^O !~ /^(cygwin|solaris|hpux)$/ ? (tests => 3) : (skip_all => "XXX - locking problems on solaris/cygwin/hpux") ); my $io1 = io('t/output/foo')->lock; $io1->println('line 1'); fork and do { my $io2 = io('t/output/foo')->lock; is($io2->getline, "line 1\n"); is($io2->getline, "line 2\n"); is($io2->getline, "line 3\n"); exit; }; sleep 1; $io1->println('line 2'); $io1->println('line 3'); $io1->unlock; 1;