From 87b2474f7855d8247be3557f8c39d1a4b3226461 Mon Sep 17 00:00:00 2001
From: cjfields <cjfields@bioperl.org>
Date: Sun, 25 Oct 2009 16:59:40 +0000
Subject: [PATCH] [bug 2843] * check phase value prior to calling its value
 (Cass Johnston)

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

diff --git a/Bio/FeatureIO/gff.pm b/Bio/FeatureIO/gff.pm
index d86025e..cb6a565 100644
--- a/Bio/FeatureIO/gff.pm
+++ b/Bio/FeatureIO/gff.pm
@@ -900,7 +900,7 @@ sub _write_feature_3 {
   my $max    = $feature->end     || '.';
   my $strand = $feature->strand == 1 ? '+' : $feature->strand == -1 ? '-' : '.';
   my $score  = defined($feature->score) ? (ref($feature->score) ? $feature->score->value : $feature->score) : undef;
-  my $phase  = $feature->phase->value;
+  my $phase  = defined($feature->phase) ? (ref($feature->phase) ? $feature->phase->value : $feature->phase) : undef;
 
   my @attr;
   if(my @v = ($feature->get_Annotations('Name'))){