From 1d555c28e3eaf16d51fafa6264d7f2d7a61beb6a Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Fri, 23 Dec 2011 17:52:30 -0300
Subject: [PATCH] Removed indirect object syntax from the modulino portion of
 pt-log-player

---
 bin/pt-log-player | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/bin/pt-log-player b/bin/pt-log-player
index 3a2afad8..6c7c5f9c 100755
--- a/bin/pt-log-player
+++ b/bin/pt-log-player
@@ -2565,7 +2565,7 @@ sub main {
    # #########################################################################
    # Get configuration information.
    # #########################################################################
-   $o = new OptionParser();
+   $o = OptionParser->new();
    $o->get_specs();
    $o->get_opts();
 
@@ -2607,7 +2607,7 @@ sub main {
       # We're not daemoninzing, it just handles PID stuff.  Keep $daemon
       # in the the scope of main() because when it's destroyed it automatically
       # removes the PID file.
-      $daemon = new Daemon(o=>$o);
+      $daemon = Daemon->new(o=>$o);
       $daemon->make_PID_file();
    }
 
@@ -2647,11 +2647,11 @@ sub main {
          push @callbacks, $sub;
       }
 
-      my $parser = $o->get('type') eq 'slowlog' ? new SlowLogParser()
-                 : $o->get('type') eq 'binlog'  ? new BinaryLogParser()
-                 : $o->get('type') eq 'genlog'  ? new GeneralLogParser()
+      my $parser = $o->get('type') eq 'slowlog' ? SlowLogParser->new()
+                 : $o->get('type') eq 'binlog'  ? BinaryLogParser->new()
+                 : $o->get('type') eq 'genlog'  ? GeneralLogParser->new()
                  : die("Unknown type " . $o->get('type'));
-      my $ls = new LogSplitter(
+      my $ls = LogSplitter->new(
          attribute      => $split,
          split_random   => $o->get('split-random'),
          base_dir       => $base_dir,