diff --git a/lib/Parrot/Configure/Compiler.pm b/lib/Parrot/Configure/Compiler.pm index f1eb752153..e995bb7391 100644 --- a/lib/Parrot/Configure/Compiler.pm +++ b/lib/Parrot/Configure/Compiler.pm @@ -488,7 +488,6 @@ sub genfile { my ($op, $expr, $rest); # allow multiple keys and nested parens here if (($op,$expr,$rest)=($line =~ m/^#(IF|UNLESS|ELSIF)\((.+)\):(.*)/s)) { -#print STDERR "$line\n"; $conf->debug("genfile(): line: $line"); if (($op eq 'ELSIF') and $former_truth) { next LINE; # no useless check if former IF was true @@ -667,7 +666,6 @@ sub cond_eval_single { sub cond_eval { my $conf = $_[0]; my $expr = $_[1]; -#print STDERR "cond_eval expr: $expr\n"; $conf->debug("cond_eval(): $expr\n"); my @count = split /[\s!&|\(]+/, $expr; # optimizable with tr my $truth = 0;