← Back to branch summary

~frank-cizmich/percona-toolkit/percona-toolkit

« back to all changes in this revision

Viewing changes to bin/pt-archiver

Merge fix-pqd-stats-bug-1249149

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-archiver
1804
1804
}
1805
1805
 
1806
1806
if ( PTDEBUG ) {
1807
 
   print '# ', $^X, ' ', $], "\n";
 
1807
   print STDERR '# ', $^X, ' ', $], "\n";
1808
1808
   if ( my $uname = `uname -a` ) {
1809
1809
      $uname =~ s/\s+/ /g;
1810
 
      print "# $uname\n";
 
1810
      print STDERR "# $uname\n";
1811
1811
   }
1812
 
   print '# Arguments: ',
 
1812
   print STDERR '# Arguments: ',
1813
1813
      join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
1814
1814
}
1815
1815