From 8038efbd68d971a92898359fdb8540a13b85bf50 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 18 Jun 2022 22:30:39 +0000 Subject: say "not" writing to map files, etc., if -n was given. git-svn-id: svn://tug.org/texlive/trunk@63644 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/updmap.pl | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'Master/texmf-dist/scripts') diff --git a/Master/texmf-dist/scripts/texlive/updmap.pl b/Master/texmf-dist/scripts/texlive/updmap.pl index bda82741eea..d2d91221c51 100755 --- a/Master/texmf-dist/scripts/texlive/updmap.pl +++ b/Master/texmf-dist/scripts/texlive/updmap.pl @@ -3,16 +3,15 @@ # updmap - maintain map files for outline fonts. # (Maintained in TeX Live:Master/texmf-dist/scripts/texlive.) # -# Copyright 2011-2021 Norbert Preining +# Copyright 2011-2022 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # # History: -# Original shell script (C) 2002 Thomas Esser +# Original shell script (C) 2002 Thomas Esser, released to the public domain. # first perl variant by Fabrice Popineau -# later adaptions by Reinhard Kotucha and Karl Berry -# the original versions were licensed under the following agreement: -# Anyone may freely use, modify, and/or distribute this file, without +# later adaptions by Reinhard Kotucha, and Karl Berry. +# The current implementation is a complete rewrite. my $svnid = '$Id$'; @@ -481,7 +480,8 @@ sub main { } if (!$opts{'nohash'}) { - print "$prg: Updating ls-R files.\n" if !$opts{'quiet'}; + my $not = $opts{"dry-run"} ? " not (-n)" : ""; + print "$prg:$not updating ls-R files.\n" if !$opts{'quiet'}; $updLSR->{exec}() unless $opts{"dry-run"}; } @@ -1026,7 +1026,8 @@ sub mkMaps { # directory unless we are going to put something there. setupOutputDir("pxdvi") if $pxdviUse eq "true"; - print_and_log ("\n$prg is creating new map files" + my $not = $opts{"dry-run"} ? " not (-n)" : ""; + print_and_log ("\n$prg is$not creating new map files" . "\nusing the following configuration:" . "\n LW35 font names : " . "$mode ($mode_origin)" @@ -1248,7 +1249,7 @@ sub mkMaps { our $link = &setupSymlinks($dvipsPreferOutline, $dvipsoutputdir, $pdftexDownloadBase14, $pdftexoutputdir); - print_and_log ("\nFiles generated:\n"); + print_and_log ("\nFiles$not generated:\n"); sub dir { my ($d, $f, $target)=@_; our $link; @@ -1391,8 +1392,7 @@ listed below). } close LOG unless $opts{'dry-run'}; - print "\nTranscript written on \"$logfile\".\n" if !$opts{'quiet'}; - + print "\nTranscript$not written on: $logfile\n" if !$opts{'quiet'}; } -- cgit v1.2.3