Only warn if input and output files are equal.
[ssic.git] / src / ssic.pl
index 285c20fa4bdc5d2e779ec0ab59e8283fbe4536ff..750c77be6b9021a72284ed8cec2d844390c52c5d 100644 (file)
@@ -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 "-") {