Commit 84fcb108 authored by Fiona Cunningham's avatar Fiona Cunningham
Browse files

hack to stop merged adaptor use crashing ldview

parent 333eb126
......@@ -152,7 +152,7 @@ use vars '$AUTOLOAD';
sub AUTOLOAD {
my ($self,@args) = @_;
my @array_return=();
my $ref_return = undef;
$AUTOLOAD =~ /^.*::(\w+)+$/ ;
my $sub = $1;
......@@ -161,7 +161,11 @@ sub AUTOLOAD {
my $ref;
if($adaptor->can($sub)){
$ref = $adaptor->$sub(@args);
push @array_return, @{$ref};
if( ref($ref) eq 'ARRAY' ) {
push @array_return, @{$ref};
} else {
push @array_return, $ref;
}
}
else{ # end of can
warn("In Merged Adaptor $adaptor cannot call sub $sub");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment