This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Shell patterns are subject to tilde expansion. So the case statement
[perl5.git] / Configure
index 5b21d0e..6cb455e 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -3589,7 +3589,7 @@ cat >filexp <<EOSS
 $startsh
 : expand filename
 case "\$1" in
~/*|~)
\~/*|\~)
        echo \$1 | $sed "s|~|\${HOME-\$LOGDIR}|"
        ;;
  ~*)