From 3094a07dd4df1f2a72fd9aa5ed50d01ffc231a99 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 26 Oct 2007 09:43:13 +0000
Subject: add some debug message: detect @::auto_steps containing invalid step
 (esp when used in patch-oem.pl)

---
 perl-install/install/install2.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install/install/install2.pm')

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 77536d7c0..53597f813 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -552,8 +552,11 @@ sub main {
     $ENV{META_CLASS} = $o->{meta_class}; #- for Ia Ora
 
     foreach (@::auto_steps) {
-	my $s = $o->{steps}{/::(.*)/ ? $1 : $_} or next;
-	$s->{auto} = $s->{hidden} = 1;
+	if (my $s = $o->{steps}{/::(.*)/ ? $1 : $_}) {
+	    $s->{auto} = $s->{hidden} = 1;
+	} else {
+	    log::l("ERROR: unknown step $_ in auto_steps");
+	}
     }
 
     my $o_;
-- 
cgit v1.2.1