|Subject:||a possible bug in HTTP::Cookies::Microsoft?|
I use $VERSION = "5.810" of Cookies::Microsoft in ActivePerl 5.8, but find sometimes the cookie added to request is not complete: for example, when the target is books.google.cn, only books.google.cn cookie is added, but not google.cn. I tracked down to a line reading cookie files from index.dat, which is in sub load(): if ($data =~ /Cookie\:$user_name\@([\x21-\xFF]+).*? ($user_name\@[\x21-\xFF]+\.txt)/) my user name is "shaohua li", but the browser stores google.cn's cookie in "firstname.lastname@example.org", as filemon reveals. So here is a mismatch and this entry is skipped. I'd like to patch this line as: my $user_name2 = $user_name; $user_name2 =~ s/ /_/g; if ($data =~ /Cookie\:$user_name\@([\x21-\xFF]+).*?((:?$user_name|$user_name2)\@ [\x21-\xFF]+\.txt)/) I guess this might cover all situations.