In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f4dc174a8581e2dba27554879e2ae596e9139da3?hp=55673181017b5e113ef58bbb59978319aebbadcb>
- Log ----------------------------------------------------------------- commit f4dc174a8581e2dba27554879e2ae596e9139da3 Author: Andy Dougherty <[email protected]> Date: Mon Feb 18 09:33:09 2013 -0500 Fix [perl #116523] Configure is confused by '=' in output from uname -a Previously, Configure used to try to post-process the output of uname -a. This was to support Xenix, which gave output like this: sysname=XENIX nodename=whatever release=2.3.2 .. etc... Configure attempted to parse that output and build up a $myuname variable that resembled those generated on traditional Unix systems. More recently, a user reported uname -a output on a CVS checkout of NetBSD that also included information such as root=username@hostname:/dirname module=src branch=HEAD The Configure code misparsed that and ended up throwing most of it away. This patch takes the simplest approach and just skips the attempt to process the Xenix output. This is based on commit 05a827803ab3908a795df94f6ed3890e24a6df2 in the metaconfig repository. ----------------------------------------------------------------------- Summary of changes: Configure | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) diff --git a/Configure b/Configure index 0a70864..f7bbbc5 100755 --- a/Configure +++ b/Configure @@ -3101,9 +3101,13 @@ case "$config_sh" in '') myuname=`$uname -a 2>/dev/null` $test -z "$myuname" && myuname=`hostname 2>/dev/null` +# Downcase everything to avoid ambiguity. +# Remove slashes and single quotes so we can use parts of this in +# directory and file names. +# Remove newlines so myuname is sane to use elsewhere. # tr '[A-Z]' '[a-z]' would not work in EBCDIC # because the A-Z/a-z are not consecutive. -myuname=`echo $myuname | $sed -e 's/^[^=]*=//' -e "s,['/],,g" | \ +myuname=`echo $myuname | $sed -e "s,['/],,g" | \ ./tr '[A-Z]' '[a-z]' | $tr $trnl ' '` newmyuname="$myuname" dflt=n -- Perl5 Master Repository
