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. > > ==============================================================================