From 0aefbac5b21c6e9c2e469f862985ae63ed26d4f9 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Mon, 13 Apr 2020 22:05:16 -0700
Subject: [PATCH] Fix perl warning

---
 virtualmin-registrar-lib.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/virtualmin-registrar-lib.pl b/virtualmin-registrar-lib.pl
index f34c8f5..1342a94 100755
--- 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;