From 1732e7712a38fd99ca3ddafb79a0318b8f5ab404 Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Thu, 7 Nov 2013 17:47:10 -0800
Subject: [PATCH] Print OptionParser debug to STDERR.

---
 lib/OptionParser.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/OptionParser.pm b/lib/OptionParser.pm
index e49d44b9..6b087a4e 100644
--- a/lib/OptionParser.pm
+++ b/lib/OptionParser.pm
@@ -1342,12 +1342,12 @@ sub _d {
 # certainly include in all tools, but otherwise there's no real reason to put
 # it here.
 if ( PTDEBUG ) {
-   print '# ', $^X, ' ', $], "\n";
+   print STDERR '# ', $^X, ' ', $], "\n";
    if ( my $uname = `uname -a` ) {
       $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";
 }