From 264fdbd271e3c089b4ce46d82223e0cd10b8364a Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Fri, 23 Dec 2011 17:31:38 -0300
Subject: [PATCH] Removed indirect object syntax from the modulino portion of
 pt-fk-error-logger

---
 bin/pt-fk-error-logger | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/pt-fk-error-logger b/bin/pt-fk-error-logger
index ac1c4c38..c6073aa8 100755
--- a/bin/pt-fk-error-logger
+++ b/bin/pt-fk-error-logger
@@ -1933,7 +1933,7 @@ sub main {
    # ########################################################################
    # Get configuration information.
    # ########################################################################
-   my $o = new OptionParser();
+   my $o = OptionParser->new();
    $o->get_specs();
    $o->get_opts();
 
@@ -1969,7 +1969,7 @@ sub main {
    # ########################################################################
    # Make common modules.
    # ########################################################################
-   my $q = new Quoter();
+   my $q = Quoter->new();
    my %modules = (
       o  => $o,
       dp => $dp,
@@ -2007,13 +2007,13 @@ sub main {
    # Daemonize only after (potentially) asking for passwords for --ask-pass.
    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();
    }