diff options
| -rw-r--r-- | src/ssic.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/ssic.pl b/src/ssic.pl index 80e2071..553f83d 100644 --- a/src/ssic.pl +++ b/src/ssic.pl @@ -112,8 +112,12 @@ sub compile 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, |