1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index 7318f4a7b..e9aefa5c6 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -5,12 +5,19 @@ use MDK::Common;
 
 my $help;
 my $dir = "doc/manual/literal/drakx";
+my $xsltproc = "/usr/bin/xsltproc";
+
+if ( ! -x "$xsltproc" ){
+    print "You need to have \"$xsltproc\" - ";
+    print "so type \"urpmi libxslt-proc\" please.\n";
+    exit 1;
+}
 my @langs = grep { /^..$/ && -e "$dir/$_/drakx-help.xml" } all($dir) or die "no XML help found in $dir\n";
 
 my %helps = map {
     my $lang = $_;
     my $p = new XML::Parser(Style => 'Tree');
-    open F, "xsltproc id.xsl $dir/$lang/drakx-help.xml|";
+    open F, "$xsltproc id.xsl $dir/$lang/drakx-help.xml|";
     my $tree = $p->parse(*F);
 
     $lang => rewrite2(rewrite1(@$tree), $lang);