SVN: toys/rsget.pl/Direct/HTTP

[sparky]

Author: sparky
Date: Sat Jun 26 17:17:53 2010
New Revision: 11592

Modified:
   toys/rsget.pl/Direct/HTTP
Log:
- ignore charset in content-type:


Modified: toys/rsget.pl/Direct/HTTP
==============================================================================
--- toys/rsget.pl/Direct/HTTP	(original)
+++ toys/rsget.pl/Direct/HTTP	Sat Jun 26 17:17:53 2010
@@ -15,7 +15,7 @@
 start:
 	GET( $-{_uri}, headonly => 1 );
 
-	my ( $type ) = /^Content-Type:\s*(\S+)\r?$/mi;
+	! my ( $type ) = /^Content-Type:\s*(\S+?)(;.*?)\r?$/mi;
 	my ( $len ) = /^Content-Length:\s*(\d+)\r?$/mi;
 	$len ||= -1;