=================================================================== RCS file: /cvs/mandoc/regress/regress.pl,v retrieving revision 1.15 retrieving revision 1.16 diff -u -p -r1.15 -r1.16 --- mandoc/regress/regress.pl 2020/07/21 15:14:20 1.15 +++ mandoc/regress/regress.pl 2021/09/19 12:15:34 1.16 @@ -1,8 +1,8 @@ #!/usr/bin/env perl # -# $Id: regress.pl,v 1.15 2020/07/21 15:14:20 schwarze Exp $ +# $Id: regress.pl,v 1.16 2021/09/19 12:15:34 schwarze Exp $ # -# Copyright (c) 2017, 2018, 2019, 2020 Ingo Schwarze +# Copyright (c) 2017,2018,2019,2020,2021 Ingo Schwarze # # Permission to use, copy, modify, and distribute this software for any # purpose with or without fee is hereby granted, provided that the above @@ -261,6 +261,7 @@ for my $test (@regress_tests) { my $o = "$test->{NAME}.mandoc_ascii"; my $w = "$test->{NAME}.out_ascii"; my $to = "$test->{NAME}.mandoc_tag"; + my $tos = "$test->{NAME}.mandoc_tag_s"; my $tw = "$test->{NAME}.out_tag"; my $diff_ascii; if ($targets{tag} && $tag_tests{$test->{NAME}} && @@ -273,8 +274,8 @@ for my $test (@regress_tests) { print "@cmd\n" if $targets{verbose}; system @cmd and fail $test->{NAME}, 'tag:man'; - system qw(sed -i), 's/ .*\// /', $to; - system @diff, $tw, $to + system "sed 's: .*/: :' $to > $tos"; + system @diff, $tw, $tos and fail $test->{NAME}, 'tag:diff'; print "." unless $targets{verbose}; $diff_ascii = $targets{ascii}; @@ -309,8 +310,8 @@ for my $test (@regress_tests) { print "." unless $targets{verbose}; } if ($targets{clean}) { - print "rm $o $to $m $mo\n" if $targets{verbose}; - $count_rm += unlink $o, $to, $m, $mo; + print "rm $o $to $tos $m $mo\n" if $targets{verbose}; + $count_rm += unlink $o, $to, $tos, $m, $mo; } } if ($targets{ascii} || $targets{tag} || $targets{man}) {