← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pqd-group-by-bug-924950

« back to all changes in this revision

Viewing changes to bin/pt-archiver

  • Committer: Daniel Nichter
  • Date: 2012-06-11 19:48:00 UTC
  • Revision ID: daniel@percona.com-20120611194800-w4lalf2ypwv16fu2
Update all modules in all tools.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-archiver
2146
2146
 
2147
2147
   my @asc_cols = @{$tbl_struct->{keys}->{$index}->{cols}};
2148
2148
   if ( $args{asc_first} ) {
 
2149
      PTDEBUG && _d('Ascending only first column');
2149
2150
      @asc_cols = $asc_cols[0];
2150
 
      PTDEBUG && _d('Ascending only first column');
 
2151
   }
 
2152
   elsif ( my $n = $args{n_index_cols} ) {
 
2153
      $n = scalar @asc_cols if $n > @asc_cols;
 
2154
      PTDEBUG && _d('Ascending only first', $n, 'columns');
 
2155
      @asc_cols = @asc_cols[0..($n-1)];
2151
2156
   }
2152
2157
   PTDEBUG && _d('Will ascend columns', join(', ', @asc_cols));
2153
2158