From f5ff076c7c570e0b6f062bcfffd9f1e638dbfa52 Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Fri, 23 Dec 2011 12:06:14 -0300
Subject: [PATCH] Removed indirect object syntax from the modulino portion of
 pt-config-diff

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

diff --git a/bin/pt-config-diff b/bin/pt-config-diff
index 176d9748..0faa19fa 100755
--- a/bin/pt-config-diff
+++ b/bin/pt-config-diff
@@ -2749,7 +2749,7 @@ sub main {
    # ########################################################################
    # Get configuration information.
    # ########################################################################
-   my $o = new OptionParser();
+   my $o = OptionParser->new();
    $o->get_specs();
    $o->get_opts();
 
@@ -2767,8 +2767,8 @@ sub main {
    # #########################################################################
    # Make common modules.
    # #########################################################################
-   my $trp         = new TextResultSetParser();
-   my $config_cmp  = new MySQLConfigComparer(
+   my $trp         = TextResultSetParser->new();
+   my $config_cmp  = MySQLConfigComparer->new(
       ignore_variables => $o->get('ignore-variables'),
    );
    my %common_modules = (
@@ -2788,7 +2788,7 @@ sub main {
    foreach my $config_src ( @ARGV ) {
       if ( -f $config_src ) {
          MKDEBUG && _d('Config source', $config_src, 'is a file');
-         push @configs, new MySQLConfig(
+         push @configs, MySQLConfig->new(
             file => $config_src,
             %common_modules,
          );
@@ -2801,7 +2801,7 @@ sub main {
          $dp->fill_in_dsn($dbh, $dsn);
          $last_dsn = $dsn;
 
-         push @configs, new MySQLConfig(
+         push @configs, MySQLConfig->new(
             dbh => $dbh,
             %common_modules,
          );
@@ -2816,13 +2816,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();
    }
 
@@ -2832,7 +2832,7 @@ sub main {
    my $report;
    my $truncate_callback;
    if ( $o->get('report') ) {
-      $report = new ReportFormatter(
+      $report = ReportFormatter->new(
          line_prefix => '',
          line_width  => $o->get('report-width'),
       );