From 8b3d04f32e71521d078a80a9c236f6a17ac63928 Mon Sep 17 00:00:00 2001
From: Mike Hibler <hibler@cs.utah.edu>
Date: Mon, 30 Nov 2015 17:19:52 -0700
Subject: [PATCH] Fix a perl nit.

---
 tbsetup/reload_daemon.in | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tbsetup/reload_daemon.in b/tbsetup/reload_daemon.in
index e6b1d1497..b15afc70d 100644
--- a/tbsetup/reload_daemon.in
+++ b/tbsetup/reload_daemon.in
@@ -446,7 +446,7 @@ while (1) {
 	    my $idid = "$imageid/$mustwipe";
 
 	    $images{$node} = $imageid;
-	    if (@{$imagenodes{$idid}} > 0) {
+	    if (exists($imagenodes{$idid})) {
 		push(@{$imagenodes{$idid}},$node);
 	    } else {
 		$imagenodes{$idid} = [$node];
-- 
GitLab