Re: mod_perl2 scope issue?

At least when you have a problem, stop hiding errors by using "use strict; use warnings;"!

mod_perl registry scripts are compiled inside as a sub:

sub {

#!/usr/bin/perl
use CGI;
my $page = new CGI;
print $page->header();
print "<html><head></head><body>";
print $page;
print "<br>";
test();
print "</body></html>";

sub test{
    print $page;
}

}
[download]

Patterns of the form

sub named_or_anon {
   my $x;
   sub named {
      ... $x ...
   }
}
[download]

are bad. Perl even warns you about it.

$ perl -we'
    sub named_or_anon {
        my $x;
        sub named {
            $x
        }
    }
'
Variable "$x" will not stay shared at -e line 6.
[download]

Don't use "global" my variables in registry scripts. Using local our $var instead of my $var should do the trick for "global" variables.

Comment on Re: mod_perl2 scope issue? Select or Download Code

Replies are listed 'Best First'.
Re^2: mod_perl2 scope issue? by Anonymous Monk on Jan 15, 2010 at 19:55 UTC
Thank you for the informed reply! I should have included 'use strict;' which I had been using in a previous incarnation of the test script. I didn't know about 'use warnings', though. Thanks for that, too!	[reply]