Test PLACK_ENV before comparing to string

to avoid undef warning in tests
metacpan · Jun 27, 2014 · ba7a6c5 · ba7a6c5
1 parent 2149422
commit ba7a6c5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/app.psgi b/app.psgi
@@ -5,6 +5,8 @@ package MetaCPAN::Web;
 use strict;
 use warnings;
 
+# TODO: When we know everything will work reliably: $ENV{PLACK_ENV} ||= 'development';
+
 BEGIN {
     if ( $ENV{PLACK_ENV} && $ENV{PLACK_ENV} eq 'development' ) {
         $ENV{PLACK_SERVER}       = 'Standalone';
@@ -53,7 +55,7 @@ my $app = Plack::App::URLMap->new;
         $core_app,
         session_key => 'metacpan_secure',
         expires     => 2**30,
-        secure      => ( $ENV{PLACK_ENV} ne 'development' ),
+        secure      => ( ( $ENV{PLACK_ENV} || '' ) ne 'development' ),
         httponly    => 1,
     );