fixed two bugs in pfam_enrich.pl that caused runtime warnings

CHANGES.txt

@@ -277,3 +277,4 @@
 04032019: fixed warning in check_BDBHs.pl when doing -m local .faa analyses
 05032019: improved marfil_homology::sort_blast_results to minimize sort -m temp files
 05032019: updated TODO.txt
+11042019: fixed two bugs in pfam_enrich.pl that caused runtime warnings 

pfam_enrich.pl

@@ -91,14 +91,15 @@
     next if(/^#/);
     $exp_clusters{(split)[0]} = 1; #9006_TR29928-c0_g1_i1.fna
   }
-  closedir(CLUSTERLIST);
+  close(CLUSTERLIST);
 
   die "# $0 : cannot parse 'experiment' clusters in $INP_clusterlist,\n".
     "# make sure you set -n with nucleotide clusters\n" if(!keys(%exp_clusters));
 }
 else{ die "# EXIT : need -c path and -x file\n"; }
 
 if($opts{'r'}){ $reference_proteome_string = $opts{'r'}; }
+else{ $reference_proteome_string = '' }
 
 if($opts{'t'})
 { 
@@ -311,7 +312,7 @@
 
 foreach $full_id (keys(%cluster_full_ids))
 {
-  print "# cannot find id of: $full_id\n" if($cluster_full_ids{$full_id} == 1 && $VERBOSE);
+  print "# cannot find id of: $full_id\n" if(!defined($cluster_full_ids{$full_id}) && $VERBOSE);
 }