mod_perl

[Domrachev Ivan]

добрый день

есть
location /check {
 perl 'sub{
  my $r=shift;
  $r->send_http_header("plain/text");
  $r->print("hello!");
  return OK;
 }';
}

при запросе /check в ерор логах:
2009/09/15 09:56:47 [error] 3801#0: *1 call_sv("sub{
  my $r = shift;
  $r->send_http_header("plain/text");
  $r->print("hello!");
  return OK;
 }") failed: "Undefined subroutine &main::sub{
  my $r = shift;
  $r->send_http_header("plain/text");
  $r->print("hello!");
  return OK;
 } called.", client: 127.0.0.1, server: test.ru, request: "GET /check
 HTTP/1.1", host: "test.ru"


-- 
С уважением,
 Domrachev                          mailto:Domrachev.Ivan at gmail.com