Handle empty reference sequence description more gracefully

bioperl · Oct 13, 2011 · c8fe212 · c8fe212
1 parent 22a1b41
commit c8fe212
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Bio/Seq/SimulatedRead.pm b/Bio/Seq/SimulatedRead.pm
@@ -248,7 +248,7 @@ sub _create_desc {
    }
    # Description of the original sequence
    my $ref_desc = $self->reference->desc;
-   if (defined $self->reference->desc) {
+   if ( (defined $self->reference->desc) && ($self->reference->desc !~ m/^\s*$/) ) {
       $ref_desc =~ s/"/\\"/g; # escape double-quotes to \"
       $desc_str .= 'description="'.$ref_desc.'" ';
    }