diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-03-06 03:40:14 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-03-06 03:40:14 +0000 |
| commit | 8f6c6e69ed657049c45673a74079cb7bcffc1d7b (patch) | |
| tree | a2d815cbbb66a9921dc564b2c03479c28e7d6787 | |
| parent | 11611c0f5c3f6e1aea7785197f65861fcb806b06 (diff) | |
| download | perl-8f6c6e69ed657049c45673a74079cb7bcffc1d7b.tar.gz | |
Change $Config{'extensions'} to look Unixy (Charles Lane)
FIx logic error in glob-basic.t (Charles Lane)
p4raw-id: //depot/vmsperl@5566
| -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]"); |