(run_postinst_cmd): let's try reporting failed

postinst command.


git-svn-id: svn://tug.org/texlive/trunk@49005 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 6 insertions, 5 deletions

diff --git a/Master/install-tl b/Master/install-tl
index 97f8202b973..1d2c3a8e9bc 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -965,13 +965,14 @@ sub run_postinst_cmd {
   
   info ("running $cmd ...");
   my ($out,$ret) = TeXLive::TLUtils::run_cmd ("$cmd 2>&1");
-  info ("done\n");
-  log ($out);
-
-  if ($ret != 0) {
-    tlwarn ("$0: $cmd failed: $!\n");
+  if ($ret == 0) {
+    info ("done\n");
+  } else {
+    info ("failed\n");
+    tlwarn ("$0: $cmd failed (status $ret): $!\n");
     $ret = 1; # be sure we don't overflow the sum on anything crazy
   }
+  log ($out);
   
   return $ret;
 } # run_postinst_cmd