You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/10/16 23:33:28 UTC
cvs commit: modperl-2.0/lib/ModPerl BuildOptions.pm
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 <st...@uk.radan.com>
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) {