view move-if-change @ 26351:861868d5730a

(gud-perldb-massage-args): Handle the case "perl -e 0" the default when invoking perldb in a non-Perl buffer) and other cases involving -e or --.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 04 Nov 1999 20:48:59 +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