[Catalyst] uri_for() not working under lighttpd fastcgi

[Carl Franks]

I've got a Cat app working under lighttpd with fastcgi.

The app should be served from the address:
    http://my-domain/amazon

If I create a url with $c->uri_for('/books/search'), then instead of getting:
    http://my-domain/amazon/books/search
I get:
    http://my-domain/books/search

I've just transfered the app from an apache/fastcgi server where it
was working correctly, so it must be either the environment or my
lighttpd/fastcgi config, but I've never used lighttpd before, and am
stuck.

I'm using the following lighttpd config:

fastcgi.server = ( "/amazon" =>
  ( "Amazon" =>
    (
      "check-local" => "disable",
      "bin-path" => "/srv/www/amazon/script/amazon_fastcgi.fcgi",
      "socket" => "/tmp/amazon.socket",
      "max-procs" => 2,
    )
  )
)

Here is the 'request' key of my dumped $context:

bless( {
  'protocol' => 'HTTP/1.1',
  'headers' => bless( {
    'user-agent' => 'Mozilla/5.0 (X11; U; Linux i686; en-GB;
rv:1.8.1.5) Gecko/20070718 Fedora/2.0.0.5-1.fc7 Firefox/2.0.0.5',
    'connection' => 'keep-alive',
    'keep-alive' => '300',
    'cache-control' => 'max-age=0',
    'accept' =>
'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5',
    'accept-language' => 'en-gb,en-us;q=0.7,en;q=0.3',
    'accept-encoding' => 'gzip,deflate',
    'host' => '69.56.173.124',
    'accept-charset' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7'
  }, 'HTTP::Headers' ),
  '_context' => $VAR1,
  'body_parameters' => {},
  'secure' => 0,
  'hostname' => undef,
  'uploads' => {},
  'user' => undef,
  '_body' => 0,
  'method' => 'GET',
  'address' => '134.36.224.37',
  'base' => bless( do{\(my $o = 'http://69.56.173.124/')}, 'URI::http' ),
  'cookies' => {},
  'match' => '',
  'path' => 'amazon',
  'uri' => bless( do{\(my $o = 'http://69.56.173.124/amazon')}, 'URI::http' ),
  'query_parameters' => {},
  'parameters' => {},
  'action' => 'default',
  'arguments' => [
    'amazon'
  ],
  'captures' => []
}, 'Catalyst::Request' )


Any pointers?
Carl