Subversion Repositories DevTools

(root)/dpkg_blat/trunk/src/blat/lib/DBI.pm – Rev 6776 → 7387



#
sub fetchrow_array
{
    my $self = shift;
    my $rowref = $self->{ROWS};
    my $data = shift @$rowref;
 
    return () unless ( $data );
    $data =~ s~\s+$~~;
 
    my @row;

Rev 6776	Rev 7387
Line 439...	Line 439...
439	`#`	439	`#`
440	`sub fetchrow_array`	440	`sub fetchrow_array`
441	`{`	441	`{`
442	`my $self = shift;`	442	`my $self = shift;`
443	`my $rowref = $self->{ROWS};`	443	`my $rowref = $self->{ROWS};`
444	`my $data = pop @$rowref;`	444	`my $data = shift @$rowref;`
445		445
446	`return () unless ( $data );`	446	`return () unless ( $data );`
447	`$data =~ s~\s+$~~;`	447	`$data =~ s~\s+$~~;`
448		448
449	`my @row;`	449	`my @row;`