From 26dccc1e8490375f89dae9a926a84ede69f12178 Mon Sep 17 00:00:00 2001
From: Michael Reddick <michael.reddick@gmail.com>
Date: Thu, 25 Oct 2012 11:49:58 -0500
Subject: Use $args{name} outside of subref to avoid memory leak.

---
 lib/Net/HTTP/Spore/Meta/Method.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Net/HTTP/Spore/Meta/Method.pm')

diff --git a/lib/Net/HTTP/Spore/Meta/Method.pm b/lib/Net/HTTP/Spore/Meta/Method.pm
index 2e55a89..b3a0c6a 100644
--- a/lib/Net/HTTP/Spore/Meta/Method.pm
+++ b/lib/Net/HTTP/Spore/Meta/Method.pm
@@ -133,10 +133,11 @@ has documentation => (
 sub wrap {
     my ( $class, %args ) = @_;
 
+    my $name = $args{name};
     my $code = sub {
         my ( $self, %method_args ) = @_;
 
-        my $method = $self->meta->find_spore_method_by_name( $args{name} );
+        my $method = $self->meta->find_spore_method_by_name( $name );
 
         my $payload =
           ( defined $method_args{spore_payload} )
-- 
cgit v1.2.3