}
elsif (/$RULE_PATTERN/o)
{
- # warn "** Saw rule .$1.\n";
# Found a rule.
$was_rule = 1;
if (defined $contents{$1}
{
if ($conditional{$1})
{
- &check_ambiguous_conditional ($last_var_name,
- $cond_string);
+ &check_ambiguous_conditional ($1, $cond_string);
$conditional{$1} .= ' ';
}
else
}
elsif (/$RULE_PATTERN/o)
{
- # warn "** Found rule .$1.\n";
# Found a rule.
$was_rule = 1;
$skipping = defined $contents{$1};
- # warn "** Skip $skipping\n" if $skipping;
$result_rules .= $comment . $spacing . $_ if ! $skipping;
$comment = $spacing = '';
$saw_bk = /\\$/;
}
elsif (/$MACRO_PATTERN/o)
{
- # warn "** Found macro .$1.\n";
# Found a variable reference.
$was_rule = 0;
$skipping = defined $contents{$1};
- # warn "** Skip $skipping\n" if $skipping;
$result_vars .= $comment . $spacing . $_ if ! $skipping;
$comment = $spacing = '';
$saw_bk = /\\$/;