From 84a8d1757e7bb25c375ae5398a653a928f2b0371 Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Mon, 26 Aug 2002 10:57:35 +0000 Subject: missed sourcing libScript --- drakwizard.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/drakwizard.pl b/drakwizard.pl index cb0cfbd5..4d001e22 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -62,6 +62,11 @@ if (!defined($ARGV[0])) { ); $ARGV[0] = $wiz{$ARGV[0]}[0]; } + +if ("@ARGV" =~ /--debug/) { + no warnings; +} + my $o = []; $xmltree = XML::Parser->new(Style => 'Tree')->parsefile($ARGV[0]); @@ -202,7 +207,7 @@ sub display { } } if ($_->{main_order} eq 'entry' and $_->{fillScript}) { - $ENV{$variable{$_->{variableName}}} = `$_->{fillScript}`; + $ENV{$variable{$_->{variableName}}} = `. $lib_script && $_->{fillScript}`; chomp($ENV{$variable{$_->{variableName}}}); } elsif (!$ENV{$variable{$_->{variableName}}} && $_->{main_order} eq 'entry' && $_->{fillfunc}) { -- cgit v1.2.1