diff options
| author | 2025-04-13 17:03:08 +0100 | |
|---|---|---|
| committer | 2025-04-13 17:03:08 +0100 | |
| commit | d0e321b92c55902ccb3ca98ddd8553cb57e55c77 (patch) | |
| tree | d7e0f9cdbe7d292b8409b0156da449eb9299c74e /make | |
| parent | Merge branch 'insp4' into master. (diff) | |
| parent | Remove the {fmt} headers that we don't use. (diff) | |
Merge branch 'insp4' into master.
Diffstat (limited to 'make')
| -rw-r--r-- | make/directive.pm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/make/directive.pm b/make/directive.pm index 14d587572..aa3005750 100644 --- a/make/directive.pm +++ b/make/directive.pm @@ -345,6 +345,24 @@ sub __function_require_library { return $ok; } +sub __function_require_environment { + my ($file, $name, $value) = @_; + + # Check for an inverted match. + my ($ok, $err) = ("", undef); + if ($name =~ s/^!//) { + ($ok, $err) = ($err, $ok); + } + + return $err unless defined $ENV{$name}; + if (defined $value) { + return $err unless $ENV{$name} eq $value; + } + + # Requirement directives don't change anything directly. + return $ok; +} + sub __function_warning { my ($file, @messages) = @_; print_warning @messages; |
