summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-02-03 17:11:50 +0000
committerKarl Berry <karl@freefriends.org>2009-02-03 17:11:50 +0000
commit5181351cb121c77843bc7a4b08ad53d088bd63a7 (patch)
tree9cb33349baae2900fc5aa006d7414a1811543313
parentcef2b7a6f8fb72066b978e0454f89bb8efa4db70 (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
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm4
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";
}