Skip to content
Snippets Groups Projects
Commit b52c48f3 authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

connect script: Improve console output

parent 82fa7d01
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 3 deletions
hp2101nw_connect.pl
+ 2
− 3
View file @ b52c48f3
...@@ -360,7 +360,7 @@ sub device_detect () { ...@@ -360,7 +360,7 @@ sub device_detect () {
my $request = SBSU_create_buffer ($SBSU_STATUS); my $request = SBSU_create_buffer ($SBSU_STATUS);
my $result = {}; my $result = {};
my $loop = 0; my $loop = 0;
debug "Sending device detection request (UDP broadcast on port 34447)\n"; debug "Sending device detection request (UDP broadcast on port 34447)";
# I can't add the broadcast address to the IO::Socket::INET, because # I can't add the broadcast address to the IO::Socket::INET, because
# the response will not be from the broadcast address and thus it # the response will not be from the broadcast address and thus it
# would not be detected. Rather, I'll have to add the PeerAddress # would not be detected. Rather, I'll have to add the PeerAddress
...@@ -425,8 +425,7 @@ sub device_select ($) { ...@@ -425,8 +425,7 @@ sub device_select ($) {
"\t ------------------------------------------------------------------------"; "\t ------------------------------------------------------------------------";
if (scalar (@d) == 1) { if (scalar (@d) == 1) {
print $text; print "\n$text\n\t @d[0]\n";
print @d[0];
} else { } else {
return ask_choice ($text, return ask_choice ($text,
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment