Don't auto-vivify clustered_key hashref in PTDEBUG.

This commit is contained in:
Daniel Nichter
2012-08-15 16:24:19 -06:00
parent 69dcd1ff30
commit 3369a6c37d
5 changed files with 55 additions and 8 deletions

View File

@@ -148,8 +148,9 @@ sub get_duplicate_keys {
# Remove clustered duplicates.
my $clustered_key = $args{clustered_key} ? $keys{$args{clustered_key}}
: undef;
PTDEBUG && _d('clustered key:', $clustered_key->{name},
$clustered_key->{colnames});
PTDEBUG && _d('clustered key:',
$clustered_key ? ($clustered_key->{name}, $clustered_key->{colnames})
: 'none');
if ( $clustered_key
&& $args{clustered}
&& $args{tbl_info}->{engine}