Perlbal-test_15_webserver.patch

   1 --- Perlbal-1.59/t/15-webserver.t.orig  2007-09-16 18:52:34.661705909 +0100
   2 +++ Perlbal-1.59/t/15-webserver.t       2007-09-16 18:53:07.656672320 +0100
   3 @@ -64,7 +64,8 @@
   4  ok(get("$url?foo=bar") eq $contents, "GET request");
   5
   6  {
   7 -    my $req = HTTP::Request->new(GET => $url, [ 'If-Modified-Since' => HTTP::Date::time2str() ]);
   8 +    my $ims = HTTP::Date::time2str( ( stat $disk_file )[9] );
   9 +    my $req = HTTP::Request->new(GET => $url, [ 'If-Modified-Since' => $ims ]);
  10      my $res = $ua->request($req);
  11
  12      is($res->code, 304, "Got not modified");