From bee4b460530bb2a72ada333b929a58f669d30a06 Mon Sep 17 00:00:00 2001
From: Josh ben Jore <jjore@cpan.org>
Date: Sat, 10 Jul 2010 07:50:41 -0700
Subject: [PATCH] Remove indirect object notation from debugger

---
 lib/perl5db.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index cdbee15..ffdd737 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1702,7 +1702,7 @@ and then tries to connect the input and output filehandles to it.
         # If RemotePort was defined in the options, connect input and output
         # to the socket.
         require IO::Socket;
-        $OUT = new IO::Socket::INET(
+        $OUT = IO::Socket::INET->new(
             Timeout  => '10',
             PeerAddr => $remoteport,
             Proto    => 'tcp',
@@ -6025,7 +6025,7 @@ sub setterm {
             my $rv = $ENV{PERLDB_NOTTY} || "$ENV{HOME}/.perldbtty$$";
 
             # Rendezvous and get the filehandles.
-            my $term_rv = new Term::Rendezvous $rv;
+            my $term_rv = Term::Rendezvous->new( $rv );
             $IN  = $term_rv->IN;
             $OUT = $term_rv->OUT;
         } ## end else [ if ($tty)
@@ -6038,12 +6038,12 @@ sub setterm {
 
     # If we shouldn't use Term::ReadLine, don't.
     if ( !$rl ) {
-        $term = new Term::ReadLine::Stub 'perldb', $IN, $OUT;
+        $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT );
     }
 
     # We're using Term::ReadLine. Get all the attributes for this terminal.
     else {
-        $term = new Term::ReadLine 'perldb', $IN, $OUT;
+        $term = Term::ReadLine->new( 'perldb', $IN, $OUT );
 
         $rl_attribs = $term->Attribs;
         $rl_attribs->{basic_word_break_characters} .= '-:+/*,[])}'
@@ -6152,10 +6152,10 @@ qq[3>&1 xterm -title "Daughter Perl debugger $pids $name" -e sh -c 'tty 1>&3;\
     if ($tty ne '' && !defined $term) {
         eval { require Term::ReadLine } or die $@;
         if ( !$rl ) {
-            $term = new Term::ReadLine::Stub 'perldb', $IN, $OUT;
+            $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT );
         }
         else {
-            $term = new Term::ReadLine 'perldb', $IN, $OUT;
+            $term = Term::ReadLine->new( 'perldb', $IN, $OUT );
         }
     }
     # There's our new TTY.
-- 
2.7.4