From c522504578e642f961ed29fb035e9e5da8f70521 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 Feb 2003 13:04:27 +0000
Subject: - better error message for bad modules in modules.pl - handle the
 exit code of modules.pl   (so that .mar files not generated is more
 understandable)

---
 kernel/modules.pl    | 4 ++--
 kernel/update_kernel | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/kernel/modules.pl b/kernel/modules.pl
index 82577b09b..64049b25d 100644
--- a/kernel/modules.pl
+++ b/kernel/modules.pl
@@ -75,9 +75,9 @@ sub flatten_and_check {
 	if (my @bad = difference2(\@l, [ category2modules($category) ])) {
 	    foreach (@bad) {
 		if (my $cat = module2category($_)) {
-		    warn "module $_ is in category $cat, not in $category\n";
+		    warn "ERROR in modules.pl: module $_ is in category $cat, not in $category\n";
 		} else {
-		    warn "unknown module $_\n";
+		    warn "ERROR in modules.pl: unknown module $_\n";
 		}
 	    }
 	    exit 1;
diff --git a/kernel/update_kernel b/kernel/update_kernel
index bbfa405c3..4ed1ff246 100755
--- a/kernel/update_kernel
+++ b/kernel/update_kernel
@@ -93,7 +93,8 @@ for i in $ALL_KERNELS/*; do
 done
 cp -f all.modules/$main/modules.description .
 
-eval `perl modules.pl images`
+l=`perl modules.pl images` || exit 1
+eval $l
 
 for i in $ALL_KERNELS/*; do
 	kern=`basename $i`
-- 
cgit v1.2.1