[PATCH 1/4] UBUNTU: [Config] Comment splitconfig.pl and misc cleanup
Amit Kucheria
amit.kucheria at canonical.com
Tue Jun 9 07:38:18 UTC 2009
Add some comments to the perl script and rename variables to make it
easier to understand.
Signed-off-by: Amit Kucheria <amit.kucheria at canonical.com>
---
debian/scripts/misc/splitconfig.pl | 18 +++++++++---------
1 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/debian/scripts/misc/splitconfig.pl b/debian/scripts/misc/splitconfig.pl
index ed433c3..44025ba 100755
--- a/debian/scripts/misc/splitconfig.pl
+++ b/debian/scripts/misc/splitconfig.pl
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
-%configs = ();
+%allconfigs = ();
%common = ();
print "Reading config's ...\n";
@@ -12,19 +12,18 @@ while (defined($config = readdir(DIR))) {
next if $config !~ /^config\..*/;
# Nothing that is disabled, or remnant
next if $config =~ /.*\.(default|disabled|stub)$/;
- # Server config's are standalone
- #next if $config =~ /config.server-.*/;
- %{$configs{$config}} = ();
+ %{$allconfigs{$config}} = ();
print " processing $config ... ";
open(CONFIG, "< $config");
while (<CONFIG>) {
+ # Skip comments
/^#*\s*CONFIG_(\w+)[\s=](.*)$/ or next;
- ${$configs{$config}}{$1} = $2;
+ ${$allconfigs{$config}}{$1} = $2;
$common{$1} = $2;
}
@@ -40,8 +39,9 @@ print "\n";
print "Merging lists ... \n";
-for $config (keys(%configs)) {
- my %options = %{$configs{$config}};
+# %options - pointer to flavour config inside the allconfigs array
+for $config (keys(%allconfigs)) {
+ my %options = %{$allconfigs{$config}};
print " processing $config ... ";
@@ -86,8 +86,8 @@ print "done.\n\n";
print "Creating stub configs ...\n";
-for $config (keys(%configs)) {
- my %options = %{$configs{$config}};
+for $config (keys(%allconfigs)) {
+ my %options = %{$allconfigs{$config}};
print " processing $config ... ";
--
1.6.3.1
More information about the kernel-team
mailing list