From 0d2ffc5f1965ac4fe7c3915ebf6d2e3063efbc50 Mon Sep 17 00:00:00 2001
From: Gisle Aas <gisle@aas.no>
Date: Mon, 6 Jul 2009 22:01:24 +0200
Subject: [PATCH] Avoid cycle in response

The response_data handler callback attached to the response during
LWP processing contained a reference to the response itself.
---
 lib/LWP/UserAgent.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/LWP/UserAgent.pm b/lib/LWP/UserAgent.pm
index 91d51831d..1d87d740b 100644
--- a/lib/LWP/UserAgent.pm
+++ b/lib/LWP/UserAgent.pm
@@ -595,8 +595,9 @@ sub parse_head {
 		       return unless $parser;
 		       unless ($parser->parse($_[3])) {
 			   my $h = $parser->header;
+			   my $r = $_[0];
 			   for my $f ($h->header_field_names) {
-			       $response->init_header($f, [$h->header($f)]);
+			       $r->init_header($f, [$h->header($f)]);
 			   }
 			   undef($parser);
 		       }