From: Hans Mulder <hansmu@xs4all.nl>
Date: Mon, 29 Jun 1998 16:31:29 +0000 (-0700)
Subject: don't attempt to copy directories on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8530e788ed7c379a2ce97baf3a0eaa5e1470f685;p=p5sagit%2Fp5-mst-13.2.git

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