diff options
| author | Craig A. Berry <craigberry@mac.com> | 1999-08-13 12:42:47 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-13 23:57:52 +0000 |
| commit | 6cd4fc3dff4f36289f387ad002d64474187e2fe0 (patch) | |
| tree | d7fd8f57da5dda1e048642c020e8fe067dc46581 | |
| parent | e9a694fc69831683df9b559726b85119e227aa26 (diff) | |
| download | perl-6cd4fc3dff4f36289f387ad002d64474187e2fe0.tar.gz | |
fix MM_VMS.pm for space-delimited lists
To: perl5-porters@perl.org, vmsperl@perl.org, sarathy@activestate.com
Message-Id: <v04210105b3da3ed9599d@[172.16.246.133]>
p4raw-id: //depot/cfgperl@3987
| -rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index ba4c2cc0c4..a2a949b260 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -52,7 +52,7 @@ sub eliminate_macros { print "eliminate_macros('') = ||\n" if $Verbose >= 3; return ''; } - my($npath) = unixify($path); + my($npath) = join(' ', map(unixify($_), split(/\s+/, $path))); my($complex) = 0; my($head,$macro,$tail); @@ -67,7 +67,7 @@ sub eliminate_macros { } else { print "Note: can't expand macro \$($macro) containing ",ref($self->{$macro}), - "\n\t(using MMK-specific deferred substitutuon; MMS will break)\n"; + "\n\t(using MMK-specific deferred substitution; MMS will break)\n"; $macro = "\cB$macro\cB"; $complex = 1; } @@ -107,10 +107,11 @@ sub fixpath { if ($path =~ m#^\$\([^\)]+\)$# || $path =~ m#[/:>\]]#) { if ($force_path or $path =~ /(?:DIR\)|\])$/) { - $fixedpath = vmspath($self->eliminate_macros($path)); + $fixedpath = join(' ', map(vmspath($_),split(/\s+/, $self->eliminate_macros($path)))); } else { - $fixedpath = vmsify($self->eliminate_macros($path)); + $fixedpath = join(' ', map(vmsify($_),split(/\s+/, $self->eliminate_macros($path)))); + } } elsif ((($prefix,$name) = ($path =~ m#^\$\(([^\)]+)\)(.+)#)) && $self->{$prefix}) { |