diff --git a/bin/pt-slave-delay b/bin/pt-slave-delay
index 37a6f797..2825ae6b 100755
--- a/bin/pt-slave-delay
+++ b/bin/pt-slave-delay
@@ -2023,8 +2023,8 @@ my $oktorun = 1;
 sub main {
    @ARGV = @_;  # set global ARGV for this package
 
-   my $vp = new VersionParser();
-   $o     = new OptionParser();
+   my $vp = VersionParser->new();
+   $o     = OptionParser->new();
    $o->get_specs();
    $o->get_opts();
 
@@ -2087,13 +2087,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();
    }
 
@@ -2113,7 +2113,7 @@ sub main {
          # increasing wait time from 3 to 15 seconds.
          $o->set('ask-pass', 0);  # don't ask again
          my $tries = 10;
-         my $rt    = new Retry();
+         my $rt    = Retry->new();
          $rt->retry(
             tries        => $tries,
             retry_on_die => 1,