Mod_perl & do()

[Mike Mimic]

Hi!

I tryed to use do() function in mod_perl 1.27 but as I found out that
does not work. For example

test.pl:
#!/usr/bin/perl
my $test = 0;
do 'text.cf';
print "Content-type: text/html\n\n";
print $test;

test.cf:
$test = 1;

prints 0 and not 1. Files are in the same directory and there is '.' in
@INC.

scalar eval `cat test.cf` works but I really would not like to use this.

I use this for including configuration data.


Mike

[Jay Tilton]

Mike Mimic <ppagee@yahoo.com> wrote:

: I tryed to use do() function in mod_perl 1.27 but as I found out that
: does not work. For example
:
: test.pl:
: #!/usr/bin/perl
: my $test = 0;

Declaring that $test with my() gives it file scope...

: do 'text.cf';
: print "Content-type: text/html\n\n";
: print $test;
:
: test.cf:
: $test = 1;

....so that $test is a completely different variable.

[Mike Mimic]

Hi!

> Declaring that $test with my() gives it file scope...
>
> : do 'text.cf';
> : print "Content-type: text/html\n\n";
> : print $test;
> :
> : test.cf:
> : $test = 1;
>
> ...so that $test is a completely different variable.

I think that it is not true.

do 'text.cf' should simply include code (like C++ include pragma) so
that the code of the program would be

#!/usr/bin/perl
my $test = 0;
$test = 1;
print "Content-type: text/html\n\n";
print $test;

I have changed the program slightly to show the problem (test.cf is not
loaded).

test.pl:
#!/usr/bin/perl
my $test = 0;
print "Content-type: text/html\n\n";
do 'text.cf';
print $test;

test.cf:
print "Loaded.\n";
$test = 1;

It prints only 0.


Mike

[Andreas Kahari]

In article <bTB8b.2563$2B6.601880@news.siol.net>, Mike Mimic wrote:

> Hi!
>

>> Declaring that $test with my() gives it file scope...

[cut]

> I think that it is not true.

[cut]

The manual for 'do' (perldoc -f do) says:

[...] code evaluated with "do FILENAME" cannot see lexicals
in the enclosing scope [...]

--
Andreas Kähäri

[Jay Tilton]

Mike Mimic <ppagee@yahoo.com> wrote:

: do 'text.cf' should simply include code (like C++ include pragma) so
: that the code of the program would be
:
: #!/usr/bin/perl
: my $test = 0;
: $test = 1;
: print "Content-type: text/html\n\n";
: print $test;

Actually, it would be like

#!/usr/bin/perl
my $test = 0;
$main::test = 1; # package variable, not lexical
print "Content-type: text/html\n\n";
print $test;

: I have changed the program slightly to show the problem (test.cf is not
: loaded).
:
: test.pl:
: #!/usr/bin/perl
: my $test = 0;
: print "Content-type: text/html\n\n";
: do 'text.cf';
^^^^^^^
^

: print $test;
:
: test.cf:
^^^^^^^
^

: print "Loaded.\n";
: $test = 1;
:
: It prints only 0.

It would help if the filenames were the same.
Including checks on whether the do() succeeds is always a good idea.

[Mike Mimic]

Hi!

Jay Tilton wrote:

> Actually, it would be like
>
> #!/usr/bin/perl
> my $test = 0;
> $main::test = 1; # package variable, not lexical
> print "Content-type: text/html\n\n";
> print $test;

Changing my $test to our $test does the trick.

> It would help if the filenames were the same.
> Including checks on whether the do() succeeds is always a good idea.

Ups. Thanks. It was only a test script but you are right.

Thanks, it works now.


Mike