From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 15 Feb 2008 14:27:55 +0000 (+0000)
Subject: Shell patterns are subject to tilde expansion. So the case statement
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f16e9d76b4f2d50c552a4b696d3664ca265b9771;p=p5sagit%2Fp5-mst-13.2.git

Shell patterns are subject to tilde expansion. So the case statement
in the filexp script (written out by Configure) for expanding ~ and
~/*  has never worked. It's always been relying on the /bin/csh glob
for the ~* case. Few people ever noticed because one has to be
building to one's home directory on a system with no csh installed.
This is a bug from Perl 1.0's Configure!

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

diff --git a/Configure b/Configure
index 5b21d0e..6cb455e 100755
--- a/Configure
+++ b/Configure
@@ -3589,7 +3589,7 @@ cat >filexp <<EOSS
 $startsh
 : expand filename
 case "\$1" in
- ~/*|~)
+ \~/*|\~)
 	echo \$1 | $sed "s|~|\${HOME-\$LOGDIR}|"
 	;;
  ~*)