From 10981adfba5020d0b3092a96b334a74bd4dd1cd7 Mon Sep 17 00:00:00 2001
From: cjfields <cjfields@bioperl.org>
Date: Tue, 15 Jan 2008 21:56:48 +0000
Subject: [PATCH] Bug 2426

svn path=/bioperl-live/trunk/; revision=14439
---
 Bio/Tools/Primer3.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bio/Tools/Primer3.pm b/Bio/Tools/Primer3.pm
index 05020991c..5cd166edc 100755
--- a/Bio/Tools/Primer3.pm
+++ b/Bio/Tools/Primer3.pm
@@ -384,7 +384,7 @@ sub _separate {
 		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}
-- 
2.11.4.GIT