pricecharts

commit 06ac6a7be49828f32f6dc4f67e5bb4536a3f6769
parent bb0b807a4ade0f5cf2c46a32a3862e55f3d7fa1d
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Tue, 11 Nov 2014 13:23:05 -0700

shared: shuffle config grammar around

Diffstat:
M
shared.pm
 | 
17
++++++++---------

1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/shared.pm b/shared.pm
@@ -12,9 +12,15 @@ use POSIX;
 sub get_config
 {
 	my $parser = Config::Grammar->new({
-		_sections => ['vendors', 'general'],
+		_sections => ['general', 'vendors'],
+		general => {
+			_vars => [
+				'user_agent',
+				'email',
+				'smtp',
+			],
+		},
 		vendors	=> {
-			# vendor regular expression
 			_sections => ['/[A-Za-z ]+/'],
 			'/[A-Za-z ]+/' => {
 				_vars => [
@@ -25,13 +31,6 @@ sub get_config
 				],
 			},
 		},
-		general => {
-			_vars => [
-				'user_agent',
-				'email',
-				'smtp',
-			],
-		},
 	});
 	my $cfg_file = "/etc/pricechart.cfg";
 	return $parser->parse($cfg_file) or die "error: $parser->{err}\n";