← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pt-duplicate-key-checker-docs-dont-explain-how-Size-Duplicate-Indexes-is-calculated-1415646

« back to all changes in this revision

Viewing changes to bin/pt-query-digest

Merge fix-pqd-stats-bug-1249149

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-query-digest
2399
2399
}
2400
2400
 
2401
2401
if ( PTDEBUG ) {
2402
 
   print '# ', $^X, ' ', $], "\n";
 
2402
   print STDERR '# ', $^X, ' ', $], "\n";
2403
2403
   if ( my $uname = `uname -a` ) {
2404
2404
      $uname =~ s/\s+/ /g;
2405
 
      print "# $uname\n";
 
2405
      print STDERR "# $uname\n";
2406
2406
   }
2407
 
   print '# Arguments: ',
 
2407
   print STDERR '# Arguments: ',
2408
2408
      join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
2409
2409
}
2410
2410
 
13730
13730
                        );
13731
13731
                        $stats{$stat} = 0;  # Reset for next iteration.
13732
13732
                     }
13733
 
                     print "\n" . $report->get_report();
 
13733
                     print STDERR "\n" . $report->get_report();
13734
13734
                  }
13735
13735
                  else {
13736
 
                     print "\n# No statistics values.\n";
 
13736
                     print STDERR "\n# No statistics values.\n";
13737
13737
                  }
13738
13738
               }
13739
13739