Merge pull request #6 from koeppe/master

Memory leak in AnyEvent::CouchDB::Database::attach
beppu · Nov 1, 2011 · 0701a45 · 0701a45
2 parents 3b7bcd8 + 4ee1dc7
commit 0701a45
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/AnyEvent/CouchDB/Database.pm b/lib/AnyEvent/CouchDB/Database.pm
@@ -264,6 +264,7 @@ sub remove_doc {
 sub attach {
   my ( $self, $doc, $attachment, $options ) = @_;
   my $body < io( $options->{src} );
+  my $length = length($body);
   $options->{type} ||= 'text/plain';
   if ( $options->{success} ) {
     my $orig = $options->{success};
@@ -275,7 +276,7 @@ sub attach {
       $doc->{_attachments} ||= {};
       $doc->{_attachments}->{$attachment} = {
         'content_type' => $options->{type},
-        'length'       => length($body),
+        'length'       => $length,
         'stub'         => JSON::true,
       };
     };
@@ -288,7 +289,7 @@ sub attach {
       $doc->{_attachments} ||= {};
       $doc->{_attachments}->{$attachment} = {
         'content_type' => $options->{type},
-        'length'       => length($body),
+        'length'       => $length,
         'stub'         => JSON::true,
       };
     };