From bec20a1efbfe1d2948a5ef3fede0a3ff29c8a3cb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 2004 06:32:09 +0000
Subject: - nicer error message for help.pm N parameters error - handle <sect3>
 (and also <option>)

---
 perl-install/share/po/help_xml2pm.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index 7eaa15498..e8adefeb4 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -86,7 +86,7 @@ sub $_() {
     N($s);
 }
 EOF
-	my @nb = $main =~ /\%s/g; @nb == @inside or die "bad \%s in $_\n";
+	my @nb = $main =~ /\%s/g; @nb == @inside or die "help.pm error: bad \%s in sub $_\n";
     }
 }
 
@@ -233,8 +233,8 @@ sub rewrite2_ {
 	"\n$text\n";
     } elsif (member($tree->{tag},  
 		    'acronym', 'application', 'emphasis',  
-		    'keycombo', 'note', 'sect1', 'sect2',
-		    'superscript', 'systemitem', 
+		    'keycombo', 'note', 'sect1', 'sect2', 'sect3',
+		    'superscript', 'systemitem', 'option',
 		    'tip', 'ulink', 'xref', 'varlistentry', 'variablelist', 'term',
 		    'phrase', 'hardware',
 		   )) {
-- 
cgit v1.2.1