view move-if-change @ 62686:25f639ed2b2d

(cperl-vc-header-alist): Obsoleted. (cperl-vc-rcs-header, cperl-vc-sccs-header): New user options. (cperl-mode): Use them.
author André Spiegel <spiegel@gnu.org>
date Tue, 24 May 2005 20:03:58 +0000
parents 354e0c45cedf
children 14a97ab281d5
line wrap: on
line source

#!/bin/sh
if
test -r $2
then
if
cmp $1 $2 > /dev/null
then
echo $2 is unchanged
rm -f $1
else
mv -f $1 $2
fi
else
mv -f $1 $2
fi