added patch for -i'foo*bar', made code somewhat simpler, tweaked doc

[p5sagit/p5-mst-13.2.git] / installperl

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