← Back to branch summary

~percona-core/percona-toolkit/release-2.2.8-v2

« back to all changes in this revision

Viewing changes to bin/pt-index-usage

Merge fix-pqd-stats-bug-1249149

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-index-usage
1731
1731
}
1732
1732
 
1733
1733
if ( PTDEBUG ) {
1734
 
   print '# ', $^X, ' ', $], "\n";
 
1734
   print STDERR '# ', $^X, ' ', $], "\n";
1735
1735
   if ( my $uname = `uname -a` ) {
1736
1736
      $uname =~ s/\s+/ /g;
1737
 
      print "# $uname\n";
 
1737
      print STDERR "# $uname\n";
1738
1738
   }
1739
 
   print '# Arguments: ',
 
1739
   print STDERR '# Arguments: ',
1740
1740
      join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
1741
1741
}
1742
1742