[Bioperl-guts-l] bioperl-live/Bio/SeqIO genbank.pm,1.143,1.144

[Christopher John Fields]

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

Modified Files:
	genbank.pm 
Log Message:
Bug 2062

Index: genbank.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SeqIO/genbank.pm,v
retrieving revision 1.143
retrieving revision 1.144
diff -C2 -d -r1.143 -r1.144
*** genbank.pm	27 Aug 2006 23:55:56 -0000	1.143
--- genbank.pm	29 Aug 2006 18:20:12 -0000	1.144
***************
*** 1435,1439 ****
  					# add to value with a space unless the value appears
  					# to be a sequence (translation for example)
! 					if(($value.$next) =~ /[^A-Za-z\"\-]/o) {
  						$value .= " ";
  					}
--- 1435,1441 ----
  					# add to value with a space unless the value appears
  					# to be a sequence (translation for example)
! 					# if(($value.$next) =~ /[^A-Za-z\"\-]/o) {
! 					# changed to explicitly look for translation tag - cjf 06/8/29
! 					if ($qualifier ne 'translation') {
  						$value .= " ";
  					}