Fix locating properly

This commit is contained in:
Maximilian Gass 2011-06-28 22:10:59 +02:00
parent b9a8688b14
commit 739793d624
1 changed files with 3 additions and 2 deletions

View File

@ -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;