Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/LIB/DBI.pm – Rev 6798 → 6887



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

Rev 6798	Rev 6887
Line 462...	Line 462...
462	`#`	462	`#`
463	`sub fetchrow_array`	463	`sub fetchrow_array`
464	`{`	464	`{`
465	`my $self = shift;`	465	`my $self = shift;`
466	`my $rowref = $self->{ROWS};`	466	`my $rowref = $self->{ROWS};`
467	`my $data = pop @$rowref;`	467	`my $data = shift @$rowref;`
468		468
469	`return () unless ( $data );`	469	`return () unless ( $data );`
470	`$data =~ s~\s+$~~;`	470	`$data =~ s~\s+$~~;`
471		471
472	`my @row;`	472	`my @row;`