diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2011-02-06 00:03:53 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2011-02-06 00:03:53 +0000 |
commit | 85557754b4d84edcba01496301d22b4848febe05 (patch) | |
tree | c32e538c55280eee56c774ca37d9323b64c57cff /Master/tlpkg/dev | |
parent | 213d44e84d9591c938b7803e25c788c0aee762be (diff) |
tlpkg/dev/updmap.pl: Remove unused io redirection stuff.
git-svn-id: svn://tug.org/texlive/trunk@21311 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/dev')
-rwxr-xr-x | Master/tlpkg/dev/updmap.pl | 32 |
1 files changed, 1 insertions, 31 deletions
diff --git a/Master/tlpkg/dev/updmap.pl b/Master/tlpkg/dev/updmap.pl index 38ce18f2619..84a71af49be 100755 --- a/Master/tlpkg/dev/updmap.pl +++ b/Master/tlpkg/dev/updmap.pl @@ -7,8 +7,8 @@ # ############################################################################### # $Id$ -$^W=1; BEGIN { + $^W=1; chomp($TEXMFROOT = `kpsewhich -var-value=TEXMFROOT`); unshift (@INC, "$TEXMFROOT/tlpkg"); } @@ -382,36 +382,6 @@ sub copyFile { } ############################################################################### -# start_redirection(), stop_redirection() -# redirects stdout and stderr to log file (possibly "nul") -############################################################################### -sub start_redirection { - my ($log) = @_; - - # start redirection if asked - if ($log) { - open(SO, ">&STDOUT"); - open(SE, ">&STDERR"); - - close(STDOUT); - close(STDERR); - - open(STDOUT, ">$log"); - open(STDERR,">&STDOUT"); - - select(STDERR); $| = 1; - select(STDOUT); $| = 1; - } -} - -sub stop_redirection { - close(STDOUT); - close(STDERR); - open(STDOUT, ">&SO"); - open(STDERR, ">&SE"); -} - -############################################################################### # help() # display help message and exit ############################################################################### |