darren chamberlain wrote:
>
> Be sure to check that $line is defined:
>
Even better:
> > <perl>
> > use IO::File;
> > my $input = IO::File->new("</tmp/tmppswd") || die "Couldn't open /tmp/foo.pl";
my $line = $input->getline() || 'some safe default value, like
""';
> die "\$line is not defined" unless (defined $line); # <-- Now not really needed
> > 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>
>
Issac
--
Internet is a wonderful mechanism for making a fool of
yourself in front of a very large audience.
--Anonymous
Moving the mouse won't get you into trouble... Clicking it might.
--Anonymous
PGP Key 0xE0FA561B - Fingerprint:
7E18 C018 D623 A57B 7F37 D902 8C84 7675 E0FA 561B