From cc7458e5d1b2aff058a8481de8a405f965c1d6e3 Mon Sep 17 00:00:00 2001
From: Chris Fields <cjfields@illinois.edu>
Date: Thu, 10 Jul 2014 16:10:20 -0400
Subject: [PATCH] fix a warning

---
 Bio/Location/Split.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bio/Location/Split.pm b/Bio/Location/Split.pm
index b16c269e8..25d73ef8d 100644
--- a/Bio/Location/Split.pm
+++ b/Bio/Location/Split.pm
@@ -620,7 +620,7 @@ sub length {
     # Mixed strand values means transplicing (where exons can even
     # be in different chromosomes), so in that case only give the sum
     # of the lengths of the individual segments
-    if ($self->guide_strand == undef) {
+    if (! defined $self->guide_strand) {
         for my $loc ( $self->sub_Location(0) ) {
             $length += abs($loc->end - $loc->start) + 1
         }
-- 
2.11.4.GIT