From jhannah@omnihotels.com

This is a bug report for perl from jhannah@​omnihotels.com,
generated with the help of perlbug 1.35 running under perl v5.8.8.

Huh. Haven't had this problem before. Perl won't fork and won't tell me why...

Any ideas? Thanks,

j

$ cat j.pl
#!/usr/bin/perl

my $pid;
if ($pid == fork) {
  # parent here
} elsif (defined $pid) {
  # child here
} else {
  die "Can't fork​: $!";
}

$ perl j.pl
Can't fork​: at j.pl line 9.
$ cat /proc/version
Linux version 2.6.16.54-0.2.3-default (geeko@​buildhost) (gcc version 4.1.2 20070115 (prerelease) (SUSE Linux)) #1 Thu Nov 22 18​:32​:07 UTC 2007

Flags​:
  category=core
  severity=low

This perlbug was built using Perl v5.8.8 - Fri Nov 9 13​:33​:21 UTC 2007
It is being executed now by Perl v5.8.8 - Fri Nov 9 13​:28​:49 UTC 2007.

Site configuration information for perl v5.8.8​:

Configured by abuild at Fri Nov 9 13​:28​:49 UTC 2007.

Summary of my perl5 (revision 5 version 8 subversion 8) configuration​:
  Platform​:
  osname=linux, osvers=2.6.16, archname=i586-linux-thread-multi
  uname='linux stravinsky 2.6.16 #12 smp fri sep 7 17​:18​:37 cest 2007 i686 i686 i386 gnulinux '
  config_args='-ds -e -Dprefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm -Duseshrplib=true -Doptimize=-O2 -march=i586 -mtune=i686 -fmessage-length=0 -Wall -D_FORTIFY_SOURCE=2 -g -Wall -pipe'
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
  useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
  use64bitint=undef use64bitall=undef uselongdouble=undef
  usemymalloc=n, bincompat5005=undef
  Compiler​:
  cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
  optimize='-O2 -march=i586 -mtune=i686 -fmessage-length=0 -Wall -D_FORTIFY_SOURCE=2 -g -Wall -pipe',
  cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement'
  ccversion='', gccversion='4.1.2 20070115 (prerelease) (SUSE Linux)', gccosandvers=''
  intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
  alignbytes=4, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =''
  libpth=/lib /usr/lib /usr/local/lib
  libs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
  perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
  libc=/lib/libc-2.4.so, so=so, useshrplib=true, libperl=libperl.so
  gnulibc_version='2.4'
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.8.8/i586-linux-thread-multi/CORE'
  cccdlflags='-fPIC', lddlflags='-shared'

Locally applied patches​:
 

@​INC for perl v5.8.8​:
  /usr/lib/perl5/site_perl/Omni/MVC
  /usr/lib/perl5/5.8.8/i586-linux-thread-multi
  /usr/lib/perl5/5.8.8
  /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi
  /usr/lib/perl5/site_perl/5.8.8
  /usr/lib/perl5/site_perl
  /usr/lib/perl5/vendor_perl/5.8.8/i586-linux-thread-multi
  /usr/lib/perl5/vendor_perl/5.8.8
  /usr/lib/perl5/vendor_perl
  .

Environment for perl v5.8.8​:
  HOME=/home/jhannah
  LANG=en_US.UTF-8
  LANGUAGE (unset)
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)
  PATH=/home/jhannah/bin​:/usr/local/bin​:/usr/bin​:/usr/X11R6/bin​:/bin​:/usr/games​:/opt/gnome/bin​:/opt/kde3/bin​:/usr/lib/mit/bin​:/usr/lib/mit/sbin
  PERL5LIB=/usr/lib/perl5/site_perl/Omni/MVC
  PERL_BADLANG (unset)
  SHELL=/bin/bash

From @schwern

jhannah@​omnihotels.com (via RT) wrote​:

Huh. Haven't had this problem before. Perl won't fork and won't tell me why...

Any ideas? Thanks,

j

$ cat j.pl
#!/usr/bin/perl

my $pid;
if ($pid == fork) {
  ^^

Turn on warnings. Perl won't tell you why because you gagged her.

Use of uninitialized value in numeric eq (==) at - line 2.
Can't fork​: at - line 7.
Use of uninitialized value in numeric eq (==) at - line 2.

--
Robrt​: People can't win
Schwern​: No, but they can riot after the game.

The RT System itself - Status changed from 'new' to 'open'

From @jhannah

Oh. That was dumb. Sorry.

You can close this ticket now. Thanks Schwern!

j

p5p@spam.wizbit.be - Status changed from 'open' to 'rejected'