[Bioperl-guts-l] [14512] bioperl-live/trunk/Bio/SeqIO/swiss.pm: DOI can include

[Heikki Lehvaslaiho]

Revision: 14512
Author:   heikki
Date:     2008-02-17 06:36:20 -0500 (Sun, 17 Feb 2008)

Log Message:
-----------
DOI can include 

Modified Paths:
--------------
    bioperl-live/trunk/Bio/SeqIO/swiss.pm

Modified: bioperl-live/trunk/Bio/SeqIO/swiss.pm
===================================================================
--- bioperl-live/trunk/Bio/SeqIO/swiss.pm	2008-02-17 11:29:31 UTC (rev 14511)
+++ bioperl-live/trunk/Bio/SeqIO/swiss.pm	2008-02-17 11:36:20 UTC (rev 14512)
@@ -951,7 +951,7 @@
            my $line = $1;
            $med = $1 if $line =~ /MEDLINE=(\d+);/;
            $pubmed = $1 if $line =~ /PubMed=(\d+);/;
-           $doi = $1 if $line =~ /DOI=([^;]+);/;
+           $doi = $1 if $line =~ /DOI=(.+);/;
        } elsif ( /^RA\s{3}(.*)/ ) { 
            $au .= $au ? " $1" : $1;
        } elsif ( /^RG\s{3}(.*)/ ) {