git.perl 防止死循环， emacs config