Added the local copy of the regex library back.

[libucw.git] / build / genconf

diff --git a/build/genconf b/build/genconf
index ac9755f4aaa7b28b2495b82baf111cc3d06a30dc..eaf2d1c727155632aca5700c29fcd0cda82e7bcc 100755 (executable)
--- a/build/genconf
+++ b/build/genconf
@@ -10,12 +10,19 @@ use warnings;
 open CF, $ARGV[2] or die "Unable to open $ARGV[2]";
 my %options = ();
 my %vars = ();
+sub opt {
+       my ($k,$v) = @_;
+       $vars{$k} = $v;
+       $options{$k} = 1 if ($k =~ /^CONFIG_/);
+}
+foreach my $k (keys %ENV) {
+       opt($k, $ENV{$k});
+}
 while (<CF>) {
        chomp;
        if (my ($k,$v) = /^(\w+)=(.*)/) {
                $v =~ s/\s+$//;
-               $vars{$k} = $v;
-               $options{$k} = 1 if ($k =~ /^CONFIG_/);
+               opt($k, $v);
        }
 }
 close CF;