Fixed reckless clobbering if file existed

README.md

@@ -26,14 +26,10 @@ of thumb goes without saying: "no green, no commit".
 Make executable script for you and heat up vim.  Accepts filename as parameter.
 
 1.  try to guess type from name (e.g. .pl -> perl)
-2.  clobber(!) filename with shebang (based on `which` call)
+2.  if filename does not exist, create it with shebang (based on `which` call)
 3.  chmod it to `0755` (yeah, hardcoded `0755`, no smartness here whatsoever)
 4.  try to heat up `vim` or `editor` for you.
 
-**Warning**: This clobbers filename without warnings but I'm too lazy to fix
-             that.  Either send a patch or make me feel emarrassed enough so
-             I'll do it myself.
-
 
 ### timestamp.pl ###
 

bin/mkexec.pl

@@ -30,7 +30,8 @@ $cmds->{editor}->{run}  = "editor '%s'";
 
 
 if (exists $bang->{$type}) {
-	mkexec $name, $bang->{$type};
+	-e $name || mkexec $name, $bang->{$type};
+	chmod $DEFAULT_MODE, $name;
     launch_editor $name;
 } else {
 	die "unknown type: $type\n";
@@ -53,7 +54,6 @@ sub mkexec {
 	-W EXE			|| die "file $name is not writable\n";
 	print EXE "#!$bang\n";
 	close EXE		|| die "cannot close $name: $!\n";
-	chmod $DEFAULT_MODE, $name;
 }
 
 sub get_cmd {