--- lib/ExtUtils/MM_VMS.pm;-0	Tue Mar 26 14:22:24 2002
+++ lib/ExtUtils/MM_VMS.pm	Fri Mar 29 00:20:16 2002
@@ -912,7 +912,7 @@
 EQUALIZE_TIMESTAMP = \$(PERL) -we "open F,qq{>\$ARGV[1]};close F;utime(0,(stat(\$ARGV[0]))[9]+1,\$ARGV[1])"
 !. ($self->{PARENT} ? '' : 
 qq!WARN_IF_OLD_PACKLIST = \$(PERL) -e "if (-f \$ARGV[0]){print qq[WARNING: Old package found (\$ARGV[0]); please check for collisions\\n]}"
-MOD_INSTALL = \$(PERL) "-I\$(PERL_LIB)" "-MExtUtils::Install" -e "install({split(' ',<STDIN>)},1);"
+MOD_INSTALL = \$(PERL) "-I\$(PERL_LIB)" "-MExtUtils::Install" -e "install({split(/\\s+/,join(' ',<STDIN>))},1);"
 DOC_INSTALL = \$(PERL) -e "\@ARGV=split(/\\|/,<STDIN>);print '=head2 ',scalar(localtime),': C<',shift,qq[>\\n\\n=over 4\\n\\n];while(\$key=shift && \$val=shift){print qq[=item *\\n\\nC<\$key: \$val>\\n\\n];}print qq[=back\\n\\n]"
 UNINSTALL = \$(PERL) "-I\$(PERL_LIB)" "-MExtUtils::Install" -e "uninstall(\$ARGV[0],1,1);"
 !);
@@ -1603,14 +1603,14 @@
 	foreach $file (@{$self->{EXE_FILES}}) {
 	    $line .= "$file ";
 	    if (length($line) > 128) {
-		push(@docfiles,qq[\t\$(PERL) -e "print '$line'" >>.MM_tmp\n]);
+		push(@docfiles,qq[\t\$(NOECHO) WRITE PL_TMP_ "$line"\n]);
 		$line = '';
 	    }
 	}
-	push(@docfiles,qq[\t\$(PERL) -e "print '$line'" >>.MM_tmp\n]) if $line;
+	push(@docfiles,qq[\t\$(NOECHO) WRITE PL_TMP_ "$line"\n]) if $line;
     }
 
-    push @m, q[
+    push @m, q%
 install :: all pure_install doc_install
 	$(NOECHO) $(NOOP)
 
@@ -1637,57 +1637,66 @@
 
 # This hack brought to you by DCL's 255-character command line limit
 pure_perl_install ::
-	$(NOECHO) $(PERL) -e "print 'read ].File::Spec->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q[ '" >.MM_tmp
-	$(NOECHO) $(PERL) -e "print 'write ].File::Spec->catfile('$(INSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q[ '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_LIB) $(INSTALLPRIVLIB) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_ARCHLIB) $(INSTALLARCHLIB) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_BIN) $(INSTALLBIN) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_SCRIPT) $(INSTALLSCRIPT) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_MAN1DIR) $(INSTALLMAN1DIR) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_MAN3DIR) $(INSTALLMAN3DIR) '" >>.MM_tmp
+	$(NOECHO) OPEN/WRITE PL_TMP_ .MM_tmp
+	$(NOECHO) WRITE PL_TMP_ "read " , "$(PERL_ARCHLIB)"-"]"-">" , ".auto" , "$(FULLEXT)"-"["-"<" , ".packlist"
+	$(NOECHO) WRITE PL_TMP_ "write ", "$(INSTALLARCHLIB)"-"]"-">" , ".auto" , "$(FULLEXT)"-"["-"<" , ".packlist"
+	$(NOECHO) WRITE PL_TMP_ "$(INST_LIB) $(INSTALLPRIVLIB) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_ARCHLIB) $(INSTALLARCHLIB) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_BIN) $(INSTALLBIN) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_SCRIPT) $(INSTALLSCRIPT) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_MAN1DIR) $(INSTALLMAN1DIR) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_MAN3DIR) $(INSTALLMAN3DIR) "
+	$(NOECHO) CLOSE PL_TMP_
 	$(MOD_INSTALL) <.MM_tmp
 	$(NOECHO) Delete/NoLog/NoConfirm .MM_tmp;
-	$(NOECHO) $(WARN_IF_OLD_PACKLIST) ].File::Spec->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q[
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) ("$(SITEARCHEXP)"-"]"-">")+".auto"+("$(FULLEXT)"-"["-"<")+".packlist"
 
 # Likewise
 pure_site_install ::
-	$(NOECHO) $(PERL) -e "print 'read ].File::Spec->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q[ '" >.MM_tmp
-	$(NOECHO) $(PERL) -e "print 'write ].File::Spec->catfile('$(INSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q[ '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_LIB) $(INSTALLSITELIB) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_ARCHLIB) $(INSTALLSITEARCH) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_BIN) $(INSTALLBIN) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_SCRIPT) $(INSTALLSCRIPT) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_MAN1DIR) $(INSTALLMAN1DIR) '" >>.MM_tmp
-	$(NOECHO) $(PERL) -e "print '$(INST_MAN3DIR) $(INSTALLMAN3DIR) '" >>.MM_tmp
+	$(NOECHO) OPEN/WRITE PL_TMP_ .MM_tmp
+	$(NOECHO) WRITE PL_TMP_ "read " , "$(SITEARCHEXP)"-"]"-">" , ".auto" , "$(FULLEXT)"-"["-"<" , ".packlist"
+	$(NOECHO) WRITE PL_TMP_ "write ", "$(INSTALLSITEARCH)"-"]"-">" , ".auto" , "$(FULLEXT)"-"["-"<" , ".packlist"
+	$(NOECHO) WRITE PL_TMP_ "$(INST_LIB) $(INSTALLSITELIB) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_ARCHLIB) $(INSTALLSITEARCH) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_BIN) $(INSTALLBIN) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_SCRIPT) $(INSTALLSCRIPT) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_MAN1DIR) $(INSTALLMAN1DIR) "
+	$(NOECHO) WRITE PL_TMP_ "$(INST_MAN3DIR) $(INSTALLMAN3DIR) "
+	$(NOECHO) CLOSE PL_TMP_
 	$(MOD_INSTALL) <.MM_tmp
 	$(NOECHO) Delete/NoLog/NoConfirm .MM_tmp;
-	$(NOECHO) $(WARN_IF_OLD_PACKLIST) ].File::Spec->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q[
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) ("$(PERL_ARCHLIB)"-"]"-">")+".auto"+("$(FULLEXT)"-"["-"<")+".packlist"
 
 # Ditto
 doc_perl_install ::
-	$(NOECHO) $(PERL) -e "print 'Module $(NAME)|installed into|$(INSTALLPRIVLIB)|'" >.MM_tmp
-	$(NOECHO) $(PERL) -e "print 'LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES)|'" >>.MM_tmp
-],@docfiles,
-q%	$(NOECHO) $(PERL) -e "print q[@ARGV=split(/\\|/,<STDIN>);]" >.MM2_tmp
+	$(NOECHO) OPEN/WRITE PL_TMP_ .MM_tmp
+	$(NOECHO) PL_TMP_SYMBOL = "Module $(NAME)|installed into|$(INSTALLPRIVLIB)|LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES)|"
+	$(NOECHO) WRITE/SYMBOL PL_TMP_ PL_TMP_SYMBOL
+%,@docfiles,
+q%	$(NOECHO) CLOSE PL_TMP_
+	$(NOECHO) $(PERL) -e "print q[@ARGV=split(/\\|/,<STDIN>);]" >.MM2_tmp
 	$(NOECHO) $(PERL) -e "print q[print '=head2 ',scalar(localtime),': C<',shift,qq[>\\n\\n=over 4\\n\\n];]" >>.MM2_tmp
 	$(NOECHO) $(PERL) -e "print q[while(($key=shift) && ($val=shift)) ]" >>.MM2_tmp
 	$(NOECHO) $(PERL) -e "print q[{print qq[=item *\\n\\nC<$key: $val>\\n\\n];}print qq[=back\\n\\n];]" >>.MM2_tmp
-	$(NOECHO) $(PERL) .MM2_tmp <.MM_tmp >>%.File::Spec->catfile('$(INSTALLARCHLIB)','perllocal.pod').q[
+	$(NOECHO) $(PERL) .MM2_tmp <.MM_tmp >> "$(INSTALLARCHLIB)perllocal.pod"
 	$(NOECHO) Delete/NoLog/NoConfirm .MM_tmp;,.MM2_tmp;
+%.q%
 
 # And again
 doc_site_install ::
-	$(NOECHO) $(PERL) -e "print 'Module $(NAME)|installed into|$(INSTALLSITELIB)|'" >.MM_tmp
-	$(NOECHO) $(PERL) -e "print 'LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES)|'" >>.MM_tmp
-],@docfiles,
-q%	$(NOECHO) $(PERL) -e "print q[@ARGV=split(/\\|/,<STDIN>);]" >.MM2_tmp
+	$(NOECHO) OPEN/WRITE PL_TMP_ .MM_tmp
+	$(NOECHO) PL_TMP_SYMBOL = "Module $(NAME)|installed into|$(INSTALLSITELIB)|LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES)|"
+	$(NOECHO) WRITE/SYMBOL PL_TMP_ PL_TMP_SYMBOL
+%,@docfiles,
+q%	$(NOECHO) CLOSE PL_TMP_
+	$(NOECHO) $(PERL) -e "print q[@ARGV=split(/\\|/,<STDIN>);]" >.MM2_tmp
 	$(NOECHO) $(PERL) -e "print q[print '=head2 ',scalar(localtime),': C<',shift,qq[>\\n\\n=over 4\\n\\n];]" >>.MM2_tmp
 	$(NOECHO) $(PERL) -e "print q[while(($key=shift) && ($val=shift)) ]" >>.MM2_tmp
 	$(NOECHO) $(PERL) -e "print q[{print qq[=item *\\n\\nC<$key: $val>\\n\\n];}print qq[=back\\n\\n];]" >>.MM2_tmp
-	$(NOECHO) $(PERL) .MM2_tmp <.MM_tmp >>%.File::Spec->catfile('$(INSTALLARCHLIB)','perllocal.pod').q[
+	$(NOECHO) $(PERL) .MM2_tmp <.MM_tmp >> "$(INSTALLARCHLIB)perllocal.pod"
 	$(NOECHO) Delete/NoLog/NoConfirm .MM_tmp;,.MM2_tmp;
 
-];
+%;
 
     push @m, q[
 uninstall :: uninstall_from_$(INSTALLDIRS)dirs