Mercurial > hg > Members > anatofuz > MoarVM

changeset 9:6c4ba0dc43e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add close file handle
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Fri, 05 Oct 2018 21:10:59 +0900
parents 41b6e5ac652f
children 30098d746672
files cbctools/change_OP_to_cbc.pl
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/cbctools/change_OP_to_cbc.pl	Fri Oct 05 21:03:37 2018 +0900
+++ b/cbctools/change_OP_to_cbc.pl	Fri Oct 05 21:10:59 2018 +0900
@@ -5,8 +5,9 @@
 my $cbc_file = shift or die; # src/core/cbc-interp.cbc
 
 open my $fh, '<',$cbc_file;
+my @cbc_lines= <$fh>;
+close $fh;
 
-my @cbc_lines= <$fh>;
 my @rewritec = ();
 my $indent = " " x 12;
 my $none_left_blanket = 0;