caretx.c change breaks perl when /proc is not mounted

[p5pRT]

Migrated from rt.perl.org#133573 (status was 'open')

Searchable as RT133573$

[p5pRT]

From mls@suse.de

This is a bug report for perl from mls@​suse.de,
generated with the help of perlbug 1.40 running under perl 5.26.1.

---

Commit fca5fb9 is supposed to
simplify cpp conditionals, but it also broke the setting of
$^X on linux if /proc is not mounted. The PL_origargv[0] fallback
code is no longer used when no result can be obtained by other
means.

---

---

Flags​:
  category=core
  severity=low

---

Site configuration information for perl 5.26.1​:

Configured by reproducible at Thu Feb 22 12​:00​:00 UTC 2018.

Summary of my perl5 (revision 5 version 26 subversion 1) configuration​:
 
  Platform​:
  osname=linux
  osvers=4.12.14-lp150.9-default
  archname=x86_64-linux-thread-multi
  uname='reproducible'
  config_args='-ds -e -Dprefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm -Dd_dbm_open -Duseshrplib=true -Doptimize=-fmessage-length=0 -grecord-gcc-switches -O2 -Wall -D_FORTIFY_SOURCE=2 -fstack-protector-strong -funwind-tables -fasynchronous-unwind-tables -fstack-clash-protection -g -Wall -pipe -Accflags=-DPERL_USE_SAFE_PUTENV -Dotherlibdirs=/usr/lib/perl5/site_perl -Dinc_version_list=none'
  hint=recommended
  useposix=true
  d_sigaction=define
  useithreads=define
  usemultiplicity=define
  use64bitint=define
  use64bitall=define
  uselongdouble=undef
  usemymalloc=n
  default_inc_excludes_dot=define
  bincompat5005=undef
ompiler​:
  cc='cc'
  ccflags ='-D_REENTRANT -D_GNU_SOURCE -DPERL_USE_SAFE_PUTENV -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
  optimize='-fmessage-length=0 -grecord-gcc-switches -O2 -Wall -D_FORTIFY_SOURCE=2 -fstack-protector-strong -funwind-tables -fasynchronous-unwind-tables -fstack-clash-protection -g -Wall -pipe'
  cppflags='-D_REENTRANT -D_GNU_SOURCE -DPERL_USE_SAFE_PUTENV -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong'
  ccversion=''
  gccversion='7.3.1 20180323 [gcc-7-branch revision 258812]'
  gccosandvers=''
  intsize=4
  longsize=8
  ptrsize=8
  doublesize=8
  byteorder=12345678
  doublekind=3
  d_longlong=define
  longlongsize=8
  d_longdbl=define
  longdblsize=16
  longdblkind=3
  ivtype='long'
  ivsize=8
  nvtype='double'
  nvsize=8
  Off_t='off_t'
  lseeksize=8
  alignbytes=8
  prototype=define
  Linker and Libraries​:
  ld='cc'
  ldflags =' -L/usr/local/lib64 -fstack-protector-strong'
  libpth=/usr/local/lib /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed /usr/lib64/gcc/x86_64-suse-linux/7/../../../../x86_64-suse-linux/lib /usr/lib /lib/../lib64 /usr/lib/../lib64 /lib /lib64 /usr/lib64 /usr/local/lib64
  libs=-lm -ldl -lcrypt -lpthread
  perllibs=-lm -ldl -lcrypt -lpthread
  libc=/lib64/libc-2.26.so
  so=so
  useshrplib=true
  libperl=libperl.so
  gnulibc_version='2.26'
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs
  dlext=so
  d_dlsymun=undef
  ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.26.1/x86_64-linux-thread-multi/CORE'
  cccdlflags='-fPIC'
  lddlflags='-shared -L/usr/local/lib64 -fstack-protector-strong'

---

@​INC for perl 5.26.1​:
  /usr/lib/perl5/site_perl/5.26.1/x86_64-linux-thread-multi
  /usr/lib/perl5/site_perl/5.26.1
  /usr/lib/perl5/vendor_perl/5.26.1/x86_64-linux-thread-multi
  /usr/lib/perl5/vendor_perl/5.26.1
  /usr/lib/perl5/5.26.1/x86_64-linux-thread-multi
  /usr/lib/perl5/5.26.1
  /usr/lib/perl5/site_perl

---

Environment for perl 5.26.1​:
  HOME=/suse/mls
  LANG (unset)
  LANGUAGE (unset)
  LC_CTYPE=de_DE@​euro
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)
  PATH=/suse/mls/bin​:/usr/local/bin​:/usr/bin​:/usr/sbin​:/sbin​:/usr/X11R6/bin​:/bin​:/usr/lib/java/bin​:/usr/games/bin​:/usr/games​:/opt/gnome/bin​:/opt/kde/bin​:/usr/openwin/bin​:/opt/pilotsdk/bin​:/suse/mls/korn
  PERL_BADLANG (unset)
  SHELL=/bin/tcsh

[p5pRT]

From @jkeenan

On Tue, 09 Oct 2018 13​:03​:50 GMT, mls@​suse.de wrote​:

This is a bug report for perl from mls@​suse.de,
generated with the help of perlbug 1.40 running under perl 5.26.1.

-----------------------------------------------------------------

Commit fca5fb9 is supposed to
simplify cpp conditionals, but it also broke the setting of
$^X on linux if /proc is not mounted. The PL_origargv[0] fallback
code is no longer used when no result can be obtained by other
means.

A potential fix has been pushed by Aaron Crane.

Can you build perl in the relevant environment at or after commit 03b94aa and let us know the results?

Thank you very much.
--
James E Keenan (jkeenan@​cpan.org)

[p5pRT]

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