diff options
| author | P. J. McDermott <pjm@nac.net> | 2013-09-22 17:23:24 (EDT) |
|---|---|---|
| committer | P. J. McDermott <pjm@nac.net> | 2013-09-22 17:23:24 (EDT) |
| commit | 38cef4993526f480eb5e54661acb5f655d0323c0 (patch) | |
| tree | b4d50860b7245946b046c743cd79e1edac59788a | |
| parent | c7dbd598e3cddc3161bc718f9ea9df6f15f8fdd6 (diff) | |
| download | ssic-38cef4993526f480eb5e54661acb5f655d0323c0.zip ssic-38cef4993526f480eb5e54661acb5f655d0323c0.tar.gz ssic-38cef4993526f480eb5e54661acb5f655d0323c0.tar.bz2 | |
Close input and output file handles.
| -rw-r--r-- | src/ssic.pl | 7 |
1 files changed, 7 insertions, 0 deletions
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(); |