implementing status solution

[biopieces.git] / bp_bin / patscan_seq

diff --git a/bp_bin/patscan_seq b/bp_bin/patscan_seq
index 60a5cae0bdbc18fc9450bc06d1dc9771ebed2572..d6b9c1b60322b13824f5a25bc61f0d59d00a8f9b 100755 (executable)
--- a/bp_bin/patscan_seq
+++ b/bp_bin/patscan_seq
@@ -139,6 +139,9 @@ unlink $seq_file if not $options->{ 'genome' };
 
 Maasha::Filesys::dir_remove( $tmp_dir );
 
+Maasha::Biopieces::close_stream( $in );
+Maasha::Biopieces::close_stream( $out );
+
 
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SUBROUTINES <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
@@ -219,20 +222,13 @@ sub pat_write
 
 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();
 }
 
 
@@ -240,4 +236,3 @@ END
 
 
 __END__
-