Change 28715: Only copy ppport.h to destination if it is different.

[Marcus Holland-Moritz]

Change 28715 by [EMAIL PROTECTED] on 2006/08/14 20:29:57

        Only copy ppport.h to destination if it is different.
        This avoid unneccessary rebuilds.

Affected files ...

... //depot/perl/mkppport#2 edit

Differences ...

==== //depot/perl/mkppport#2 (text) ====
Index: perl/mkppport
--- perl/mkppport#1~28513~      2006-07-09 01:19:33.000000000 -0700
+++ perl/mkppport       2006-08-14 13:29:57.000000000 -0700
@@ -4,6 +4,7 @@
 use Getopt::Long;
 use Pod::Usage;
 use File::Spec;
+use File::Compare qw( compare );
 use File::Copy qw( copy );
 use File::Basename qw( dirname );
 
@@ -82,9 +83,14 @@
 # Now install the created ppport.h into extension directories
 iterdirs {
   my($dir, $fulldir) = @_;
-  print "installing ppport.h for $dir\n";
   my $dest = File::Spec->catfile($fulldir, 'ppport.h');
-  copy('ppport.h', $dest) or die "copying ppport.h to $dest failed: $!\n";
+  if (compare('ppport.h', $dest)) {
+    print "installing ppport.h for $dir\n";
+    copy('ppport.h', $dest) or die "copying ppport.h to $dest failed: $!\n";
+  }
+  else {
+    print "ppport.h in $dir is up-to-date\n";
+  }
 };
 
 exit 0;
End of Patch.