diff options
Diffstat (limited to 'v4l/scripts/make_kconfig.pl')
| -rwxr-xr-x | v4l/scripts/make_kconfig.pl | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/v4l/scripts/make_kconfig.pl b/v4l/scripts/make_kconfig.pl index c58f5b028..d5b34b36c 100755 --- a/v4l/scripts/make_kconfig.pl +++ b/v4l/scripts/make_kconfig.pl @@ -22,14 +22,14 @@ use FileHandle; sub process_config ($) { my $filename = shift; - my $in = new FileHandle; + my $in = new FileHandle; - open $in,"$kernel/include/$filename" or die; + open $in,"$kernel/include/$filename" or die "File not found: $kernel/include/$filename"; while (<$in>) { - if (m|\#include\s+\<(.*)\>|) { + if (m|\#include\s+\<(.*)\>|) { process_config ($1); next; - } + } if (m/\#define\s+CONFIG_([^ ]*)_ON_SMP\s+(.*)\n/) { my $key=$1; my $value=$2; @@ -211,7 +211,7 @@ sub open_kconfig($$) { my $key; #print "opening $file\n"; - open $in,"$file" or die; + open $in,"$file" or die "File not found: $file"; while (<$in>) { # if (m;^\s*source[\s\"]+drivers/media/(video|dvb)/Kconfig;) { # next; @@ -265,7 +265,7 @@ sub open_kconfig($$) { # we need to make sure we've disabled it, and add a bit # to the help text if (m|^\s*(---)?help(---)?\s*$| && $disabled) { - if(exists $tristate{$key} && !$default_seen) { + if(exists $tristate{$key} && !$default_seen) { print OUT "\tdefault n\n"; } print OUT <<"EOF"; @@ -316,7 +316,7 @@ sub parse_versions () my $in = new FileHandle; my $ver; - open $in,"versions.txt" or die; + open $in,"versions.txt" or die "File not found: versions.txt"; while (<$in>) { if (m/\[([\d.]*)\]/) { $ver=$1; @@ -335,7 +335,7 @@ process_config("linux/config.h"); parse_versions; -open IN,".version" or die; +open IN,".version" or die "File not found: .version"; while (<IN>) { if (m/KERNELRELEASE\s*[:]*[=]+\s*(\d+)\.(\d+)\.(\d+)/) { $version=$1; @@ -347,7 +347,7 @@ close IN; printf "Preparing to compile for kernel version %d.%d.%d\n",$version,$level,$sublevel; -open OUT,">Kconfig" or die; +open OUT,">Kconfig" or die "Cannot write Kconfig file"; print OUT <<"EOF"; mainmenu "V4L/DVB menu" @@ -358,10 +358,10 @@ config VIDEO_KERNEL_VERSION ---help--- Normally drivers that require a kernel newer $version.$level.$sublevel, the kernel you are compiling for now, will be disabled. - + Turning this switch on will let you enabled them, but be warned - they may not work properly or even compile. - + they may not work properly or even compile. + They may also work fine, and the only reason they are listed as requiring a newer kernel is that no one has tested them with an older one yet. @@ -380,7 +380,7 @@ while ( my ($key, $value) = each(%config) ) { delete $depend{$key}; } -open OUT,">Kconfig.kern" or die; +open OUT,">Kconfig.kern" or die "Cannot write Kconfig.kern file"; print OUT "config MODULES\n\tboolean\n\tdefault y\n\n"; add_config('MODULES'); @@ -409,11 +409,11 @@ print <<"EOF2"; $key: $mirodep is missing. ***WARNING:*** You do not have the full kernel sources installed. -This does not prevent you from building the v4l-dvb tree if you have the -kernel headers, but the full kernel source is required in order to use +This does not prevent you from building the v4l-dvb tree if you have the +kernel headers, but the full kernel source is required in order to use make menuconfig / xconfig / qconfig. -If you are experiencing problems building the v4l-dvb tree, please try +If you are experiencing problems building the v4l-dvb tree, please try building against a vanilla kernel before reporting a bug. Vanilla kernels are available at http://kernel.org. @@ -446,7 +446,7 @@ do { # Produce a .config file if it's forced or one doesn't already exist if (($force_kconfig eq 1) || !open IN,".config") { - open OUT,">.config" or die; + open OUT,">.config" or die "Cannot write .config file"; while ( my ($key,$value) = each(%tristate) ) { if (!$config{$key}) { print OUT "# CONFIG_$key is not set\n"; |