http://www.perlmonks.org?node_id=1186282


in reply to Modperl2 + mpm_event + seemingly forgotten global vars

Hmm...

    if(!$obj) {
        $obj = {one => 1};
...
    $r->print('mod_perl rules!' . $obj->{1});

[download]

You probably meant 

    $r->print('mod_perl rules!' . $obj->{one});

[download]

or vice versa.

Is that hashref $obj being used elsewhere in your code?

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

In Section Seekers of Perl Wisdom