Mercurial > emacs
view move-if-change @ 70376:64d64506f4b1
(perl-beginning-of-function): Skip anonymous subs.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 04 May 2006 21:58:34 +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