From 0aa2ae9aa90a5d35fadbb5425f7efe27001a4652 Mon Sep 17 00:00:00 2001
From: David Sparks <daves@ca.sophos.com>
Date: Tue, 17 Oct 2000 08:00:24 -0700
Subject: [PATCH] Show the failed remote port, instead of the failing line
 number.

Subject: [PATCH 5.6.1 Debugger] More diagnostics
Message-Id: <5.0.0.25.0.20001017144037.02551e10@pop3>

p4raw-id: //depot/perl@7356
---
 lib/perl5db.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 5418b57..fb6d683 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -426,7 +426,7 @@ if ($notty) {
                                  PeerAddr => $remoteport,
                                  Proto    => 'tcp',
                                );
-    if (!$OUT) { die "Could not create socket to connect to remote host."; }
+    if (!$OUT) { die "Unable to connect to remote host: $remoteport\n"; }
     $IN = $OUT;
   }
   else {
-- 
2.7.4