diff options
| author | Peter Powell <petpow@saberuk.com> | 2016-09-11 21:19:28 +0100 |
|---|---|---|
| committer | Peter Powell <petpow@saberuk.com> | 2016-09-16 04:23:56 +0100 |
| commit | 806e57433a38193ae14942ee60f573fe47f4b643 (patch) | |
| tree | d02a60dca483d429505f77d74fb349552f57f7ff /make/configure.pm | |
| parent | 6c98c2987402d9e9310cad9af1bab523bd60cb51 (diff) | |
Rewrite the build system directive parser.
Diffstat (limited to 'make/configure.pm')
| -rw-r--r-- | make/configure.pm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/make/configure.pm b/make/configure.pm index 8619d5be2..e88454658 100644 --- a/make/configure.pm +++ b/make/configure.pm @@ -38,7 +38,6 @@ use File::Spec::Functions qw(catfile); use make::common; use make::console; -use make::utilities; use constant CONFIGURE_DIRECTORY => '.configure'; use constant CONFIGURE_CACHE_FILE => catfile(CONFIGURE_DIRECTORY, 'cache.cfg'); @@ -56,7 +55,6 @@ our @EXPORT = qw(CONFIGURE_CACHE_FILE write_configure_cache get_compiler_info find_compiler - get_property parse_templates); sub __get_socketengines { @@ -268,21 +266,6 @@ sub find_compiler { } } -sub get_property($$;$) -{ - my ($file, $property, $default) = @_; - open(MODULE, $file) or return $default; - while (<MODULE>) { - if ($_ =~ /^\/\* \$(\S+): (.+) \*\/$/) { - next unless $1 eq $property; - close(MODULE); - return translate_functions($2, $file); - } - } - close(MODULE); - return $default // ''; -} - sub parse_templates($$$) { # These are actually hash references |