Merge pull request #1149 from Grinnz/length_warning

avoid uninitialized value in length warning on older perls
PerlDancer · Feb 2, 2016 · bae8041 · bae8041
2 parents 12eff4a + 7d5080b
commit bae8041
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Dancer/Request.pm b/lib/Dancer/Request.pm
@@ -171,7 +171,7 @@ sub new_for_request {
         QUERY_STRING   => $query_string || $ENV{QUERY_STRING} || '',
         REQUEST_METHOD => $method
     };
-    $env->{CONTENT_LENGTH} = length($body) if !exists $env->{CONTENT_LENGTH};
+    $env->{CONTENT_LENGTH} = defined($body) ? length($body) : 0 if !exists $env->{CONTENT_LENGTH};
     my $req = $class->new(env => $env);
     $req->{params}        = {%{$req->{params}}, %{$params}};
     $req->_build_params();