Merge pull request #11 from tgt/patch-1

Fix leak caused by failing to free Expat parser.
rjray · Sep 28, 2015 · 0dcdf12 · 0dcdf12
2 parents 3270580 + d567128
commit 0dcdf12
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/RPC/XML/Client.pm b/lib/RPC/XML/Client.pm
@@ -406,12 +406,16 @@ sub send_request ## no critic (ProhibitExcessComplexity)
     $response = $self->useragent->request($reqclone, $cb);
     if ($message = $response->headers->header('X-Died'))
     {
+        $parser->release();
+
         # One of the die's was triggered
         return ('CODE' eq ref $self->error_handler) ?
             $self->error_handler->($message) : $message;
     }
     if (! $response->is_success)
     {
+        $parser->release();
+
         $message =  "$me: HTTP server error: " . $response->message;
         return ('CODE' eq ref $self->error_handler) ?
             $self->error_handler->($message) : $message;