From 739793d624a0aeda2774e45a44abb503601b6b01 Mon Sep 17 00:00:00 2001
From: Maximilian Gass <mxey@ghosthacking.net>
Date: Tue, 28 Jun 2011 22:10:59 +0200
Subject: [PATCH] Fix locating properly

---
 bin/app.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/app.pl b/bin/app.pl
index 004620b..b0ea287 100755
--- a/bin/app.pl
+++ b/bin/app.pl
@@ -1,8 +1,9 @@
 #!/usr/bin/env perl
 use Dancer;
-use FindBin;
+use autodie qw(chdir);
+use Cwd qw(abs_path);
 
-chdir "$FindBin::Bin/..";
+chdir abs_path(dirname(__FILE__) . '/..');
 require App::Genregenerator;
 
 dance;