diff options
author | Aaron Crane <arc@cpan.org> | 2019-04-25 10:25:09 +0100 |
---|---|---|
committer | Raphaƫl Manfredi <Raphael_Manfredi@pobox.com> | 2020-04-26 10:28:45 +0200 |
commit | ed9965c886297c329bb6530a3cb34870666a252a (patch) | |
tree | 95c811dec174568263fed31ea81ffb8f68ab7cb7 /mcon/mconfig.SH | |
parent | 9f837754617b4cb3a6b2dbd176e621ad83bd4c15 (diff) |
Fix bug when $exclusions_file is specified in .package file
The actual programs were trying to load the exclusions file before reading
.package (or even, in one case, without trying to read it at all). I failed
to notice this because I had a "-X" option that duplicated the intended use
of the setting in my .package file.
Diffstat (limited to 'mcon/mconfig.SH')
-rwxr-xr-x | mcon/mconfig.SH | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mcon/mconfig.SH b/mcon/mconfig.SH index 4917e43..42a3dc1 100755 --- a/mcon/mconfig.SH +++ b/mcon/mconfig.SH @@ -70,8 +70,6 @@ chop($date = `date`); use Getopt::Std; &usage unless getopts("dhkmostvwGMVL:X:"); -my %excluded_symbol; -read_exclusions($opt_X); $MC = $opt_L if $opt_L; # May override public library path $MC = &tilda_expand($MC); # ~name expansion chop($WD = `pwd`); # Working directory @@ -93,6 +91,8 @@ unlink 'Wanted' unless $opt_w; # Wanted rebuilt if no -w unlink 'Obsolete' unless $opt_w; # Obsolete file rebuilt if no -w &readpackage; # Merely get the package's name &init; # Various initializations +my %excluded_symbol; +read_exclusions($opt_X); # Load -X or .package equivalent `mkdir .MT 2>&1` unless -d '.MT'; # For private temporary files &locate_units; # Fill in @ARGV with a unit list |