Change 30227 by [EMAIL PROTECTED] on 2007/02/12 15:05:29
Integrate:
[ 28715]
Only copy ppport.h to destination if it is different.
This avoids unneccessary rebuilds.
Affected files ...
... //depot/maint-5.8/perl/mkppport#2 integrate
Differences ...
==== //depot/maint-5.8/perl/mkppport#2 (text) ====
Index: perl/mkppport
--- perl/mkppport#1~30208~ 2007-02-10 15:36:59.000000000 -0800
+++ perl/mkppport 2007-02-12 07:05:29.000000000 -0800
@@ -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.
