소스 검색

Do a backup when forcing new file

Alois Mahdal 11 년 전
부모
커밋
b708dccea7
1개의 변경된 파일4개의 추가작업 그리고 2개의 파일을 삭제
  1. 4
    2
      bin/mkexec.pl

+ 4
- 2
bin/mkexec.pl 파일 보기

48
 ## ''' ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
48
 ## ''' ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
49
 
49
 
50
 if (exists $bangs->{$type}) {
50
 if (exists $bangs->{$type}) {
51
-    -e $name and not $force
52
-        or mkexec $name, mkbody($type);
51
+    $force and -e $name
52
+        and (defined `cp "$name" "$name~"` or die $!);
53
+    (not -e $name or $force)
54
+        and mkexec $name, mkbody($type);
53
     chmod $DEFAULT_MODE, $name;
55
     chmod $DEFAULT_MODE, $name;
54
     launch_editor $name;
56
     launch_editor $name;
55
 } else {
57
 } else {