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

[sparky]

Author: sparky
Date: Wed Oct 14 20:57:09 2009
New Revision: 10785

Modified:
   toys/rsget.pl/RSGet/Curl.pm
Log:
- replace \s with [ \t], else it catches next line if filename= is empty


Modified: toys/rsget.pl/RSGet/Curl.pm
==============================================================================
--- toys/rsget.pl/RSGet/Curl.pm	(original)
+++ toys/rsget.pl/RSGet/Curl.pm	Wed Oct 14 20:57:09 2009
@@ -212,10 +212,10 @@
 	if ( $supercurl->{force_name} ) {
 		$fname = $supercurl->{force_name};
 	} elsif ( $supercurl->{head} =~
-			/^Content-Disposition:\s*attachment;\s*filename\*=UTF-8''(.+?);?\s*$/mi ) {
+			/^Content-Disposition:[ \t]*attachment;[ \t]*filename\*=UTF-8''(.+?);?[ \t]*$/mi ) {
 		$fname = de_ml( uri_unescape( $1 ) );
 	} elsif ( $supercurl->{head} =~
-			/^Content-Disposition:\s*attachment;\s*filename\s*=\s*"?(.+?)"?;?\s*$/mi ) {
+			/^Content-Disposition:[ \t]*attachment;[ \t]*filename[ \t]*=[ \t]*"?(.+?)"?;?[ \t]*$/mi ) {
 		$fname = de_ml( uri_unescape( $1 ) );
 	} else {
 		my $eurl = $curl->getinfo( CURLINFO_EFFECTIVE_URL );