[Bioperl-l] Tests - Can other people report make test results:

[Jason Stajich]

I >just< manually synced the anonymous code.

But I think there is an issue with $type without () in 5.005.

-jason
On Tue, 8 Jan 2002, Ewan Birney wrote:

>
> Weird. Looks ok from here.
>
>
> Are you working from cvs.bioperl.org (read only) or read/write?
>
>
> Does your function look like:
>
>
>
> sub frac_identical {
>    my ($self, $type,$value) = @_;
>
>    $type = lc $type if defined $type;
>    $type = 'total' if( ! defined $type ||
> 		       $type !~ /query|hit|total/);
>    my $previous = $self->{'_frac_identical'}->{$type};
>    if( defined $value || ! defined $previous ) {
>        $value = $previous = '' unless defined $value;
>        if( $type eq 'hit' || $type eq 'query' ) {
> 	   $self->$type->frac_identical( $value);
>        }
>        $self->{'_frac_identical'}->{$type} = $value;
>    }
>    return $previous;
>
> }
>
>
>
> Perhaps Perl 5.00503 needs () around (defined $value)
>
>
> Ideas anyone?
>
>
>
> -----------------------------------------------------------------
> Ewan Birney. Mobile: +44 (0)7970 151230, Work: +44 1223 494420
> <birney@ebi.ac.uk>.
> -----------------------------------------------------------------
>
> _______________________________________________
> Bioperl-l mailing list
> Bioperl-l@bioperl.org
> http://bioperl.org/mailman/listinfo/bioperl-l
>

-- 
Jason Stajich
Duke University
jason@cgt.mc.duke.edu