From: P. J. McDermott Date: Sun, 22 Sep 2013 21:23:24 +0000 (-0400) Subject: Close input and output file handles. X-Git-Tag: ssic/1.0.0~30 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=38cef4993526f480eb5e54661acb5f655d0323c0;p=ssic.git Close input and output file handles. --- diff --git a/src/ssic.pl b/src/ssic.pl index 8ecc30e..5cc04ef 100644 --- a/src/ssic.pl +++ b/src/ssic.pl @@ -152,6 +152,13 @@ sub compile } print($output_fh $ssi->process(<$input_fh>)); + + if ($input ne "-") { + close($input_fh); + } + if ($output ne "-") { + close($output_fh); + } } main();