[Bioperl-guts-l] [14439] bioperl-live/trunk/Bio/Tools/Primer3.pm: Bug 2426

[Christopher John Fields]

Revision: 14439
Author:   cjfields
Date:     2008-01-15 16:56:48 -0500 (Tue, 15 Jan 2008)

Log Message:
-----------
Bug 2426

Modified Paths:
--------------
    bioperl-live/trunk/Bio/Tools/Primer3.pm

Modified: bioperl-live/trunk/Bio/Tools/Primer3.pm
===================================================================
--- bioperl-live/trunk/Bio/Tools/Primer3.pm	2008-01-15 19:25:33 UTC (rev 14438)
+++ bioperl-live/trunk/Bio/Tools/Primer3.pm	2008-01-15 21:56:48 UTC (rev 14439)
@@ -384,7 +384,7 @@
 		if ($tempkey =~ s/_(\d+)//) {
 			$location=$1;
 			if ($location > $maxlocation) {$maxlocation = $location}
-		} elsif ( $tempkey =~ /PRIMER_(RIGHT|LEFT)/ ) {
+		} elsif ( $tempkey =~ /PRIMER_(RIGHT|LEFT)_SEQUENCE/ ) {
 			# first primers reported without a number, therefore set $location to 0
 			$location = 0;
 			if ($location > $maxlocation) {$maxlocation = $location}