Avoid cycle in response

The response_data handler callback attached to the response during LWP processing contained a reference to the response itself.
gisle · Jul 6, 2009 · 0d2ffc5 · 0d2ffc5
1 parent 1a40ee3
commit 0d2ffc5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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);
 		       }