From faa9234f0daafde38105b2a9425b7e3e2be27f8f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 9 Jun 2022 14:43:08 +0200 Subject: do not crash if nmap/nmblookup are not installed mga#12579 had been fixed long time ago by adding deps to drakxtools-backend but this sadly bloats the minimal installation. Fixing the crash enabled to unbloat the minimal install. --- perl-install/NEWS | 2 ++ perl-install/standalone/lsnetdrake | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 7a052e559..83bad327e 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,5 @@ +- lsnetdrake: do not crash if nmap or nmblookup are not installed (mga#12579) + Version 18.49 - 8 June 2022 - Recognize new kernel 5.17 drivers diff --git a/perl-install/standalone/lsnetdrake b/perl-install/standalone/lsnetdrake index 41fcd3b30..12399d2c3 100755 --- a/perl-install/standalone/lsnetdrake +++ b/perl-install/standalone/lsnetdrake @@ -15,7 +15,7 @@ $| = 1; $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}"; foreach my $class (if_($nfs, fs::remote::nfs->new), if_($smb, fs::remote::smb->new)) { - foreach my $server (sort_names($class->find_servers)) { + foreach my $server (sort_names(eval { $class->find_servers })) { foreach (sort_names(eval { $class->find_exports($server) })) { print $class->to_fullstring($_), "\n"; } -- cgit v1.2.1