|
|
|
|
@ -271,7 +271,7 @@ sub package2data ($$) {
|
|
|
|
|
} elsif (exists $evar{$3}) { |
|
|
|
|
$term .= ($4 eq 'no' ? '! ' : '').vsub(\%evar,'%{'.$3.'}'); |
|
|
|
|
} else { |
|
|
|
|
warn "WARNING: unknown conditional '$2':\n< $l\n> $v\n"; |
|
|
|
|
warn "WARNING: unknown conditional '$3':\n< $l\n> $v\n"; |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
@ -312,9 +312,17 @@ sub package2data ($$) {
|
|
|
|
|
# |
|
|
|
|
if (exists $evar{$1}) { |
|
|
|
|
if ($2 eq 'yes') { |
|
|
|
|
$evar{$1} = "( \%\{$1\} || ( $cond ) )"; |
|
|
|
|
if ($cond eq '') { |
|
|
|
|
$evar{$1} = "( \%\{$1\} )"; |
|
|
|
|
} else { |
|
|
|
|
$evar{$1} = "( \%\{$1\} || ( $cond ) )"; |
|
|
|
|
} |
|
|
|
|
} elsif ($2 eq 'no') { |
|
|
|
|
$evar{$1} = "( %\{$1\} && ! ( $cond ) )"; |
|
|
|
|
if ($cond eq '') { |
|
|
|
|
$evar{$1} = "( \%\{$1\} )"; |
|
|
|
|
} else { |
|
|
|
|
$evar{$1} = "( %\{$1\} && ! ( $cond ) )"; |
|
|
|
|
} |
|
|
|
|
} else { |
|
|
|
|
warn "WARNING: logic too complex for '$1':\n< $l\n> $v\n"; |
|
|
|
|
} |
|
|
|
|
|