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;