Does this platform not have a flock call emulated? I'm using the
standard Perl flock builtin function like this:
open(FH, ">$file.lock") or croak "Can't open $file.lock: $!";
flock(FH, LOCK_SH) or
croak "Can't lock $file.lock: $!";
Is there a more platform-independent way of locking files that should be
used?
Thanks,
-David
On 19 Feb 2000, Artur Silveira da Cunha wrote:
> This distribution has been tested as part of the cpan-testers
> effort to test as many new uploads to CPAN as possible. See
> http://testers.cpan.org/
>
> Please cc any replies to [EMAIL PROTECTED] to keep other
> test volunteers informed and to prevent any duplicate effort.
>
> --
> I have the following output in make test
>
>
>
> PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib
>-I/usr/local/lib/perl5/5.00503/i386-sco -I/usr/local/lib/perl5/5.00503 -e 'use
>Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
> t/00pre.............ok
> t/10insert..........FAILED test 1
> Failed 1/1 tests, 0.00% okay
> t/20delete..........FAILED test 1
> Failed 1/1 tests, 0.00% okay
> t/30update..........FAILED tests 1-3
> Failed 3/3 tests, 0.00% okay
> t/40copy............FAILED tests 1-2
> Failed 2/2 tests, 0.00% okay
> t/90post............ok
> Failed Test Status Wstat Total Fail Failed List of failed
> -------------------------------------------------------------------------------
> t/10insert.t 1 1 100.00% 1
> t/20delete.t 1 1 100.00% 1
> t/30update.t 3 3 100.00% 1-3
> t/40copy.t 2 2 100.00% 1-2
>
>
>
>
> Running make for D/DW/DWINTERS/Persistent-Base-0.50.tar.gz
> Unwrapped into directory /divers/cpan/rezosco2/build/Persistent-Base-0.50
> Has already been processed within this session
> Running make test
> An exception occurred: Can't lock (SHARED) ./temp/cars.txt.lock: Bad file number at
>t/10insert.t line 62
>
> An exception occurred: Can't lock (SHARED) ./temp/cars.txt.lock: Bad file number at
>t/20delete.t line 25
>
> An exception occurred: Can't lock (SHARED) ./temp/cars.txt.lock: Bad file number at
>t/30update.t line 25
>
> An exception occurred: Can't lock (SHARED) ./temp/cars.txt.lock: Bad file number at
>t/40copy.t line 27
>
> Failed 4/6 test scripts, 33.33% okay. 7/10 subtests failed, 30.00% okay.
> *** Error code 2 (bu21)
> /bin/make test -- NOT OK
>
>
>
> --
>
> Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
> Platform:
> osname=sco, osvers=3.2v5.0.4, archname=i386-sco
> uname='sco_sv rezosco2 3.2 2 i386 '
> hint=previous, useposix=true, d_sigaction=define
> usethreads=undef useperlio=undef d_sfio=undef
> Compiler:
> cc='cc', optimize='-O0', gccversion=
> cppflags='-U M_XENIX -D PERL_SCO -D PERL_SCO5 -w0 -belf -I/usr/local/include'
> ccflags ='-U M_XENIX -D PERL_SCO -D PERL_SCO5 -w0 -belf -I/usr/local/include'
> stdchar='unsigned char', d_stdstdio=undef, usevfork=false
> intsize=4, longsize=4, ptrsize=4, doublesize=8
> d_longlong=undef, longlongsize=, d_longdbl=define, longdblsize=12
> alignbytes=4, usemymalloc=y, prototype=define
> Linker and Libraries:
> ld='ld', ldflags =' -L/usr/local/lib'
> libpth=/usr/local/lib /shlib /lib /usr/lib /usr/ccs/lib
> libs=-lintl -lsocket -lnsl -lndbm -ldbm -lld -lm -lc -lcrypt -lPW -lx
> libc=, so=so, useshrplib=false, libperl=libperl.a
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Bexport
>-L/usr/local/lib'
> cccdlflags='-Kpic', lddlflags='-G -L/usr/local/lib'
>
