getting this error while executing the script : *** glibc detected *** <path>perl: double free or corruption (!prev): 0x0846c348 ***
any help will be great. Thanks in advance.
use strict;
use strict;
use DBI;
my $dbh = DBI->connect("dbi:DB2:$dbname",'','',{PrintError => 0});
my $sth = $dbh->prepare("call sp.tbspace");
$sth->execute;
do{
while (my $row = $sth->fetchrow_arrayref()) {
my $lineStr = @$row;
push @dcpu_all_array, "$lineStr\n";
}
}while ($sth->{db2_more_results});
$sth->finish;
when comment the $sth->{db2_more_results} error doesn't come.