projects
/
ssic.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix printf argument lists.
[ssic.git]
/
src
/
ssic.pl
diff --git
a/src/ssic.pl
b/src/ssic.pl
index 80e2071b41db0ccecf3f8ce9402f182009f871de..db7a39f047c033c381daa95e3fc40c7037069b94 100644
(file)
--- a/
src/ssic.pl
+++ b/
src/ssic.pl
@@
-86,16
+86,16
@@
sub version
sub warning
{
sub warning
{
- my ($fmt,
$
args) = @_;
+ my ($fmt,
@
args) = @_;
- printf("ssic: Warning: " . $fmt,
$
args);
+ printf("ssic: Warning: " . $fmt,
@
args);
}
sub error
{
}
sub error
{
- my ($status, $fmt,
$
args) = @_;
+ my ($status, $fmt,
@
args) = @_;
- printf("ssic: Error: " . $fmt,
$
args);
+ printf("ssic: Error: " . $fmt,
@
args);
exit($status);
}
exit($status);
}
@@
-112,8
+112,12
@@
sub compile
error(4, "Input and output files are equal\n");
}
error(4, "Input and output files are equal\n");
}
- open($input_fh, "<", $input);
- open($output_fh, ">", $output);
+ if (not open($input_fh, "<", $input)) {
+ error(4, "%s: %s\n", $input, $!);
+ }
+ if (not open($output_fh, ">", $output)) {
+ error(4, "%s: %s\n", $output, $!);
+ }
%ENV = (
"DOCUMENT_NAME" => $input,
%ENV = (
"DOCUMENT_NAME" => $input,