diff options
| author | David Sparks <daves@ca.sophos.com> | 2000-10-17 08:00:24 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-17 23:29:41 +0000 |
| commit | 0aa2ae9aa90a5d35fadbb5425f7efe27001a4652 (patch) | |
| tree | c0bf1b2c585fa67528668990a5141e5c950f41ce /lib/perl5db.pl | |
| parent | 4b3603a49f6eac34b6cdb154bf3bd8a8f5240085 (diff) | |
| download | perl-0aa2ae9aa90a5d35fadbb5425f7efe27001a4652.tar.gz | |
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
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 5418b5710d..fb6d683f7d 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 { |