From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 6 Mar 2000 03:40:14 +0000 (+0000)
Subject: Change $Config{'extensions'} to look Unixy (Charles Lane)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8f6c6e69ed657049c45673a74079cb7bcffc1d7b;p=p5sagit%2Fp5-mst-13.2.git

Change $Config{'extensions'} to look Unixy (Charles Lane)
       FIx logic error in glob-basic.t (Charles Lane)

p4raw-id: //depot/vmsperl@5566
---

diff --git a/configure.com b/configure.com
index a1e87d5..bdd0acc 100644
--- a/configure.com
+++ b/configure.com
@@ -1969,6 +1969,40 @@ $ ENDIF
 $ rp = "[''dflt'] "
 $ GOSUB myread
 $ if ans.eqs."" then ans = "''dflt'"
+$ a = ""
+$ j = 0
+$ xloop1:
+$   x = f$elem(j," ",ans)
+$   j = j + 1
+$   if x .eqs. " " then goto exloop1
+$   xloop2:
+$       k = f$locate("::",x)
+$       if k .ge. f$len(x) then goto exloop2
+$       x = f$extract(0,k,x) + "/" + f$extract(k+2,f$len(x)-2,x)
+$   goto xloop2
+$   exloop2:
+$   a = a + " " + x
+$ goto xloop1
+$ exloop1:
+$ ans = f$edit(a,"trim")
+$!
+$ a = ""
+$ j = 0
+$ xloop3:
+$   x = f$elem(j," ",dflt)
+$   j = j + 1
+$   if x .eqs. " " then goto exloop3
+$   xloop4:
+$       k = f$locate("::",x)
+$       if k .ge. f$len(x) then goto exloop4
+$       x = f$extract(0,k,x) + "/" + f$extract(k+2,f$len(x)-2,x)
+$   goto xloop4
+$   exloop4:
+$   a = a + " " + x
+$ goto xloop3
+$ exloop3:
+$ dflt = f$edit(a,"trim")
+$!
 $ extensions = "''ans'"
 $ perl_known_extensions = "''dflt'"
 $!
diff --git a/vms/subconfigure.com b/vms/subconfigure.com
index 1686c66..41a1422 100644
--- a/vms/subconfigure.com
+++ b/vms/subconfigure.com
@@ -4328,6 +4328,7 @@ $    If ext .eqs. " " Then Goto done
 $    Define/User Perl_Env_Tables CLISYM_LOCAL
 $    miniperl
      ($extdir = $ENV{'ext'}) =~ s/::/./g;
+     $extdir =~ s#/#.#g;
      if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
      else                    { $extdir = ".ext.$extdir";   }
      ($ENV{'extdir'} = "[$extdir]");