From 371a686e808cdefe9b7f9a1e32042374c128de2f Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Mon, 24 Aug 2009 15:13:37 +0000 Subject: 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 --- Build/source/texk/tetex/ChangeLog | 6 +++++- Build/source/texk/tetex/updmap.pl | 13 ++++--------- 2 files changed, 9 insertions(+), 10 deletions(-) (limited to 'Build/source/texk/tetex') 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 + + * updmap.pl (mkMaps): replace dir/ls shell commands by Perl code. + 2009-08-22 Tomek Trzeciak - * updmap.pl (mkmaps): remove unneeded COMSPEC from backticks + * updmap.pl (mkmaps): remove unneeded COMSPEC from backticks 2009-08-19 Karl Berry 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; } } } -- cgit v1.2.3