=================================================================== RCS file: /cvs/mandoc/regress/regress.pl,v retrieving revision 1.14 retrieving revision 1.15 diff -u -p -r1.14 -r1.15 --- mandoc/regress/regress.pl 2020/03/13 15:32:31 1.14 +++ mandoc/regress/regress.pl 2020/07/21 15:14:20 1.15 @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $Id: regress.pl,v 1.14 2020/03/13 15:32:31 schwarze Exp $ +# $Id: regress.pl,v 1.15 2020/07/21 15:14:20 schwarze Exp $ # # Copyright (c) 2017, 2018, 2019, 2020 Ingo Schwarze # @@ -267,12 +267,13 @@ for my $test (@regress_tests) { $test->{NAME} =~ /^$onlytest/) { $count_tag++; $count_total++; - local $ENV{MANPAGER} = "./copyless $test->{NAME}"; my @cmd = (qw(../man -l), @{$test->{MOPTS}}, - qw(-I os=OpenBSD -T ascii), $i); + qw(-I os=OpenBSD -T ascii -O), + "outfilename=$o,tagfilename=$to", "$i"); print "@cmd\n" if $targets{verbose}; system @cmd and fail $test->{NAME}, 'tag:man'; + system qw(sed -i), 's/ .*\// /', $to; system @diff, $tw, $to and fail $test->{NAME}, 'tag:diff'; print "." unless $targets{verbose};