percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-22 19:04:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

Print OptionParser debug to STDERR.

Browse Source
This commit is contained in:
Daniel Nichter
2013-11-07 17:47:10 -08:00
parent 805d07deb7
commit 1732e7712a
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/OptionParser.pm
View File

@@ -1342,12 +1342,12 @@ sub _d {
# certainly include in all tools, but otherwise there's no real reason to put # certainly include in all tools, but otherwise there's no real reason to put
# it here. # it here.
if ( PTDEBUG ) { if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n"; print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) { if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g; $uname =~ s/\s+/ /g;
print "# $uname\n"; print STDERR "# $uname\n";
} }
print '# Arguments: ', print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n"; join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
} }