diff options
| author | Peter Powell <petpow@saberuk.com> | 2017-03-24 21:44:33 +0000 |
|---|---|---|
| committer | Peter Powell <petpow@saberuk.com> | 2017-03-25 00:54:25 +0000 |
| commit | c185edf71cdd9aa4b72ffd9059534d8ac0cb1249 (patch) | |
| tree | f8767f7b21a0f3f623254520c14209faaa687443 /make/configure.pm | |
| parent | 64273cc51bcd7efb60e7c1636ee75696a791db22 (diff) | |
Extract core logic of write_configure_cache to write_config_file.
Diffstat (limited to 'make/configure.pm')
| -rw-r--r-- | make/configure.pm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/make/configure.pm b/make/configure.pm index ed03f5b24..a10493318 100644 --- a/make/configure.pm +++ b/make/configure.pm @@ -222,12 +222,7 @@ sub write_configure_cache(%) { print_format "Writing <|GREEN ${\CONFIGURE_CACHE_FILE}|> ...\n"; my %config = @_; - open(CACHE, '>', CONFIGURE_CACHE_FILE) or print_error "unable to write ${\CONFIGURE_CACHE_FILE}: $!"; - while (my ($key, $value) = each %config) { - $value //= ''; - say CACHE "$key $value"; - } - close(CACHE); + write_config_file CONFIGURE_CACHE_FILE, %config; } sub get_compiler_info($) { |