projects
/
ssic.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Write to a temporary file.
[ssic.git]
/
src
/
ssic.pl
diff --git
a/src/ssic.pl
b/src/ssic.pl
index 5cc04efe502647737ace0cb520e4a5f0af852739..285c20fa4bdc5d2e779ec0ab59e8283fbe4536ff 100644
(file)
--- a/
src/ssic.pl
+++ b/
src/ssic.pl
@@
-127,8
+127,8
@@
sub compile
if ($output eq "-") {
$output_fh = *STDOUT;
} else {
if ($output eq "-") {
$output_fh = *STDOUT;
} else {
- if (not open($output_fh, ">", $output)) {
- error(4, "%s: %s\n", $output, $!);
+ if (not open($output_fh, ">", $output
. "~"
)) {
+ error(4, "%s: %s\n", $output
. "~"
, $!);
}
}
}
}
@@
-159,6
+159,10
@@
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, $!);
+ }
}
main();
}
main();