From: P. J. McDermott <pjm@nac.net>
Date: Mon, 23 Sep 2013 14:04:16 +0000 (-0400)
Subject: Only rename output file if it's not "-".
X-Git-Tag: ssic/1.0.0~23
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=874cafcd1d826d03066055b80c7900cae706f9c8;p=ssic.git

Only rename output file if it's not "-".
---

diff --git a/src/ssic.pl b/src/ssic.pl
index ba8b184..81bb50d 100755
--- a/src/ssic.pl
+++ b/src/ssic.pl
@@ -173,10 +173,9 @@ sub compile
 	}
 	if ($output ne "-") {
 		close($output_fh);
-	}
-
-	if (not rename($output . "~", $output)) {
-		error(4, "%s: %s\n", $output, $!);
+		if (not rename($output . "~", $output)) {
+			error(4, "%s: %s\n", $output, $!);
+		}
 	}
 }