From: P. J. McDermott <pjm@nac.net>
Date: Sun, 22 Sep 2013 21:42:27 +0000 (-0400)
Subject: Only warn if input and output files are equal.
X-Git-Tag: ssic/1.0.0~28
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=efba28621cc2c3e93a750a1150c4a08170d56a65;p=ssic.git

Only warn if input and output files are equal.
---

diff --git a/src/ssic.pl b/src/ssic.pl
index 285c20f..750c77b 100644
--- 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 "-") {