From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 13 Aug 1999 17:42:47 +0000 (-0500)
Subject: fix MM_VMS.pm for space-delimited lists
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6cd4fc3dff4f36289f387ad002d64474187e2fe0;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm
index ba4c2cc..a2a949b 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}) {