From b1ad91c5a16d5524b4b2b04aa37194c728a02d6e Mon Sep 17 00:00:00 2001 From: Ingo Schwarze Date: Tue, 3 Sep 2019 18:19:37 +0000 Subject: adapt to new

output logic (html.c rev. 1.260) --- regress/regress.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'regress/regress.pl') diff --git a/regress/regress.pl b/regress/regress.pl index 8ee2640d..d275a7ba 100755 --- a/regress/regress.pl +++ b/regress/regress.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $Id: regress.pl,v 1.11 2019/07/01 22:56:26 schwarze Exp $ +# $Id: regress.pl,v 1.12 2019/09/03 18:19:37 schwarze Exp $ # # Copyright (c) 2017 Ingo Schwarze # @@ -86,8 +86,12 @@ sub syshtml ($@) { if (!$state && s/.*//) { $state = 'math'; next unless length; - } elsif (/^BEGINTEST/) { + } elsif (/BEGINTEST/) { $state = 'other'; + next; + } elsif (/ENDTEST/) { + $state = 0; + next; } if ($state eq 'math') { s/^ *//; @@ -98,7 +102,6 @@ sub syshtml ($@) { } } print $outfd "$_\n" if $state; - $state = 0 if /^ENDTEST/; } close $outfd; close $infd; -- cgit v1.2.3-56-ge451