* Use CamelCase for the Perl modules.

1 files changed, 17 insertions, 0 deletions

diff --git a/scripts/NixConfig.pm.in b/scripts/NixConfig.pm.in
new file mode 100644
index 000000000000..aeb443aeed3a
--- /dev/null
+++ b/scripts/NixConfig.pm.in
@@ -0,0 +1,17 @@
+use strict;
+
+sub readConfig {
+    my %config;
+    my $config = "@sysconfdir@/nix/nix.conf";
+    return unless -f $config;
+    
+    open CONFIG, "<$config" or die "cannot open `$config'";
+    while (<CONFIG>) {
+        /^\s*([\w|-]+)\s*=\s*(.*)$/ or next;
+        $config{$1} = $2;
+        print "|$1| -> |$2|\n";
+    }
+    close CONFIG;
+}
+
+return 1;