diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2009-04-08 09:54:10 +0000 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2009-04-08 09:54:10 +0000 |
| commit | ed9063df56d29c32fd7e7d61787701beb51c917d (patch) | |
| tree | 7767f57cb393f04daf7c30d315494d9eecaec545 | |
| parent | 78e86448c1ecc0af444ea5cfc245fa28a3bebf1c (diff) | |
| download | ATCD-ed9063df56d29c32fd7e7d61787701beb51c917d.tar.gz | |
| -rw-r--r-- | ACE/bin/PerlACE/ProcessVX_Unix.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ACE/bin/PerlACE/ProcessVX_Unix.pm b/ACE/bin/PerlACE/ProcessVX_Unix.pm index c3cdb00e21a..494a47b51f0 100644 --- a/ACE/bin/PerlACE/ProcessVX_Unix.pm +++ b/ACE/bin/PerlACE/ProcessVX_Unix.pm @@ -262,6 +262,9 @@ sub Spawn () if (!defined $telnet_port) { $telnet_port = 23; } + if (defined $ENV{'ACE_TEST_VERBOSE'}) { + print "Opening telnet connection <" . $telnet_host . ":". $telnet_port . ">\n"; + } my $t = new Net::Telnet(Timeout => 600, Errmode => 'return', Host => $telnet_host, Port => $telnet_port); if (!defined $t) { die "ERROR: Telnet failed to <" . $telnet_host . ":". $telnet_port . ">"; |