From a8f89dab926914ba921b09adc6eaf2e92f9e0512 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Tue, 22 Feb 2005 11:36:49 +0000 Subject: ISG::ParseConfig bugfixes. --- lib/ISG/ParseConfig.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib') diff --git a/lib/ISG/ParseConfig.pm b/lib/ISG/ParseConfig.pm index e578bf8..9afdb11 100644 --- a/lib/ISG/ParseConfig.pm +++ b/lib/ISG/ParseConfig.pm @@ -599,15 +599,15 @@ sub _parse_line($$$) /^\*\*\*\s*(.*?)\s*\*\*\*$/ and do { my $name = $1; - $self->_check_section_sub($name) or return 0; $self->_goto_level(1, $name) or return 0; + $self->_check_section_sub($name) or return 0; return 1; }; /^(\++)\s*(.*)$/ and do { my $level = length $1; my $name = $2; - $self->_check_section_sub($name) or return 0; $self->_goto_level($level + 1, $name) or return 0; + $self->_check_section_sub($name) or return 0; return 1; }; @@ -792,8 +792,8 @@ sub _describevar { my @doc; push @doc, "=item B<$var>".$mandatory; push @doc, $tree->{$var}{_doc} if $tree->{$var}{_doc} ; - my $inherited = $tree->{_inherited} and - grep {$_ eq $var} @{$tree->{_inherited}}; + my $inherited = ( $tree->{_inherited} and + grep {$_ eq $var} @{$tree->{_inherited}}); push @doc, "This variable I its value from the parent section if nothing is specified here." if $inherited; push @doc, "This variable I modifies the grammar based on its value." -- cgit v1.2.3-24-g4f1b