summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2009-08-24 15:13:37 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2009-08-24 15:13:37 +0000
commit371a686e808cdefe9b7f9a1e32042374c128de2f (patch)
treef3964a949afa83cda43ebb6fbf9db1a11a5eff17 /Build
parent7107e83a7273b3c06133408efe1cbc040dbbe3db (diff)
updmap.pl (mkMaps): replace dir/ls shell commands by Perl code.
git-svn-id: svn://tug.org/texlive/trunk@14844 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r--Build/source/texk/tetex/ChangeLog6
-rw-r--r--Build/source/texk/tetex/updmap.pl13
2 files changed, 9 insertions, 10 deletions
diff --git a/Build/source/texk/tetex/ChangeLog b/Build/source/texk/tetex/ChangeLog
index ccccd87a4df..8be01451f07 100644
--- a/Build/source/texk/tetex/ChangeLog
+++ b/Build/source/texk/tetex/ChangeLog
@@ -1,6 +1,10 @@
+2009-08-24 Reinhard Kotucha <reinhard.kotucha@web.de>
+
+ * updmap.pl (mkMaps): replace dir/ls shell commands by Perl code.
+
2009-08-22 Tomek Trzeciak <t.m.trzeciak@gmail.com>
- * updmap.pl (mkmaps): remove unneeded COMSPEC from backticks
+ * updmap.pl (mkmaps): remove unneeded COMSPEC from backticks
2009-08-19 Karl Berry <karl@tug.org>
diff --git a/Build/source/texk/tetex/updmap.pl b/Build/source/texk/tetex/updmap.pl
index fd787415b21..f75461ad543 100644
--- a/Build/source/texk/tetex/updmap.pl
+++ b/Build/source/texk/tetex/updmap.pl
@@ -1102,17 +1102,12 @@ updmap is creating new map files using the following configuration:\
"$dvipdfmoutputdir/dvipdfm_dl14.map",
"$dvipdfmoutputdir/dvipdfm_ndl14.map",
"$dvipsoutputdir/ps2pk.map") {
- if ($^O=~/^MSWin(32|64)$/) {
- $f =~ s@/@\\@g; $f = "\"$f\"" if ($f =~ m/\s/);
- # rk. Suppress header and footer from dir output.
- @lines = `dir /b /s $f`;
+ if (-e $f) {
+ my @stat=stat($f);
+ printf "%7d %s %s\n", $stat[7], scalar (localtime $stat[9]), $f;
} else {
- @lines = `ls -l $f`;
+ print STDERR "Warning: File $f doesn't exist.\n";
}
- chomp @lines;
- my $rx = "(^ |dvipdfm.map|dvipdfm_dl14.map|dvipdfm_ndl14.map|pdftex.map|pdftex_dl14.map|pdftex_ndl14.map|ps2pk.map|psfonts.map|psfonts_pk.map|psfonts_t1.map|builtin35.map|download35.map)";
- @lines = grep /$rx/, @lines;
- map { print "$_\n"; } @lines;
}
}
}