diff options
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/lsnetdrake | 2 |
2 files changed, 3 insertions, 1 deletions
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"; } |