[Bioperl-guts-l] bioperl commit

[Jason Stajich]

jason
Thu Jan  1 20:15:28 EST 2004
Update of /home/repository/bioperl/bioperl-live/Bio/SeqIO
In directory pub.open-bio.org:/tmp/cvs-serv22906/Bio/SeqIO

Modified Files:
	embl.pm 
Log Message:
remove debugging

bioperl-live/Bio/SeqIO embl.pm,1.70,1.71
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SeqIO/embl.pm,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -r1.70 -r1.71
--- /home/repository/bioperl/bioperl-live/Bio/SeqIO/embl.pm	2004/01/02 01:03:23	1.70
+++ /home/repository/bioperl/bioperl-live/Bio/SeqIO/embl.pm	2004/01/02 01:15:28	1.71
@@ -225,7 +225,6 @@
    BEFORE_FEATURE_TABLE :
    until( !defined $buffer ) {
        $_ = $buffer;
-       warn($_);
        # exit if we hit Sequence and there is no feature table
        if( /^SQ/ ) {
 	   $self->_pushback($_);
@@ -360,7 +359,6 @@
    }
    $seqc = "";	       
    while( defined ($_ = $self->_readline) ) {
-       warn($_);
        /^\/\// && last;
        $_ = uc($_);
        s/[^A-Za-z]//g;