diff options
Diffstat (limited to 'v4l/scripts')
| -rwxr-xr-x | v4l/scripts/make_kconfig.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/v4l/scripts/make_kconfig.pl b/v4l/scripts/make_kconfig.pl index c58f5b028..feef72c92 100755 --- a/v4l/scripts/make_kconfig.pl +++ b/v4l/scripts/make_kconfig.pl @@ -24,7 +24,7 @@ sub process_config ($) my $filename = shift; 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+\<(.*)\>|) { process_config ($1); @@ -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; @@ -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" @@ -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'); @@ -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"; |