[Bioperl-guts-l] bioperl-live/Bio/SeqIO genbank.pm,1.158,1.159

[Christopher John Fields]

Update of /home/repository/bioperl/bioperl-live/Bio/SeqIO
In directory dev.open-bio.org:/tmp/cvs-serv6727

Modified Files:
	genbank.pm 
Log Message:
change for block to a map

Index: genbank.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SeqIO/genbank.pm,v
retrieving revision 1.158
retrieving revision 1.159
diff -C2 -d -r1.158 -r1.159
*** genbank.pm	30 Nov 2006 02:55:46 -0000	1.158
--- genbank.pm	30 Nov 2006 03:32:32 -0000	1.159
***************
*** 199,203 ****
  
  BEGIN {
!     for (qw(
      EchoBASE     IntAct    SWISS-2DPAGE    ECO2DBASE    ECOGENE    TIGRFAMs
      TIGR    GO    InterPro    Pfam    PROSITE    SGD    GermOnline
--- 199,203 ----
  
  BEGIN {
!     %DBSOURCE = map {$_ => 1} qw(
      EchoBASE     IntAct    SWISS-2DPAGE    ECO2DBASE    ECOGENE    TIGRFAMs
      TIGR    GO    InterPro    Pfam    PROSITE    SGD    GermOnline
***************
*** 211,218 ****
      PhotoList    Gramene    WormBase    WormPep    Genew    ZFIN
      PeroxiBase    MaizeDB    TAIR    DrugBank    REBASE    HPA
!     swissprot    GenBank    GenPept    REFSEQ    embl    PDB))
!     {
!         $DBSOURCE{$_} = 1;
!     }
  }
  
--- 211,215 ----
      PhotoList    Gramene    WormBase    WormPep    Genew    ZFIN
      PeroxiBase    MaizeDB    TAIR    DrugBank    REBASE    HPA
!     swissprot    GenBank    GenPept    REFSEQ    embl    PDB);
  }