[Bioperl-guts-l] bioperl-live/scripts/Bio-DB-GFF bulk_load_gff.PLS, 1.32, 1.33

[Jason Stajich]

Update of /home/repository/bioperl/bioperl-live/scripts/Bio-DB-GFF
In directory pub.open-bio.org:/tmp/cvs-serv15766/scripts/Bio-DB-GFF

Modified Files:
	bulk_load_gff.PLS 
Log Message:
fix DREADFUL bug which deleted FASTA files regardless of whether or not they were temporary, this should take care of it


Index: bulk_load_gff.PLS
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/scripts/Bio-DB-GFF/bulk_load_gff.PLS,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** bulk_load_gff.PLS	30 Aug 2005 16:42:42 -0000	1.32
--- bulk_load_gff.PLS	14 Sep 2005 17:00:42 -0000	1.33
***************
*** 362,365 ****
--- 362,366 ----
  my $FEATURES    = 0;
  
+ my %tmpfiles; # keep track of temporary fasta files
  my $count;
  my $fasta_sequence_id;
***************
*** 422,425 ****
--- 423,427 ----
      print STDERR "Preparing embedded sequence $1\n";
      push @fasta, "$tmpdir/$1\.fa";
+     $tmpfiles{"$tmpdir/$1\.fa"}++;
      next;
    }
***************
*** 528,532 ****
    warn "done...\n";
    select $old;
!   unlink $file;
  }
  
--- 530,534 ----
    warn "done...\n";
    select $old;
!   unlink $file if $tmpfiles{$file};
  }