diff options
-rwxr-xr-x | park-rpmdrake | 3 |
1 files changed, 1 insertions, 2 deletions
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 { (); |