From 2c9a0e8cbde30a73ad01780ff86fd253e84c705f Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Mon, 26 Dec 2011 12:03:21 -0300
Subject: [PATCH] Removed indirect object syntax from the modulino portion of
 pt-variable-advisor

---
 bin/pt-variable-advisor | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/bin/pt-variable-advisor b/bin/pt-variable-advisor
index d294fc8c..32cf3bd3 100755
--- a/bin/pt-variable-advisor
+++ b/bin/pt-variable-advisor
@@ -2831,7 +2831,7 @@ sub main {
    # ########################################################################
    # Get configuration information.
    # ########################################################################
-   my $o = new OptionParser();
+   my $o = OptionParser->new();
    $o->get_specs();
    $o->get_opts();
 
@@ -2863,9 +2863,9 @@ sub main {
    # #########################################################################
    # Load rules from POD and plugins.
    # #########################################################################
-   my $p   = new PodParser();
-   my $var = new VariableAdvisorRules(PodParser => $p);
-   my $adv = new Advisor(
+   my $p   = PodParser->new();
+   my $var = VariableAdvisorRules->new(PodParser => $p);
+   my $adv = Advisor->new(
       match_type   => "bool",
       ignore_rules => $o->get('ignore-rules'),
    );
@@ -2882,8 +2882,8 @@ sub main {
    # #########################################################################
    # Make common modules.
    # #########################################################################
-   my $vp  = new VersionParser();
-   my $trp = new TextResultSetParser();
+   my $vp  = VersionParser->new();
+   my $trp = TextResultSetParser->new();
    my %common_modules = (
       OptionParser        => $o,
       DSNParser           => $dp,
@@ -2913,13 +2913,13 @@ sub main {
    # ########################################################################
    my $daemon;
    if ( $o->get('daemonize') ) {
-      $daemon = new Daemon(o=>$o);
+      $daemon = Daemon->new(o=>$o);
       $daemon->daemonize();
       MKDEBUG && _d('I am a daemon now');
    }
    elsif ( $o->get('pid') ) {
       # We're not daemoninzing, it just handles PID stuff.
-      $daemon = new Daemon(o=>$o);
+      $daemon = Daemon->new(o=>$o);
       $daemon->make_PID_file();
    }