Front page | perl.perl5.porters |
Postings from May 2012
[perl #7816] "random" seek on fork ...
Thread Previous
From:
Brian Fraser via RT
Date:
May 24, 2012 21:59
Subject:
[perl #7816] "random" seek on fork ...
Message ID:
rt-3.6.HEAD-7788-1337921931-553.7816-15-0@perl.org
On Thu Oct 11 02:52:21 2001, sven.kirmess@nexos.com wrote:
>
> -----------------------------------------------------------------
> [Please enter your report here]
>
> Use the following script to generate a data file. We will use
> this file later:
>
> #!/opt/NXOSperl/bin/perl
>
> open(FOO,">data");
>
> for($i=1;$i<200;$i++){
> print FOO "$i
> xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n";
> }
>
>
>
> Now use the following script:
>
> #!/opt/NXOSperl/bin/perl -w
>
> use strict;
> my $filename = "data";
> open FILE, "<$filename" or die "Can't open file '$filename': $!";
>
> while (<FILE>) {
> my $pid; die "Can't fork: $!" if not defined($pid = fork);
>
> if ($pid) { # parent
> wait;
> print "$_";
> } else { #child
> exit 0;
> }
> }
>
>
> This script will produce the following output:
>
> 1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> 2 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> [snip]
> 148 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> 149 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> 150 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> 151
>
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> 2 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> 3 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> 4 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> 5 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> [snip]
>
>
> The script does never exit. With Perl v5.5.670 the script works
> as expected (it produces the same output as `cat data`).
>
> If you have any questions feel free to ask. I would be happy
> to answer your questions.
>
> Sven
>
>
> [Please do not change anything below this line]
> -----------------------------------------------------------------
> ---
> Flags:
> category=core
> severity=high
> ---
> Site configuration information for perl v5.6.1:
>
> Configured by ski at Mon Aug 27 11:25:18 MET DST 2001.
>
> Summary of my perl5 (revision 5.0 version 6 subversion 1)
> configuration:
> Platform:
> osname=solaris, osvers=2.7, archname=sun4-solaris
> uname='sunos ifs 5.7 generic_106541-08 sun4u sparc sunw,ultra-5_10
> '
> config_args='-s -d -e -Dcc=/opt/NXOSgcc/bin/gcc -Doptimize=
> -Dprefix=/opt/NXOSperl -Dlocincpth=/opt/NXOSgcc/include
> -Dloclibpth=/opt/NXOSgcc/lib -Dcf_email=support@nexos.com'
> 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='/opt/NXOSgcc/bin/gcc', ccflags ='-fno-strict-aliasing
> -I/opt/NXOSgcc/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
> optimize=' ',
> cppflags='-fno-strict-aliasing -I/opt/NXOSgcc/include'
> ccversion='', gccversion='2.95.2 19991024 (release)',
> gccosandvers='solaris2.7'
> 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='/opt/NXOSgcc/bin/gcc', ldflags =' -L/opt/NXOSgcc/lib '
> libpth=/opt/NXOSgcc/lib /usr/lib /usr/ccs/lib
> libs=-lsocket -lnsl -ldl -lm -lc
> perllibs=-lsocket -lnsl -ldl -lm -lc
> libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
> cccdlflags='-fPIC', lddlflags='-G -L/opt/NXOSgcc/lib'
>
> Locally applied patches:
>
>
> ---
> @INC for perl v5.6.1:
> /opt/NXOSperl/lib/5.6.1/sun4-solaris
> /opt/NXOSperl/lib/5.6.1
> /opt/NXOSperl/lib/site_perl/5.6.1/sun4-solaris
> /opt/NXOSperl/lib/site_perl/5.6.1
> /opt/NXOSperl/lib/site_perl
> .
>
> ---
> Environment for perl v5.6.1:
> HOME=/home/ski
> LANG (unset)
> LANGUAGE (unset)
> LC_COLLATE=en_US
> LC_CTYPE=en_US
> LC_MESSAGES=C
> LC_MONETARY=en_US
> LC_NUMERIC=en_US
> LC_TIME=en_US
>
LD_LIBRARY_PATH=/home/ski/opt/local/lib:/usr/lib:/usr/openwin/lib:/usr/ucblib:/usr/local/lib:/usr/local/rvplayer5.0:/opt/BKgnome/BerkeleyDB/lib:/opt/BKgnome/lib
> LOGDIR (unset)
>
PATH=/home/ski/opt/local/bin:/home/ski/bin:/home/ski/opt/scripts/bin:/export/profile/ski/NXOSI/bin:/usr/bin:/opt/local/wbin:/opt/NXOS/bin:/net/ifs/opt/NXOS/bin:/opt/local/bin:/usr/local/bin:/usr/ccs/bin:/usr/openwin/bin:/usr/sbin:/opt/NSCPcom:/opt/NXOSssh1x/bin:/opt/Summertime_98.sparc:.
> PERL_BADLANG (unset)
> SHELL=/usr/bin/ksh
I can't reproduce this on Solaris 10 with Perls 5.10 to 5.16, but could
with the system-provided 5.8.4. So I'm marking this as resolved.
---
via perlbug: queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=7816
Thread Previous