Debugger prints lines to the remote port when it forks and openes a new port

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 87310a6..809f80f 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -6137,7 +6137,7 @@ sub connect_remoteport {
 }
 
 sub socket_get_fork_TTY {
-    $tty = $IN = $OUT = connect_remoteport();
+    $tty = $LINEINFO = $IN = $OUT = connect_remoteport();
 
     # Do I need to worry about setting $term?