← Back to branch summary

~percona-toolkit-dev/percona-toolkit/use-local-mysql-versions-for-testing

« back to all changes in this revision

Viewing changes to bin/pt-upgrade

Merge fix-pqd-stats-bug-1249149

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-upgrade
2396
2396
}
2397
2397
 
2398
2398
if ( PTDEBUG ) {
2399
 
   print '# ', $^X, ' ', $], "\n";
 
2399
   print STDERR '# ', $^X, ' ', $], "\n";
2400
2400
   if ( my $uname = `uname -a` ) {
2401
2401
      $uname =~ s/\s+/ /g;
2402
 
      print "# $uname\n";
 
2402
      print STDERR "# $uname\n";
2403
2403
   }
2404
 
   print '# Arguments: ',
 
2404
   print STDERR '# Arguments: ',
2405
2405
      join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
2406
2406
}
2407
2407