Added some error messages to the script

From: Mauro Carvalho Chehab <mchehab@infradead.org>

Signed-off-by: Mauro Carvalho Chehab <mchehab@infradead.org>

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";