fixed Perl 5.10.1 compatibility (closes #381)

mojolicious · Sep 11, 2012 · 7baf988 · 7baf988
1 parent 06b0dc5
commit 7baf988
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 
 3.40  2012-09-11
   - Improved tests.
+  - Fixed Perl 5.10.1 compatibility.
 
 3.39  2012-09-10
   - Improved Mojo::URL and Mojo::Parameters performance.

diff --git a/lib/Mojo/Content.pm b/lib/Mojo/Content.pm
@@ -39,7 +39,7 @@ sub generate_body_chunk {
 
   # Drain
   $self->emit(drain => $offset)
-    if !delete $self->{delay} && !length $self->{body_buffer};
+    if !delete $self->{delay} && !length($self->{body_buffer} // '');
 
   # Get chunk
   my $chunk = delete $self->{body_buffer} // '';