Fix perl warning

virtualmin · Apr 14, 2020 · 0aefbac · 0aefbac
1 parent 18e91a6
commit 0aefbac
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/virtualmin-registrar-lib.pl b/virtualmin-registrar-lib.pl
@@ -47,7 +47,7 @@
 sub list_registrar_accounts
 {
 my @rv;
-opendir(DIR, $registrar_accounts_dir);
+opendir(DIR, $registrar_accounts_dir) || return ();
 foreach my $f (readdir(DIR)) {
 	next if ($f eq "." || $f eq "..");
 	my %account;