From e90b3c9d7a61b429a8b4340fba145dbc67475317 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Thu, 20 Dec 2012 13:20:59 +0000
Subject: [PATCH] fix bug with empty DANCER_APPDIR

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

diff --git a/Netdisco/lib/App/Netdisco.pm b/Netdisco/lib/App/Netdisco.pm
index 4de44fb6..653ff1c7 100644
--- a/Netdisco/lib/App/Netdisco.pm
+++ b/Netdisco/lib/App/Netdisco.pm
@@ -10,7 +10,7 @@ use Path::Class;
 our $VERSION = '2.00_009';
 
 BEGIN {
-  if (not length $ENV{DANCER_APPDIR}
+  if (not length ($ENV{DANCER_APPDIR} '')
       or not -f file($ENV{DANCER_APPDIR}, 'config.yml')) {
 
       my $auto = dir(dist_dir('App-Netdisco'))->absolute;