SVN: toys/rsget.pl/RSGet/HTTPRequest.pm

[sparky]

Author: sparky
Date: Wed Oct 21 21:29:03 2009
New Revision: 10797

Modified:
   toys/rsget.pl/RSGet/HTTPRequest.pm
Log:
- updated for changes in Captcha.pm


Modified: toys/rsget.pl/RSGet/HTTPRequest.pm
==============================================================================
--- toys/rsget.pl/RSGet/HTTPRequest.pm	(original)
+++ toys/rsget.pl/RSGet/HTTPRequest.pm	Wed Oct 21 21:29:03 2009
@@ -180,6 +180,7 @@
 		multi => "red",
 		problem => "red",
 		wait => "blue",
+		delay => "bluegreen",
 	);
 	my $color = $o->{wait} ? $wait_to_color{ $o->{wait} } : "green";
 
@@ -679,7 +680,8 @@
 		$headers->{Content_Type} = "text/plain";
 		return $post->{solve};
 	} elsif ( my $n = $RSGet::Captcha::needed{ $md5 } ) {
-		( $ct, $data ) = @$n;
+		( $ct, my $dataref ) = @$n;
+		$data = $$dataref;
 	} else {
 		$ct = "image/png";
 		local $/ = undef;