fixed small bug in upload_lite_app.t

mojolicious · Oct 20, 2011 · aa6a838 · aa6a838
1 parent e73e1de
commit aa6a838
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -2,6 +2,7 @@ This file documents the revision history for Perl extension Mojolicious.
 
 2.03    2011-10-20 00:00:00
         - Improved documentation.
+        - Fixed small bug in "upload_lite_app.t".
 
 2.02    2011-10-20 00:00:00
         - Merged request and upgrade events in Mojo::Transaction::HTTP.

diff --git a/lib/Mojo/Message.pm b/lib/Mojo/Message.pm
@@ -583,8 +583,9 @@ Emitted after message building or parsing is finished.
 Emitted when message building or parsing makes progress.
 
   $message->on(progress => sub {
-    my $message  = shift;
-    my $len      = $message->headers->content_length;
+    my $message = shift;
+    return unless $message->content->is_parsing_body || $message->is_done;
+    return unless my $len = $message->headers->content_length;
     my $progress = $message->content->progress;
     say 'Progress: ',
       $progress == $len ? 100 : int($progress / ($len / 100)), '%';

diff --git a/t/mojolicious/upload_lite_app.t b/t/mojolicious/upload_lite_app.t
@@ -26,6 +26,9 @@ app->hook(
       progress => sub {
         my $req = shift;
 
+        # Check if we've reached the body yet
+        return unless $req->content->is_parsing_body || $req->is_done;
+
         # Check for id
         return unless my $id = $req->url->query->param('upload_id');