don't attempt to copy directories on VMS

	Message-Id: <3.0.5.32.19980629163129.00a82140@ous.edu>
	Subject: [PATCH 5.004_69]Tweak to installperl

p4raw-id: //depot/perl@1280

diff --git a/installperl b/installperl
index dadb99b..44e5d1b 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -558,6 +558,7 @@ sub installlib {
 
 sub copy_if_diff {
     my($from,$to)=@_;
+    return 1 if (($^O eq 'VMS') && (-d $from));
     -f $from || die "$0: $from not found";
     $packlist->{$to} = { type => 'file' };
     if (compare($from, $to) || $nonono) {