X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2Fssic.pl;h=750c77be6b9021a72284ed8cec2d844390c52c5d;hb=8f8a48ff1f02160cb769f76310564764f3e9ba78;hp=5cc04efe502647737ace0cb520e4a5f0af852739;hpb=38cef4993526f480eb5e54661acb5f655d0323c0;p=ssic.git

diff --git a/src/ssic.pl b/src/ssic.pl
old mode 100644
new mode 100755
index 5cc04ef..750c77b
--- a/src/ssic.pl
+++ b/src/ssic.pl
@@ -112,7 +112,7 @@ sub compile
 	my $var_value;
 
 	if ($input eq $output and $input ne "-") {
-		error(4, "Input and output files are equal\n");
+		warning("Input and output files are equal\n");
 	}
 
 	if ($input eq "-") {
@@ -127,8 +127,8 @@ sub compile
 	if ($output eq "-") {
 		$output_fh = *STDOUT;
 	} else {
-		if (not open($output_fh, ">", $output)) {
-			error(4, "%s: %s\n", $output, $!);
+		if (not open($output_fh, ">", $output . "~")) {
+			error(4, "%s: %s\n", $output . "~", $!);
 		}
 	}
 
@@ -159,6 +159,10 @@ sub compile
 	if ($output ne "-") {
 		close($output_fh);
 	}
+
+	if (not rename($output . "~", $output)) {
+		error(4, "%s: %s\n", $output, $!);
+	}
 }
 
 main();