stas 2003/10/16 14:33:28
Modified: lib/ModPerl BuildOptions.pm Log: prevent uninit warnings in parse_file as $ENV{HOME} does not always exist Submitted by: Steve Hay <[EMAIL PROTECTED]> Revision Changes Path 1.23 +3 -2 modperl-2.0/lib/ModPerl/BuildOptions.pm Index: BuildOptions.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/ModPerl/BuildOptions.pm,v retrieving revision 1.22 retrieving revision 1.23 diff -u -u -r1.22 -r1.23 --- BuildOptions.pm 7 Oct 2003 18:28:38 -0000 1.22 +++ BuildOptions.pm 16 Oct 2003 21:33:28 -0000 1.23 @@ -104,8 +104,9 @@ my $self = shift; my $fh; - my @files = map { $_ . 'makepl_args.mod_perl2' } - qw(./ ../ ./. ../.), "$ENV{HOME}/."; + my @dirs = qw(./ ../ ./. ../.); + push @dirs, "$ENV{HOME}/." if exists $ENV{HOME}; + my @files = map { $_ . 'makepl_args.mod_perl2' } @dirs; unshift @files, $self->{MP_OPTIONS_FILE} if $self->{MP_OPTIONS_FILE}; for my $file (@files) {