[perl #7156] flock broken

On Thu Jun 21 10:12:22 2001, Matthew.McGillis@PSS.Boeing.com wrote:
> 
> -----------------------------------------------------------------
> 
> With this version of perl if I put togeather the additional tests as
> follow in io/open.t:
> 
> # 67..70
> {
>     open(my $f,"+>afile") if ! -f "afile";
>     close($f);
>     print "$!\nnot " unless open($f,"< afile");
>     ok;
>     print "not " unless flock($f,1);
>     ok;
>     print "not " unless flock($f,8);
>     ok;
>     print "not " unless close($f);
>     ok;
>     unlink("afile");
> }
> 
> test 68 fails. Not sure why, it works fine with 5.005_03 on this exact
> same system. This test also works fine with perl-5.6.1 using HP-UX
> 11.00.
> 
> -----------------------------------------------------------------
> ---
> Flags:
>     category=core
>     severity=low
> ---
> Site configuration information for perl v5.6.1:
> 
> Configured by msm5614 at Wed May  9 14:14:17 PDT 2001.
> 
> Summary of my perl5 (revision 5.0 version 6 subversion 1)
> configuration:
>   Platform:
>     osname=hpux, osvers=10.20, archname=PA-RISC1.1
>     uname='hp-ux placid b.10.20 e 9000777 2013671792 8-user license '
>     config_args=''
>     hint=recommended, useposix=true, d_sigaction=define
>     usethreads=undef use5005threads=undef useithreads=undef
> usemultiplicity=undef
>     useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
>     use64bitint=undef use64bitall=undef uselongdouble=undef
>   Compiler:
>     cc='cc', ccflags =' -D_HPUX_SOURCE -D_LARGEFILE_SOURCE
> -D_FILE_OFFSET_BITS=64  -Ae',
>     optimize='-O',
>     cppflags='-D_HPUX_SOURCE -Aa'
>     ccversion='A.10.32.22', gccversion='', gccosandvers=''
>     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
>     d_longlong=define, longlongsize=8, d_longdbl=define,
> longdblsize=16
>     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
> lseeksize=8
>     alignbytes=8, usemymalloc=y, prototype=define
>   Linker and Libraries:
>     ld='ld', ldflags =''
>     libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
>     libs=-lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt -lsec
>     perllibs=-lnsl_s -ldld -lm -lc -lndir -lcrypt -lsec
>     libc=/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a
>   Dynamic Linking:
>     dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E
> -Wl,-B,deferred '
>     cccdlflags='+z', lddlflags='-b +vnocompatwarnings'
> 
> Locally applied patches:
> 
> 
> ---
> @INC for perl v5.6.1:
>     /site/gnu/ver/perl-5.6.1-10/lib/5.6.1/PA-RISC1.1
>     /site/gnu/ver/perl-5.6.1-10/lib/5.6.1
>     /site/gnu/ver/perl-5.6.1-10/lib/site_perl/5.6.1/PA-RISC1.1
>     /site/gnu/ver/perl-5.6.1-10/lib/site_perl/5.6.1
>     /site/gnu/ver/perl-5.6.1-10/lib/site_perl
>     .
> 
> ---
> Environment for perl v5.6.1:
>     HOME=/home/users/msm5614
>     LANG (unset)
>     LANGUAGE (unset)
>     LD_LIBRARY_PATH (unset)
>     LOGDIR (unset)
>    
PATH=/home/users/msm5614/tools/bin:/site/admin/bin:/site/gnu/bin:/site/db/bin:/bin:/usr/bin:/sbin:/usr/sbin:/usr/bin/X11:/opt/perf/bin:/site/prod/bin:/opt/bin
>     PERL_BADLANG (unset)
>     SHELL=/usr/bin/ksh
>     SHLIB_PATH (unset)


Nearly a year ago, doy asked if there was anyone who could test this on
HP-UX, as it was testing fine on Linux with Perl 5.16 for him.

No one responded -- and there were no other confirmatory reports any
time between 2001 and 2012.

I recommend this ticket be closed.  I am taking it for the purpose of
closing it in 7 days unless we get reports of additional problems or
someone else wants to take on the ticket.

Thank you very much.
Jim Keenan

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=7156

• [perl #7156] flock broken by James E Keenan via RT
• [perl #7156] flock broken by James E Keenan via RT