Tweeks to can deplyo to dotcloud

ranguard · Apr 30, 2011 · 2636194 · 2636194
1 parent 66a3e2c
commit 2636194
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 11 deletions.
diff --git a/multiple_roots/Makefile.PL b/multiple_roots/Makefile.PL
@@ -1,14 +1,15 @@
 use ExtUtils::MakeMaker;
 
 WriteMakefile(
-    'ABSTRACT'	=> 'Test',
-    'AUTHOR'	=> 'Leo Lapworth',
-    'LICENSE'	=> 'perl',
-    'NAME'	=> 'Leo::TEst',
-    'PREREQ_PM'	=> {
-		    'Plack::App::TemplateToolkit' => '0.07',
-		    'Plack' => '9999.04',
-		    'Test::More' => '0.1',
-		   },
+    'ABSTRACT'  => 'Test',
+    'AUTHOR'    => 'Leo Lapworth',
+    'LICENSE'   => 'perl',
+    'NAME'      => 'Leo::Test',
+    'PREREQ_PM' => {
+        'Path::Class'                 => 0,
+        'Plack::App::TemplateToolkit' => '0.07',
+        'Plack'                       => '9999.04',
+        'Test::More'                  => '0.1',
+    },
 );
 
diff --git a/multiple_roots/app.psgi b/multiple_roots/app.psgi
@@ -10,10 +10,14 @@ use Plack::Builder;
 use Plack::Middleware::ErrorDocument;
 use Plack::Middleware::Static;
 
+my $root = $ENV{'PLACK_ENV'} eq 'deployment' ? '/home/dotcloud/current/' : './';
+
 # my $base   = dir( file($0)->dir(), 'base' )->stringify();
 # my $custom = dir( file($0)->dir(), 'custom' )->stringify();
-my $base   = dir( 'base' )->stringify();
-my $custom = dir( 'custom' )->stringify();
+my $base   = dir( $root, 'base' )->stringify();
+my $custom = dir( $root, 'custom' )->stringify();
+
+warn $base;
 
 # Create our TT app, specifying the root and file extensions
 my $app = Plack::App::TemplateToolkit->new(