2585
PTDEBUG && _d('Table exists; no privs to check');
2586
return 1 unless $args{all_privs};
2588
$sql = "SHOW FULL COLUMNS FROM $db_tbl";
2589
PTDEBUG && _d($sql);
2591
$row = $dbh->selectrow_hashref($sql);
2593
if ( $EVAL_ERROR ) {
2594
PTDEBUG && _d($EVAL_ERROR);
2597
if ( !scalar keys %$row ) {
2598
PTDEBUG && _d('Table has no columns:', Dumper($row));
2601
my $privs = $row->{privileges} || $row->{Privileges};
2603
$sql = "DELETE FROM $db_tbl LIMIT 0";
2604
PTDEBUG && _d($sql);
2608
my $can_delete = $EVAL_ERROR ? 0 : 1;
2610
PTDEBUG && _d('User privs on', $db_tbl, ':', $privs,
2611
($can_delete ? 'delete' : ''));
2613
if ( !($privs =~ m/select/ && $privs =~ m/insert/ && $privs =~ m/update/
2615
PTDEBUG && _d('User does not have all privs');
2619
PTDEBUG && _d('User has all privs');
2585
PTDEBUG && _d('Table', $db, $tbl, 'exists');
2623
2590
sub get_engine {