You are viewing a plain text version of this content. The canonical link for it is here.

Posted to commits@openoffice.apache.org by da...@apache.org on 2016/07/28 04:38:47 UTC

svn commit: r1754353 - /openoffice/trunk/main/solenv/bin/download_external_dependencies.pl

Author: damjan
Date: Thu Jul 28 04:38:47 2016
New Revision: 1754353

URL: http://svn.apache.org/viewvc?rev=1754353&view=rev
Log:
Perl returns the exit code of a subprocess shifted right by 8 bits.
Shift it left before use.

Patch by: me


Modified:
    openoffice/trunk/main/solenv/bin/download_external_dependencies.pl

Modified: openoffice/trunk/main/solenv/bin/download_external_dependencies.pl
URL: http://svn.apache.org/viewvc/openoffice/trunk/main/solenv/bin/download_external_dependencies.pl?rev=1754353&r1=1754352&r2=1754353&view=diff
==============================================================================
--- openoffice/trunk/main/solenv/bin/download_external_dependencies.pl (original)
+++ openoffice/trunk/main/solenv/bin/download_external_dependencies.pl Thu Jul 28 04:38:47 2016
@@ -534,17 +534,18 @@ sub DownloadFile ($$$)
             $URL);
     }
 
-    if ($? == 0)
+    my $rc = $? >> 8;
+    if ($rc == 0)
     {
         return 1;
     }
-    elsif ($? == 1)
+    elsif ($rc == 1)
     {
         return 0;
     }
     else
     {
-        exit $?;
+        exit $rc;
     }
 }