4 exec 2>>tests/tmp/wrap.log
5 export HTTP_COOKIE=$(cat "tests/tmp/cookie")
6 export CAFTEST_URLBASE=file:///
7 tests/cgi "$@" | perl -pe '
9 next unless m/Set-Cookie: (\w+=[^; ]+)/;
10 my $cf = "tests/tmp/cookie";
11 open C, ">", "$cf.new" or die "$cf $!";
14 rename "$cf.new", $cf or die "$cf $!";