From: martinahansen Date: Mon, 8 Jun 2009 20:30:11 +0000 (+0000) Subject: rewrote bioscript X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=33768f46bc2af61e42a2bd45cfeed0a0efbb8dae;p=biopieces.git rewrote bioscript git-svn-id: http://biopieces.googlecode.com/svn/trunk@517 74ccb610-7750-0410-82ae-013aeee3265d --- diff --git a/bp_bin/bioscript b/bp_bin/bioscript index efc8b93..ee172a5 100755 --- a/bp_bin/bioscript +++ b/bp_bin/bioscript @@ -47,10 +47,11 @@ $out = Maasha::Biopieces::write_stream( $options->{ "stream_out" } ); print STDERR "eval: $options->{ 'eval' }\n" if $options->{ 'verbose' }; -eval "$options->{ 'eval' }"; +eval "no strict; $options->{ 'eval' }"; Maasha::Common::error( qq(Eval of "$options->{ 'eval' }" failed) ) if $@; + Maasha::Biopieces::close_stream( $in ); Maasha::Biopieces::close_stream( $out );