From 2e8d6a6aaba983b175696df9d2d807259924b5e5 Mon Sep 17 00:00:00 2001
From: cjfields <cjfields@bioperl.org>
Date: Wed, 30 Jul 2008 14:14:19 +0000
Subject: [PATCH] bug 2556: * patch courtesy of Roy Chaudhuri

svn path=/bioperl-live/trunk/; revision=14771
---
 Bio/Tools/Primer3.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Bio/Tools/Primer3.pm b/Bio/Tools/Primer3.pm
index 5cd166edc..65073e684 100755
--- a/Bio/Tools/Primer3.pm
+++ b/Bio/Tools/Primer3.pm
@@ -377,6 +377,10 @@ sub _separate {
 		next if (${$self->{'input_options'}}{$key}); # don't process it if it is an input key
 
 		my $location; # the number of the primer pair
+		elsif (uc($key) eq "SEQUENCE") {
+		    # Add seqobject if not present, since it is checked for by Bio::Tools::Primer3->next_primer()
+		    $self->{'seqobject'}=Bio::Seq->new(-seq=>$args{$key}) if not defined($self->{'seqobject'});
+		}
 		# names will have values like
 		# PRIMER_RIGHT_SEQUENCE, PRIMER_RIGHT_2_SEQUENCE, PRIMER_PRODUCT_SIZE, and
 		# PRIMER_PRODUCT_SIZE_3 hence we need to find and remove the number
-- 
2.11.4.GIT