avoid uninitialized variable warnings

bioperl · May 2, 2012 · ad19e73 · ad19e73
1 parent bc20c7e
commit ad19e73
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Bio/DB/SeqFeature/Store/DBI/mysql.pm b/Bio/DB/SeqFeature/Store/DBI/mysql.pm
@@ -1061,8 +1061,8 @@ sub _types_sql {
       ($primary_tag,$source_tag) = split ':',$type,2;
     }
 
-    if (length $source_tag) {
-      if (length($primary_tag)) {
+    if (defined $source_tag && length $source_tag) {
+      if (defined $primary_tag && length($primary_tag)) {
         push @matches,"tl.tag=?";
         push @args,"$primary_tag:$source_tag";
       }