FIX broken tests (status, send_file and content_type)

PerlDancer · Feb 5, 2011 · 2d6814b · 2d6814b
1 parent 90e2d3c
commit 2d6814b
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/lib/Dancer.pm b/lib/Dancer.pm
@@ -174,6 +174,7 @@ sub session {
           : Dancer::Session->write(@_);
     }
 }
+sub status    { Dancer::Response::status(@_) }
 sub splat     {
     my $splat = Dancer::SharedData->request->params->{splat};
     return ref $splat ? @$splat : (); 

diff --git a/lib/Dancer/Renderer.pm b/lib/Dancer/Renderer.pm
@@ -167,7 +167,8 @@ sub get_file_response_for_path {
         Dancer::Response::status($status);
         Dancer::Response::content_type(
             get_mime_type($static_file));
-        return $fh;
+        Dancer::Response::content($fh);
+        return Dancer::Response->current;
     }
     return;
 }

diff --git a/lib/Dancer/Response.pm b/lib/Dancer/Response.pm
@@ -144,6 +144,11 @@ sub halted {
     $current && $current->{halted}
 }
 
+sub content {
+    $CURRENT->{content} = $_[0] 
+        if defined $CURRENT;
+}
+
 sub header {
     my $current = _get_object(shift);
     my $header = shift;