changed order_pairs2 to gdbm

[biopieces.git] / bp_bin / biostat

diff --git a/bp_bin/biostat b/bp_bin/biostat
index 744710a1b91fec09d044bd674410e9d1268aa795..175d6fd5c1d9b75e6dedab1cffed0969ebfba0ff 100755 (executable)
--- a/bp_bin/biostat
+++ b/bp_bin/biostat
@@ -26,6 +26,7 @@
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
+use warnings;
 use strict;
 use Maasha::Biopieces;
 use Maasha::Common;
@@ -75,11 +76,6 @@ while ( 1 )
 
             push @table, $info;
         }
-        else
-        {
-            print STDERR "Removing stale file: $file\n";
-            unlink $file;
-        }
     }
 
     if ( $options->{ 'sort' } =~ /^(USER|TMP_DIR|START_TIME|RUN_TIME|COMMAND)$/ ) {
@@ -168,6 +164,7 @@ sub get_status_info
     my ( $fh, $line, $time, $args, $tmp_dir, $du );
 
     $fh = Maasha::Filesys::file_read_open( $file );
+    flock($fh, 1);
     $line = <$fh>;
     close $fh;