Re: Empty $r in mod_perl

From: Thomas Wittek <mail@xxxxxxxxxxxxxxxxxxxx>
Date: Sat, 06 Jan 2007 13:18:34 +0100

jason.yfho@xxxxxxxxx schrieb:

My perl script in "/usr/local/apache2/htdocs/test1.pl":
#!/usr/local/bin/perl5.8.8
use strict;
my $r = shift;
$r->print("It worked!!!\n");

I had to do this in my Apache2 handler:

require Apache2::RequestUtil;
Apache2::RequestUtil->request($r);

$r->print("It worked!!!\n");

Maybe it works for you.
--
Thomas Wittek
http://gedankenkonstrukt.de/
Jabber: streawkceur@xxxxxxxxxxxxxxxxxx
.

References:
- Empty $r in mod_perl
  - From: jason . yfho

Prev by Date: Empty $r in mod_perl
Next by Date: GDBM_File
Previous by thread: Empty $r in mod_perl
Next by thread: GDBM_File
Index(es):
- Date
- Thread

Relevant Pages

Re: OO Perl : Struggling with hash data members in my Class
... You are not using strict or warnings. ... my $proto = shift; ... sub my_colors { ...
(comp.lang.perl.misc)
Re: Cant locate object method - weirdness
... I'm using strict and warnings on my script and strict on my class. ... _dbh => undef, ... sub table{ ... my $self = shift; ...
(perl.beginners)
I sat, thought about this, and I still dont understand it.
... package Some_Class; ... no strict "refs"; ... my $class = shift; ... Shit in global array: ...
(comp.lang.perl.misc)
Re: Last line issue
... use strict; ... my $FNI = shift; ... I modified your script a bit: ...
(perl.beginners)
Re: Dynamic directory handles?
... > If your code runs with strict, ... > has higher precendence than '=' which is higher than 'or'. ... > my= shift or ''; ... > and thus $cdir may still be undefined. ...
(comp.lang.perl.misc)