X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2Fssic.pl;fp=src%2Fssic.pl;h=553f83d00162787b840086237886d91e2df5ff4b;hb=87ad3d52c3d06311e0fdd87dc654408ee746c45c;hp=80e2071b41db0ccecf3f8ce9402f182009f871de;hpb=ffb38283618851c4697a359824da679780c4564e;p=ssic.git

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,