implementing status solution

[biopieces.git] / bp_bin / read_tab

diff --git a/bp_bin/read_tab b/bp_bin/read_tab
index 152c0d5f26fd8e715afc2b8a6c26ff7dbc6eab56..0fda36bedd3aebc05a4c31cb1eeb1ae4a310ba2c 100755 (executable)
--- a/bp_bin/read_tab
+++ b/bp_bin/read_tab
@@ -104,25 +104,22 @@ if ( $options->{ 'data_in' } )
     close $data_in;
 }
 
+Maasha::Biopieces::close_stream( $in );
+Maasha::Biopieces::close_stream( $out );
+
 
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
 BEGIN
 {
-    $run_time_beg = Maasha::Biopieces::run_time();
-
-    Maasha::Biopieces::log_biopiece();
+    Maasha::Biopieces::status_set();
 }
 
+
 END
 {
-    Maasha::Biopieces::close_stream( $in );
-    Maasha::Biopieces::close_stream( $out );
-
-    $run_time_end = Maasha::Biopieces::run_time();
-
-    Maasha::Biopieces::run_time_print( $run_time_beg, $run_time_end, $options );
+    Maasha::Biopieces::status_log();
 }
 
 
@@ -130,7 +127,3 @@ END
 
 
 __END__
-
-
-
-