diff options
| author | Karl Berry <karl@freefriends.org> | 2009-02-03 17:11:50 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2009-02-03 17:11:50 +0000 |
| commit | 5181351cb121c77843bc7a4b08ad53d088bd63a7 (patch) | |
| tree | 9cb33349baae2900fc5aa006d7414a1811543313 /Master/tlpkg/TeXLive | |
| parent | cef2b7a6f8fb72066b978e0454f89bb8efa4db70 (diff) | |
(xystem): only divide by 256 if return value is > 0.
git-svn-id: svn://tug.org/texlive/trunk@12065 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 1f3d3f951f9..8f1c36ab94e 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1,7 +1,7 @@ # $Id$ # The inevitable utilities for TeX Live. # -# Copyright 2007, 2008 Norbert Preining, Reinhard Kotucha +# Copyright 2007, 2008, 2009 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -392,7 +392,7 @@ sub xsystem ddebug("running system(@args)\n"); my $retval = system(@args); if ($retval != 0) { - $retval /= 256; + $retval /= 256 if $retval > 0; my $pwd = cwd (); die "$0: system(@args) failed in $pwd, status $retval"; } |