From: Bram <perl-rt@wizbit.be>
Date: Thu, 7 Aug 2008 06:00:47 +0000 (-0700)
Subject: [perl #24198] Bad default-domainname extraction in Configure-Script may cause infinit... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d40d392b48cbc36778fbf815dc5349f0b471377;p=p5sagit%2Fp5-mst-13.2.git

[perl #24198] Bad default-domainname extraction in Configure-Script may cause infinite loops in perl-tests
From: "Bram via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-29759-1218114045-1803.24198-15-0@perl.org>

p4raw-id: //depot/perl@34188
---

diff --git a/Configure b/Configure
index 869ed19..e6d6c52 100755
--- a/Configure
+++ b/Configure
@@ -25,7 +25,7 @@
 
 # $Id: Head.U 6 2006-08-25 22:21:46Z rmanfredi $
 #
-# Generated on Thu Jul 10 17:14:53 CEST 2008 [metaconfig 3.5 PL0]
+# Generated on Fri Aug  8 16:16:43 CEST 2008 [metaconfig 3.5 PL0]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -8703,11 +8703,11 @@ case "$myhostname" in
 				echo "(Attempting domain name extraction from $tans)"
 				dflt=.`$sed -n -e 's/	/ /g' \
 				  -e 's/^search  *\([^ ]*\).*/\1/p' $tans \
-				  | ./tr '[A-Z]' '[a-z]' 2>/dev/null`
+				  -e 1q 2>/dev/null`
 				case "$dflt" in
 				.) dflt=.`$sed -n -e 's/	/ /g' \
 				     -e 's/^domain  *\([^ ]*\).*/\1/p' $tans \
-				     | ./tr '[A-Z]' '[a-z]' 2>/dev/null`
+				     -e 1q 2>/dev/null`
   					;;
 				esac
 			fi