[perl #42886] Perl fails to build due to ' in uname output

From: rhialto@falu.nl (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-12281-1178378318-220.42886-75-0@perl.org>

p4raw-id: //depot/metaconfig@31160

diff --git a/U/modified/Oldconfig.U b/U/modified/Oldconfig.U
index b411b95..6b123f6 100644 (file)
--- a/U/modified/Oldconfig.U
+++ b/U/modified/Oldconfig.U
@@ -128,7 +128,7 @@ $test -z "$myuname" && myuname=`hostname 2>/dev/null`
 ?X: new lines to keep the myuname variable sane... --RAM
 # 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/^[^=]*=//' -e 's,['/],,g' | \
        ./tr '[A-Z]' '[a-z]' | $tr $trnl ' '`
 ?X: Save the value we just computed to reset myuname after we get done here.
 newmyuname="$myuname"