From f0b47c91953ce00f2f581cca6330af608c765144 Mon Sep 17 00:00:00 2001 From: Takuji Tanaka Date: Sun, 27 Nov 2022 10:02:50 +0000 Subject: (u)ptex: use perl instead of sed for test scripts git-svn-id: svn://tug.org/texlive/trunk@65116 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ptexdir/yokotate.test | 3 ++- Build/source/texk/web2c/uptexdir/yokotate.test | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Build/source/texk/web2c/ptexdir/yokotate.test b/Build/source/texk/web2c/ptexdir/yokotate.test index 380fa4cc623..24a42cacee2 100755 --- a/Build/source/texk/web2c/ptexdir/yokotate.test +++ b/Build/source/texk/web2c/ptexdir/yokotate.test @@ -40,8 +40,9 @@ for enc in utf8 euc sjis jis; do ./ptftopl -kanji=$enc $testdir/$font.tfm ptests/x$font-$enc.pl && \ if [ $enc = utf8 ]; then \ - sed -i".bak" -e "y/―~∥-¢£¬/—〜‖−¢£¬/" ptests/x$font-$enc.pl; fi && \ + perl -i".bak" -CD -pe "use utf8; tr/―~∥-¢£¬/—〜‖−¢£¬/" ptests/x$font-$enc.pl; fi && \ diff $testdir/$font-$enc.pl ptests/x$font-$enc.pl && echo || exit 6 + done done diff --git a/Build/source/texk/web2c/uptexdir/yokotate.test b/Build/source/texk/web2c/uptexdir/yokotate.test index 87f32eb1ea6..5edd8eee3c9 100755 --- a/Build/source/texk/web2c/uptexdir/yokotate.test +++ b/Build/source/texk/web2c/uptexdir/yokotate.test @@ -43,7 +43,7 @@ for enc in utf8 euc sjis jis; do ./uptftopl -kanji=$enc $testdir/$font.tfm uptests/x$font-$enc.pl && \ if [ $enc = utf8 ]; then \ - sed -i".bak" -e "y/―~∥-¢£¬/—〜‖−¢£¬/" uptests/x$font-$enc.pl; fi && \ + perl -i".bak" -CD -pe "use utf8; tr/―~∥-¢£¬/—〜‖−¢£¬/" uptests/x$font-$enc.pl; fi && \ diff $testdir/$font-$enc.pl uptests/x$font-$enc.pl && echo || exit 6 done -- cgit v1.2.3