From b52c48f3925833a80d60094b6802e9a243df3365 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Wed, 18 Jan 2012 18:24:28 +0100
Subject: [PATCH] connect script: Improve console output

---
 hp2101nw_connect.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/hp2101nw_connect.pl b/hp2101nw_connect.pl
index 3c0b5cd..2a63d45 100755
--- a/hp2101nw_connect.pl
+++ b/hp2101nw_connect.pl
@@ -360,7 +360,7 @@ sub device_detect () {
   my $request = SBSU_create_buffer ($SBSU_STATUS);
   my $result = {};
   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
   # the response will not be from the broadcast address and thus it 
   # would not be detected. Rather, I'll have to add the PeerAddress 
@@ -425,8 +425,7 @@ sub device_select ($) {
       "\t   ------------------------------------------------------------------------";
 
   if (scalar (@d) == 1) {
-    print $text;
-    print @d[0];
+    print "\n$text\n\t   @d[0]\n";
   } else {
     return ask_choice ($text,
 
-- 
GitLab