[Bioperl-l] Error using Bio::DB::SwissProt

[Susan J. Miller]

When I run this small script:
---------------------------------------
#!/usr/local/bin/perl -w

use Bio::DB::SwissProt;

$sp = Bio::DB::SwissProt->new();

$seqObj = $sp->get_Seq_by_acc('Q10654');
print $seqObj->display_id() . "\n";
---------------------------------------

I see the error message:

Use of uninitialized value in substitution (s///) at 
/usr/local/lib/perl5/site_perl/5.6.0/Bio/SeqIO/swiss.pm line 855, 
<STREAM> line 30.

---------------------------------------

The get_Seq_by_acc works, but I would like to present this to a class 
and not have the error message show up.  Any suggestions?

-- 
Thanks,
-susan

Susan J. Miller
Biotechnology Computing Facility
Arizona Research Laboratories
Bio West 228
University of Arizona
Tucson, AZ  85721
(520) 626-2597