From 5a66140a8116c0d7a651641bc622d6a8c0e80887 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 22 Sep 2004 08:27:05 +0000
Subject: - adapt to new scanssh - remove debug code

---
 park-rpmdrake | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'park-rpmdrake')

diff --git a/park-rpmdrake b/park-rpmdrake
index abbf2fbb..45fd7acf 100755
--- a/park-rpmdrake
+++ b/park-rpmdrake
@@ -3,7 +3,6 @@
 use Socket;
 
 use lib qw(/usr/lib/libDrakX);
-use lib qw(/home/pixel/gi/perl-install);
 use interactive::gtk; 
 use run_program;
 use standalone;
@@ -64,7 +63,7 @@ sub host_to_string {
 sub scanssh_output_to_hosts {
     [ map { 
 	chomp; 
-	if (my ($ip, $_version) = /(\S+) ([^<].*)/) {
+	if (my ($ip, $_version) = /([.\d]+)/) {
 	    raw_host_to_host($ip);
 	} else {
 	    ();
-- 
cgit v1.2.1