[Bioperl-l] Two Bio::DB::Flat swiss adaptors

[Chris Fields]

Just curious, but why are there two Bio::DB::Flat::BDB swissprot  
adaptors (Bio::DB::Flat::BDB::swiss, Bio::DB::Flat::BDB::swissprot)?   
The only significant difference between the two is the following line  
in seq_to_ids():

Bio::DB::Flat::BDB::swiss : $ids{VERSION}  = "$accession.$version"    
if defined $accession && defined $version;
Bio::DB::Flat::BDB::swiss : $ids{VERSION}  = "$accession.version"    
if defined $accession && defined $version;

The second is missing '$' in version, which I'm guessing is a bug?

chris