From f557327ea0507b7b7d920fe0323de4923b002471 Mon Sep 17 00:00:00 2001 From: martinahansen Date: Wed, 13 Oct 2010 12:00:52 +0000 Subject: [PATCH] removed local logging causing trouble git-svn-id: http://biopieces.googlecode.com/svn/trunk@1129 74ccb610-7750-0410-82ae-013aeee3265d --- code_perl/Maasha/Biopieces.pm | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm index d83b2d9..67d3bd9 100644 --- a/code_perl/Maasha/Biopieces.pm +++ b/code_perl/Maasha/Biopieces.pm @@ -137,23 +137,19 @@ sub log_biopiece # Returns nothing. - my ( $time_stamp, $user, $script, $fh_global, $fh_local ); + my ( $time_stamp, $user, $script, $fh ); $time_stamp = Maasha::Common::time_stamp(); $user = Maasha::Common::get_user(); $script = Maasha::Common::get_scriptname(); - $fh_global = Maasha::Filesys::file_append_open( "$ENV{ 'BP_LOG' }/biopieces.log" ); - $fh_local = Maasha::Filesys::file_append_open( "$ENV{ 'HOME' }/.biopieces.log" ); + $fh = Maasha::Filesys::file_append_open( "$ENV{ 'BP_LOG' }/biopieces.log" ); - print $fh_global "$time_stamp\t$user\t$script ", join( " ", @ARGV ), "\n"; - print $fh_local "$time_stamp\t$user\t$script ", join( " ", @ARGV ), "\n"; + print $fh "$time_stamp\t$user\t$script ", join( " ", @ARGV ), "\n"; - $fh_global->autoflush( 1 ); - $fh_local->autoflush( 1 ); + $fh->autoflush( 1 ); - close $fh_global; - close $fh_local; + close $fh; } -- 2.39.5