Fixed.
-----
$ perl -Mblib RT72791-debug-redirect.pl
http://goo.gl/mR2d
!! redirection !!
HTTP/1.1 301 Moved Permanently
Cache-Control: private, max-age=86400
Date: Sun, 11 Dec 2011 21:50:46 GMT
Transfer-Encoding: chunked
Age: 190
Location:
http://google.com/
Server: GSE
Content-Type: text/html; charset=UTF-8
Expires: Sun, 11 Dec 2011 21:50:46 GMT
X-Content-Type-Options: nosniff
X-Frame-Options: SAMEORIGIN
X-XSS-Protection: 1; mode=block
!! redirection !!
HTTP/1.1 301 Moved Permanently
Cache-Control: public, max-age=2592000
Date: Sun, 11 Dec 2011 21:53:57 GMT
Location:
http://www.google.com/
Server: gws
Content-Length: 219
Content-Type: text/html; charset=UTF-8
Expires: Tue, 10 Jan 2012 21:53:57 GMT
X-Frame-Options: SAMEORIGIN
X-XSS-Protection: 1; mode=block
!! redirection !!
HTTP/1.1 302 Found
Cache-Control: private
Date: Sun, 11 Dec 2011 21:53:57 GMT
Location:
http://www.google.co.uk/
Server: gws
Content-Length: 221
Content-Type: text/html; charset=UTF-8
Set-Cookie:
PREF=ID=683e81a92f694b42:FF=0:TM=1323640437:LM=1323640437:S=oTZ4yA6wnM9OQeA-;
expires=Tue, 10-Dec-2013 21:53:57 GMT; path=/; domain=.google.com
X-Frame-Options: SAMEORIGIN
X-XSS-Protection: 1; mode=block
HTTP/1.1 200 OK
Cache-Control: private, max-age=0
Date: Sun, 11 Dec 2011 21:53:57 GMT
Transfer-Encoding: chunked
Server: gws
Content-Type: text/html; charset=ISO-8859-1
Expires: -1
...
--
Paul Evans