Oops, that's right, it's in the Apache::Constants package. Changing
your code to say Apache::Constants::OK should do it. No need to import
all of that stuff unless you want to.
Jon Robison wrote:
> maybe a "use Apache::Constants qw/ :common /;" ????
>
> --Jon Robison
>
> "Lihn, Steve" wrote:
>
>>Hi,
>>I am testing the Apache::Echo connection handler for Apache2 and mod_perl 2.
>>But encounter the following error:
>>
>>[Thu Apr 25 15:32:15 2002] [error] failed to resolve handler `Apache::Echo'
>>[Thu Apr 25 15:32:15 2002] [error] Bareword "Apache::OK" not allowed while
>>"strict subs" in use at C:\Apache2/blib/lib/Apache2/Apache/Echo.pm line 25.
>>Compilation failed in require at (eval 2) line 3.
>>
>>What do I miss?
>>
>>--Steve
>>
>>--
>>package Apache::Echo;
>>
>> use strict;
>> use Apache::Connection ();
>> use APR::Socket ();
>>
>> use constant BUFF_LEN => 1024;
>>
>> sub handler {
>> my Apache::Connection $c = shift;
>> my APR::Socket $socket = $c->client_socket;
>>
>> my $buff;
>>
>> for (;;) {
>> my($rlen, $wlen);
>> my $rlen = BUFF_LEN;
>> $socket->recv($buff, $rlen);
>> last if $rlen <= 0;
>> $wlen = $rlen;
>> $socket->send($buff, $wlen);
>> last if $wlen != $rlen;
>> }
>>
>> return Apache::OK;
>> }
>>
>> 1;
>> __END__
>>
>> Steve Lihn
>> FIS Database Support, Merck & Co., Inc.
>> Tel: (908) 423 - 4441
>>
>>------------------------------------------------------------------------------
>>Notice: This e-mail message, together with any attachments, contains information of
>Merck & Co., Inc. (Whitehouse Station, New Jersey, USA) that may be confidential,
>proprietary copyrighted and/or legally privileged, and is intended solely for the use
>of the individual or entity named in this message. If you are not the intended
>recipient, and have received this message in error, please immediately return this by
>e-mail and then delete it.
>>
>>==============================================================================
>
>
