From 017f95e532df45f2ae22060f38c3d5c97b10ea73 Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Fri, 23 Dec 2011 00:29:04 -0300
Subject: [PATCH] Removed indirect object syntax from OptionParser.pm

---
 lib/OptionParser.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/OptionParser.pm b/lib/OptionParser.pm
index 4b5fbef6..13b5f3a2 100644
--- a/lib/OptionParser.pm
+++ b/lib/OptionParser.pm
@@ -200,7 +200,7 @@ sub get_specs {
             %$attribs,
          };
       };
-      my $dsn_o = new OptionParser(
+      my $dsn_o = OptionParser->new(
          description       => 'DSN OPTIONS',
          head1             => 'DSN OPTIONS',
          dsn               => 0,         # XXX don't infinitely recurse!