From: David Sparks <daves@ca.sophos.com>
Date: Tue, 17 Oct 2000 15:00:24 +0000 (-0700)
Subject: Show the failed remote port, instead of the failing line number.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0aa2ae9aa90a5d35fadbb5425f7efe27001a4652;p=p5sagit%2Fp5-mst-13.2.git

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
---

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 {