diff options
| -rw-r--r-- | configure.com | 34 | ||||
| -rw-r--r-- | vms/subconfigure.com | 1 |
2 files changed, 35 insertions, 0 deletions
diff --git a/configure.com b/configure.com index a1e87d5d8a..bdd0accfb6 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 1686c663de..41a142209f 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]"); |