That's because the $r you get from shift isn't interchangable with the
$r you get from Apache2::Request (which I think is deprecated anyway).
Try doing
sub handler {
my $r = shift;
my $q = Apache2::Request->new($r);
my %ins = &processInput($q);
...
$r->print($html);
return OK;
}
Harry Zhu wrote:
>
> sub handler {
> my $r = Apache2::Request->new(shift);
> my %ins = &processInput($r);
> ...
> $r->print($html);
> return OK;
> }
>
> Can't locate auto/Apache2/Request/print.al in @INC (@INC contains:
> /www/modperl /usr/local/lib/perl5/5.8.7/i686-linux
> /usr/local/lib/perl5/5.8.7
> /usr/local/lib/perl5/site_perl/5.8.7/i686-linux
> /usr/local/lib/perl5/site_perl/5.8.7 /usr/local/lib/perl5/site_perl .
> /usr/local/apache2) at /www/modperl/Sys/Handler.pm line 81
>
> if change "$r->print" to "print", it works fine. A quick browsing
> through the MP2 documents for the example handler, some using print
> while others using $r->print (without Apache2::Request), does $r->print
> under Apache2::Request?
>
> Harry Zhu
>
>
>
> Apache/2.2.0 (Unix) mod_ssl/2.2.0 OpenSSL/0.9.7a DAV/2
> mod_apreq2-20050712/2.1.3-dev mod_perl/2.0.2 Perl/v5.8.7
> and
> perl_module (shared)
> apreq_module (shared)
>
>
> perl -V
> Summary of my perl5 (revision 5 version 8 subversion 7) configuration:
> Platform:
> osname=linux, osvers=2.6.9-5.el, archname=i686-linux
> uname='linux deskweb1.glworkgroup 2.6.9-5.el #1 wed jan 5 19:22:18
> est 2005 i686 i686 i386 gnulinux '
> config_args='-des -Uusethreads'
> hint=recommended, useposix=true, d_sigaction=define
> usethreads=undef use5005threads=undef useithreads=undef
> usemultiplicity=undef
> useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
> use64bitint=undef use64bitall=undef uselongdouble=undef
> usemymalloc=n, bincompat5005=undef
> Compiler:
> cc='cc', ccflags ='-fno-strict-aliasing -pipe -I/usr/local/include
> -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
> optimize='-O2',
> cppflags='-fno-strict-aliasing -pipe -I/usr/local/include
> -I/usr/include/gdbm'
> ccversion='', gccversion='3.4.3 20041212 (Red Hat 3.4.3-9.EL4)',
> gccosandvers=''
> intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
> d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
> ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
> lseeksize=8
> alignbytes=4, prototype=define
> Linker and Libraries:
> ld='cc', ldflags =' -L/usr/local/lib'
> libpth=/usr/local/lib /lib /usr/lib
> libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc
> perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
> libc=/lib/libc-2.3.4.so, so=so, useshrplib=false, libperl=libperl.a
> gnulibc_version='2.3.4'
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
> cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
>
>
> Characteristics of this binary (from libperl):
> Compile-time options: USE_LARGE_FILES
> Built under linux
> Compiled at Oct 20 2005 14:29:14
> @INC:
> /usr/local/lib/perl5/5.8.7/i686-linux
> /usr/local/lib/perl5/5.8.7
> /usr/local/lib/perl5/site_perl/5.8.7/i686-linux
> /usr/local/lib/perl5/site_perl/5.8.7
> /usr/local/lib/perl5/site_perl
