03_http_requests.t

--- 03_http_requests-t.org      Fri Feb 05 09:00:16 2010
+++ 03_http_requests.t  Fri Feb 19 22:03:42 2010
@@ -31,7 +31,12 @@

         foreach my $client (@clients) {
             my $ua = LWP::UserAgent->new;
-            $ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" });
+            if ( $^O eq "MSWin32" ) {
+                $ua->cookie_jar({ file => "$ENV{TEMP}/.cookies.txt" });
+            }
+            else {
+                $ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" });
+            }

             my $res = $ua->get("http://127.0.0.1:$port/read_session");
             like $res->content, qr/name=''/,