From 5d9b58a6b27f191815040630463d6bdb9bbfddb8 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Wed, 29 May 2013 19:48:22 +0100
Subject: [PATCH] avoid explosion when not admin

---
 Netdisco/lib/App/Netdisco/Web/AdminTask.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Netdisco/lib/App/Netdisco/Web/AdminTask.pm b/Netdisco/lib/App/Netdisco/Web/AdminTask.pm
index 29bde525..fbc274f8 100644
--- a/Netdisco/lib/App/Netdisco/Web/AdminTask.pm
+++ b/Netdisco/lib/App/Netdisco/Web/AdminTask.pm
@@ -34,7 +34,7 @@ post '/admin/discover' => sub {
 get '/admin/*' => sub {
     my ($tag) = splat;
 
-    if (! var('user')->admin) {
+    if (! eval { var('user')->admin }) {
         status(302);
         header(Location => uri_for('/')->path_query());
         return;