--- a/rapsodyn/ParseBlastForUniqueMatch.pl	Mon Oct 20 05:58:31 2014 -0400
+++ b/rapsodyn/ParseBlastForUniqueMatch.pl	Mon Jan 19 04:33:21 2015 -0500
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+#V1.1.0 manage empty files
 #V1.0.1 added log, option parameters
 use strict;
 use warnings;
@@ -24,6 +25,10 @@
 my %hash_name;
 
 open(INB, $input_blast_file) or die ("Can't open $input_blast_file\n");
+if ( -z INB){
+	exit(0);
+}
+
 while (my $line =<INB>){
 	my @fields = split (/\s+/,$line);
 	# print $#fields,"\n";