Subversion Repositories DevTools

(root)/core_devl/trunk/UTILS/DBI-JDBC/src/DBI.pm – Rev 4544 → 6887



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

Rev 4544	Rev 6887
Line 467...	Line 467...
467	`#`	467	`#`
468	`sub fetchrow_array`	468	`sub fetchrow_array`
469	`{`	469	`{`
470	`my $self = shift;`	470	`my $self = shift;`
471	`my $rowref = $self->{ROWS};`	471	`my $rowref = $self->{ROWS};`
472	`my $data = pop @$rowref;`	472	`my $data = shift @$rowref;`
473		473
474	`return () unless ( $data );`	474	`return () unless ( $data );`
475	`$data =~ s~\s+$~~;`	475	`$data =~ s~\s+$~~;`
476		476
477	`my @row;`	477	`my @row;`