From 1b79332763c57dc0257f4298cebac334453afea3 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Mon, 26 Aug 2002 13:06:19 +0000
Subject: [PATCH] Allow setting of default configuration file.

---
 lib/perl/Config.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/perl/Config.pm b/lib/perl/Config.pm
index bf013b73..6e59ca07 100644
--- a/lib/perl/Config.pm
+++ b/lib/perl/Config.pm
@@ -9,12 +9,18 @@ use Getopt::Long;
 
 our %Sections = ();
 
+our $DefaultConfigFile = "";
+
 sub Parse(@) {
 	my @options = @_;
 	my $defargs = "";
-	push @options, "config|C=s" => sub { my ($o,$a)=@_; $defargs .= " -C'$a'"; };
+	my $override_config = 0;
+	push @options, "config|C=s" => sub { my ($o,$a)=@_; $defargs .= " -C'$a'"; $override_config=1; };
 	push @options, "set|S=s" => sub { my ($o,$a)=@_; $defargs .= " -S'$a'"; };
 	Getopt::Long::GetOptions(@options) or return 0;
+	if (!$override_config && $DefaultConfigFile) {
+		$defargs = "-C'$DefaultConfigFile' $defargs";
+	}
 	foreach my $section (keys %Sections) {
 		my $opts = $Sections{$section};
 		my $optlist = join(" ", keys %$opts);
-- 
2.39.2