On Tue, Apr 21, 2009 at 10:24:10AM +0100, Paul LeoNerd Evans wrote:
> sub pull_int
> {
> my $self = shift;
> my $i = unpack( "N", $self->{buffer} );
> substr( $i, 0, 4 ) = "";
> return $i;
> }
Uh.. obviously, that's meant to be
substr( $self->{buffer}, 0, 4 ) = "";
/me unpacks more coffee into self...
--
Paul "LeoNerd" Evans
leon...@leonerd.org.uk | CPAN ID: PEVANS
srand($,=" ");print sort{rand>0.5}grep{0.8>rand}qw(another Just hacker of Perl)
signature.asc
Description: Digital signature
