[DAS] Bug (and fix) for Bio::Das

[Vamsi Veeramachaneni]

Hi,

There is a bug in Bio::Das.pm (v 1.36 2004/06/21 03:11:37 lstein)

Script which shows the error:

--------------------------------
use Bio::Das;
use strict;

my $das = Bio::Das->new(-source =>
'http://servlet.sanger.ac.uk:8080/das/',
			-dsn => 'homo_sapiens_core_25_34e');

my $segment = $das->segment("21");
my @types = $segment->types;

--------------------------------

This dies with: "Not an ARRAY reference at Bio/Das.pm line 279"

line 279 is: my @dsn = ref $dsn ? @$dsn : $dsn;

At this point in the execution of my script $dsn is a Bio::Das::DSN
object, so the ref operator returns true. But $dsn is not an array
reference hence the error.

Suggested modification (works for me):

line 279 to: my @dsn = (ref($dsn) eq 'ARRAYREF') ? @$dsn : $dsn;

Regards,
Vamsi

--
Specialist - Bioinformatics
Strand Genomics Pvt Ltd