diff options
| author | Peter Powell <petpow@saberuk.com> | 2016-09-16 22:15:08 +0100 |
|---|---|---|
| committer | Peter Powell <petpow@saberuk.com> | 2016-09-21 00:58:17 +0100 |
| commit | 2c350e0b7f3ec4bf1066c769056dbf802297d6fb (patch) | |
| tree | 8cf98365c9d63445b95f90c469e02905df0cb593 /make/directive.pm | |
| parent | 7f2a793d189844425e141929e08bd903a6d8c8d6 (diff) | |
Fix the directive parser using invalid environment variables.
Diffstat (limited to 'make/directive.pm')
| -rw-r--r-- | make/directive.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/make/directive.pm b/make/directive.pm index c490135fd..4501fc5ec 100644 --- a/make/directive.pm +++ b/make/directive.pm @@ -80,6 +80,13 @@ sub execute_functions($$$) { return $line; } +sub __environment { + my ($prefix, $suffix) = @_; + $suffix =~ s/[-.]/_/g; + $suffix =~ s/[^A-Za-z0-9_]//g; + return $prefix . uc $suffix; +} + sub __error { my ($file, @message) = @_; push @message, ''; @@ -142,7 +149,7 @@ sub __function_execute { # If looking up with pkg-config fails then check the environment... if (defined $environment && $environment ne '') { - $environment = sprintf('INSPIRCD_%s', uc $environment); + $environment = __environment 'INSPIRCD_', $environment; if (defined $ENV{$environment}) { print_format "Execution of `<|GREEN $command|>` failed; using the environment: <|BOLD $ENV{$environment}|>\n"; return $ENV{$environment}; @@ -170,7 +177,7 @@ sub __function_find_compiler_flags { } # If looking up with pkg-config fails then check the environment... - my $key = sprintf('INSPIRCD_CXXFLAGS_%s', uc $name); + my $key = __environment 'INSPIRCD_CXXFLAGS_', $name; if (defined $ENV{$key}) { print_format "Found the compiler flags for <|GREEN ${\basename $file, '.cpp'}|> using the environment: <|BOLD $ENV{$key}|>\n"; return $ENV{$key}; @@ -197,7 +204,7 @@ sub __function_find_linker_flags { } # If looking up with pkg-config fails then check the environment... - my $key = sprintf('INSPIRCD_LDFLAGS_%s', uc $name); + my $key = __environment 'INSPIRCD_CXXFLAGS_', $name; if (defined $ENV{$key}) { print_format "Found the linker flags for <|GREEN ${\basename $file, '.cpp'}|> using the environment: <|BOLD $ENV{$key}|>\n"; return $ENV{$key}; |