[Bioperl-l] patch to FeatureIO.pm for tied interface

[Cook, Malcolm]

Hi Hilmar,

Nope - I never did have an account - at least that I knew of.  

I made the request once I think but it never went through the right
channels.  

I have a few other patches in the wings, a Bio::SeqIO::strider.pm
module, and a script or two for contrib, that I'll submit if and when I
get privs....  Also, putting some tests in on FeatureIO that exercise
the tied hash would probably be a good idea.... hmmm.	

Cheers,

Malcolm


-----Original Message-----
From: Hilmar Lapp [mailto:hlapp at gmx.net] 
Sent: Friday, April 01, 2005 2:55 AM
To: Cook, Malcolm
Cc: bioperl-l at portal.open-bio.org; chris dagdigian
Subject: Re: [Bioperl-l] patch to FeatureIO.pm for tied interface



On Thursday, March 31, 2005, at 01:41  PM, Cook, Malcolm wrote:

> bioperlers,
>
> The following patch to bioperl-live makes up for what was probably a
> copy and paste error and lets FeatureIO work with tied handle
interface
> too.
>
> I would be happy to have write access to cvs repository for this and
> other such patches as discovered....

Sure, if Chris happens to read this?

Didn't you once have an account? Or did I only dream that ;)

	-hilmar

>
> Cheers,
>
> Malcolm Cook
>
>
> Index: FeatureIO.pm
> ===================================================================
> RCS file: /home/repository/bioperl/bioperl-live/Bio/FeatureIO.pm,v
> retrieving revision 1.8
> diff -c -r1.8 FeatureIO.pm
> *** FeatureIO.pm	18 Jan 2005 05:22:11 -0000	1.8
> --- FeatureIO.pm	31 Mar 2005 21:34:33 -0000
> ***************
> *** 507,526 ****
>
>   sub TIEHANDLE {
>       my ($class,$val) = @_;
> !     return bless {'seqio' => $val}, $class;
>   }
>
>   sub READLINE {
>     my $self = shift;
> !   return $self->{'seqio'}->next_seq() unless wantarray;
>     my (@list, $obj);
> !   push @list, $obj while $obj = $self->{'seqio'}->next_seq();
>     return @list;
>   }
>
>   sub PRINT {
>     my $self = shift;
> !   $self->{'seqio'}->write_seq(@_);
>   }
>
>   1;
> --- 507,526 ----
>
>   sub TIEHANDLE {
>       my ($class,$val) = @_;
> !     return bless {'featio' => $val}, $class;
>   }
>
>   sub READLINE {
>     my $self = shift;
> !   return $self->{'featio'}->next_feature() unless wantarray;
>     my (@list, $obj);
> !   push @list, $obj while $obj = $self->{'featio'}->next_feature();
>     return @list;
>   }
>
>   sub PRINT {
>     my $self = shift;
> !   $self->{'featio'}->write_feature(@_);
>   }
>
>   1;
>
> _______________________________________________
> Bioperl-l mailing list
> Bioperl-l at portal.open-bio.org
> http://portal.open-bio.org/mailman/listinfo/bioperl-l
>
>
-- 
-------------------------------------------------------------
Hilmar Lapp                            email: lapp at gnf.org
GNF, San Diego, Ca. 92121              phone: +1-858-812-1757
-------------------------------------------------------------