SVN: toys/rsget.pl/RSGet/Curl.pm
sparky
sparky at pld-linux.org
Wed Oct 14 20:57:10 CEST 2009
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 );
More information about the pld-cvs-commit
mailing list