Only warn if input and output files are equal.
authorP. J. McDermott <pjm@nac.net>
Sun, 22 Sep 2013 21:42:27 +0000 (17:42 -0400)
committerP. J. McDermott <pjm@nac.net>
Sun, 22 Sep 2013 21:42:27 +0000 (17:42 -0400)
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 "-") {