in reply to Re: importing functions with "PerlModule" Apache directive
in thread importing functions with "PerlModule" Apache directive

I was just thinking about to use the PerlPostConfigRequire directive, I actually just switched to it in my apache.conf and everything is working fine:
PerlPostConfigRequire /etc/apache2/startup.pl

[download]
It is not yet clear to me the behavior with exported functions, I mean, I put in startup.pl
use CGI qw(-compile -utf8);

[download]
and avoided to import CGI in my test script, but I can still call Vars() function directly, which from CGI documentation should not be visible:
#!/usr/bin/perl
$ENV{PATH}='';
local our $o;
$o->{authenticated}=0;
local our $cookie;
local our $duration=600;
local our $r=new CGI;
local our $p=Vars;
...

[download]
What's going on?

Replies are listed 'Best First'.
Re^3: importing functions with "PerlModule" Apache directive
by Anonymous Monk on May 09, 2012 at 12:56 UTC

    and avoided to import CGI in my test script, but I can still call Vars() function directly, which from CGI documentation should not be visible:

    What's going on?

    You're imagining things :)

    Even if you used  use CGI qw(-compile -utf8 Vars ); there is no way Vars would be available to your script , unless you're using something ( its not ModPerl::Registry ) to make it available

[reply]
[d/l]
      Pay attention: I stated that Vars is actually available in my test script even if I did not imported it (purposely, at least) in any way.
      startup.pl script:

use CGI;

mytestscript:

#!/usr/bin/perl
local our $p=Vars; # it works!!!

      [download]
[reply]
[d/l]

        You're not using strict, so of course local our $p=Vars will work. It's just an assignment of a string to a package variable. Compare:

        $ perl -ce'local our $p=Vars'
-e syntax OK

        [download]

        versus:

        $ perl -Mstrict -ce'local our $p=Vars'
Bareword "Vars" not allowed while "strict subs" in use at -e line 1.
-e had compilation errors.

        [download]

        Also of interest:

        $ perl -MO=Deparse -e'local our $p=Vars'
local $p = 'Vars';
-e syntax OK

        [download]
        perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]
[d/l]
[select]
[reply]

In Section Seekers of Perl Wisdom