summaryrefslogtreecommitdiffstats
path: root/contrib/amd/m4/copy-if-newbig
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/amd/m4/copy-if-newbig')
-rwxr-xr-xcontrib/amd/m4/copy-if-newbig29
1 files changed, 0 insertions, 29 deletions
diff --git a/contrib/amd/m4/copy-if-newbig b/contrib/amd/m4/copy-if-newbig
deleted file mode 100755
index 3438c52..0000000
--- a/contrib/amd/m4/copy-if-newbig
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/perl -w
-# copy a file if it is both newer and bigger in size
-# if copying, first rename older file to .orig
-
-$src = $ARGV[0];
-$dst = $ARGV[1];
-# dev,ino,mode,nlink,uid,gid,rdev,size,atime,mtime,ctime,blksize,blocks
-@srcstat = stat($src);
-@dststat = stat($dst);
-
-$srcsize = $srcstat[7];
-$srcmtime = $srcstat[9];
-$dstsize = $dststat[7];
-$dstmtime = $dststat[9];
-
-# copy if src file is bigger and newer
-if ($srcsize > $dstsize && $srcmtime > $dstmtime) {
- print "mv -f $dst $dst.orig\n";
- system("mv -f $dst $dst.orig");
- print "cp -p $src $dst\n";
- system("cp -p $src $dst");
- die "cp command failed" if ($? != 0);
-}
-# make sure dst file has newer timestamp
-if ($srcmtime > $dstmtime) {
- print "touch $dst\n";
- system("touch $dst");
-}
-exit(0);
OpenPOWER on IntegriCloud