summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-06-18 22:30:39 +0000
committerKarl Berry <karl@freefriends.org>2022-06-18 22:30:39 +0000
commit8038efbd68d971a92898359fdb8540a13b85bf50 (patch)
tree3eaab6fee72b9428b757e8182380917ad54b0dab /Master/texmf-dist/scripts
parent0d8b8af57089e52034443c7c8c70437bcfe55dda (diff)
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
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/updmap.pl20
1 files changed, 10 insertions, 10 deletions
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'};
}