Parse condstack in final printing.

2026-09-24 03:15:00 +08:00 · 2010-09-08 04:11:06 +00:00
parent ffa0418d2f
commit 4539347502
1 changed files with 13 additions and 1 deletions
@@ -240,4 +240,16 @@ foreach my $line ( @buffer3 )
 #  print STDERR @condstack, "LINE: $line\n";
 }

-print STDOUT @buffer4;
+print STDERR @buffer4 if $verbose > 2;
+
+foreach my $line (@buffer4) {
+  if ( $line =~ /^(<.*>):(.*)$/ ) {
+    if ( $1 =~ m/.*<FALSE:.*$/ ) {
+    } else {
+      print STDOUT "$2\n";
+    }
+  } else {
+    die "Unexpected value: $line\n";
+  }
+}
+