projects
/
ssic.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Only rename output file if it's not "-".
[ssic.git]
/
src
/
ssic.pl
diff --git
a/src/ssic.pl
b/src/ssic.pl
index 2f3744e8a4e80310e87c135235a2e0037b559e26..81bb50dfdcdc29868805a5e6374b78d6862894a6 100755
(executable)
--- a/
src/ssic.pl
+++ b/
src/ssic.pl
@@
-105,14
+105,14
@@
sub warning
{
my ($fmt, @args) = @_;
{
my ($fmt, @args) = @_;
- printf("ssic: Warning: " . $fmt, @args);
+ printf(
STDERR
"ssic: Warning: " . $fmt, @args);
}
sub error
{
my ($status, $fmt, @args) = @_;
}
sub error
{
my ($status, $fmt, @args) = @_;
- printf("ssic: Error: " . $fmt, @args);
+ printf(
STDERR
"ssic: Error: " . $fmt, @args);
exit($status);
}
exit($status);
}
@@
-173,10
+173,9
@@
sub compile
}
if ($output ne "-") {
close($output_fh);
}
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, $!);
+ }
}
}
}
}