[Bioperl-guts-l] bioperl-live/Bio/DB/Query GenBank.pm,1.17,1.18

[Senduran Balasubramaniam]

Update of /home/repository/bioperl/bioperl-live/Bio/DB/Query
In directory dev.open-bio.org:/tmp/cvs-serv16458/DB/Query

Modified Files:
	GenBank.pm 
Log Message:
use $self->warn, not warn, for GenBank warnings

Index: GenBank.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/Query/GenBank.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** GenBank.pm	4 Jul 2006 22:23:15 -0000	1.17
--- GenBank.pm	18 Aug 2006 14:59:32 -0000	1.18
***************
*** 277,281 ****
    my $content = shift;
    if (my ($warning) = $content =~ m!<ErrorList>(.+)</ErrorList>!s) {
!     warn "Warning(s) from GenBank: $warning\n";
    }
    if (my ($error) = $content =~ /<OutputMessage>([^<]+)/) {
--- 277,281 ----
    my $content = shift;
    if (my ($warning) = $content =~ m!<ErrorList>(.+)</ErrorList>!s) {
!     $self->warn("Warning(s) from GenBank: $warning\n");
    }
    if (my ($error) = $content =~ /<OutputMessage>([^<]+)/) {