Be sure to check that $line is defined:
Thomas K. Burkholder ([EMAIL PROTECTED]) said something to this effect on
04/16/2001:
> Note, /tmp/tmppswd is read-only by the installer of the product, but I should
> be root in access.conf (right?) so I should be able to read it anyway.
>
> <perl>
> use IO::File;
> my $input = IO::File->new("</tmp/tmppswd") || die "Couldn't open /tmp/foo.pl";
> my $line = $input->getline();
die "\$line is not defined" unless (defined $line);
> print STDERR $line;
> $input->close();
> # $line = 'bar';
> $Location{'/areaj'} = {
> PerlSetVar => [
> [foo => $line]
> ],
> SetHandler => 'perl-script',
> PerlHandler => 'AreaJ::AreaJ'
> }
> # push @{ $Location{'/areaj'}->{PerlSetVar} }, [foo => $line];
> </perl>
(darren)
--
The three most dangerous things are a programmer with a soldering iron,
a manager who codes, and a user who gets ideas.
