This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix MM_VMS.pm for space-delimited lists
authorCraig A. Berry <craigberry@mac.com>
Fri, 13 Aug 1999 17:42:47 +0000 (12:42 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 13 Aug 1999 23:57:52 +0000 (23:57 +0000)
To: perl5-porters@perl.org, vmsperl@perl.org, sarathy@activestate.com
Message-Id: <v04210105b3da3ed9599d@[172.16.246.133]>

p4raw-id: //depot/cfgperl@3987

lib/ExtUtils/MM_VMS.pm

index ba4c2cc..a2a949b 100644 (file)
@@ -52,7 +52,7 @@ sub eliminate_macros {
        print "eliminate_macros('') = ||\n" if $Verbose >= 3;
        return '';
     }
        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);
 
     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}),
                 }
                 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;
                 }
                     $macro = "\cB$macro\cB";
                     $complex = 1;
                 }
@@ -107,10 +107,11 @@ sub fixpath {
 
     if ($path =~ m#^\$\([^\)]+\)$# || $path =~ m#[/:>\]]#) { 
         if ($force_path or $path =~ /(?:DIR\)|\])$/) {
 
     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 {
         }
         else {
-            $fixedpath = vmsify($self->eliminate_macros($path));
+            $fixedpath = join(' ', map(vmsify($_),split(/\s+/, $self->eliminate_macros($path))));
+
         }
     }
     elsif ((($prefix,$name) = ($path =~ m#^\$\(([^\)]+)\)(.+)#)) && $self->{$prefix}) {
         }
     }
     elsif ((($prefix,$name) = ($path =~ m#^\$\(([^\)]+)\)(.+)#)) && $self->{$prefix}) {