diff options
author | Bill Pemberton <wfp5p@virginia.edu> | 2012-08-09 13:23:21 (GMT) |
---|---|---|
committer | Steven Rostedt <rostedt@goodmis.org> | 2012-08-16 20:09:16 (GMT) |
commit | 3f0c54131679889d64e8b1831bac40c0d64cf511 (patch) | |
tree | c59112444732061b62261d4e97205f9efbc0be33 /scripts/kconfig | |
parent | 224a257190694f253f7a4c533fd6958d2e5fa669 (diff) | |
download | linux-fsl-qoriq-3f0c54131679889d64e8b1831bac40c0d64cf511.tar.xz |
localmodconfig: Rework find_config in streamline_config.pl
Change find_config function to read_config. It now finds the config,
reads the config into an array, and returns the array. This makes it
a little cleaner and changes the open to use perl's 3 option open.
Signed-off-by: Bill Pemberton <wfp5p@virginia.edu>
Signed-off-by: Steven Rostedt <rostedt@goodmis.org>
Diffstat (limited to 'scripts/kconfig')
-rw-r--r-- | scripts/kconfig/streamline_config.pl | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/scripts/kconfig/streamline_config.pl b/scripts/kconfig/streamline_config.pl index e3687f9..62d64ce 100644 --- a/scripts/kconfig/streamline_config.pl +++ b/scripts/kconfig/streamline_config.pl @@ -100,7 +100,7 @@ my @searchconfigs = ( }, ); -sub find_config { +sub read_config { foreach my $conf (@searchconfigs) { my $file = $conf->{"file"}; @@ -115,17 +115,15 @@ sub find_config { print STDERR "using config: '$file'\n"; - open(CIN, "$exec $file |") || die "Failed to run $exec $file"; - return; + open(my $infile, '-|', "$exec $file") || die "Failed to run $exec $file"; + my @x = <$infile>; + close $infile; + return @x; } die "No config file found"; } -find_config; - -# Read in the entire config file into config_file -my @config_file = <CIN>; -close CIN; +my @config_file = read_config; # Parse options my $localmodconfig = 0; |