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 (file)
--- 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 {