#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use File::Basename;
use File::Copy;

usage("Wrong number of arguments") if $#ARGV != 1;
usage("Cannot read srcfile $ARGV[0]") unless -r $ARGV[0];
usage("$ARGV[0] is not a file") unless -f $ARGV[0];
usage("$ARGV[1] is not a file") if(-e $ARGV[1] && ! -f $ARGV[1]);

if(-f $ARGV[1]) {
    exit 0 if -M $ARGV[0] >= -M $ARGV[1];
}

File::Copy::copy($ARGV[0], $ARGV[1]) || die "Copy failed ($!)";

######################################################################
sub usage {
######################################################################
    ($prgname = $0) =~ s#.*/##g;
    print "$prgname: @_\n";
    print "usage: $prgname srcfile dstfile\n";
    exit 1;
}