From 3e92223e47961800b044d82c2fc2c2bf9ec6c781 Mon Sep 17 00:00:00 2001
From: Thomas Schoebel-Theuer <tst@1und1.de>
Date: Wed, 22 Jul 2015 12:19:41 +0200
Subject: [PATCH] marsadm: fix annoying warning in corner case

---
 userspace/marsadm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/userspace/marsadm b/userspace/marsadm
index 17fb08bc..bcbd226a 100755
--- a/userspace/marsadm
+++ b/userspace/marsadm
@@ -2143,7 +2143,8 @@ sub wait_umount_res {
 sub invalidate_res_phase0 {
   my ($cmd, $res) = @_;
   check_not_primary(@_);
-  my $members = scalar(glob("$mars/resource-$res/data-*"));
+  my @member_list = glob("$mars/resource-$res/data-*");
+  my $members = scalar(@member_list);
   if ($members > 2) {
     if (!detect_splitbrain($res, 0)) {
       lwarn "During split brain, $cmd is not guaranteed to work on k > 2 replicas.\n";