Add pp error check

TECLIB · Nov 13, 2020 · 1e42ebd · 1e42ebd
1 parent 49900c9
commit 1e42ebd
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Perl/Scripts/build-strawberry-perl-package-for-fusioninventory-agent.sh b/Perl/Scripts/build-strawberry-perl-package-for-fusioninventory-agent.sh
@@ -229,6 +229,13 @@ while (( ${iter} < ${#archs[@]} )); do
        "${tmpdir}/${strawberry_pepfia_par_template_file}" > ../../pp-${arch_label}s.log 2>&1
    )
 
+   # Check whether there is an error
+   if (( $? != 0 )); then
+      echo
+      echo "There has been an error while building the Perl ARchive (PAR) package for Strawberry Perl ${strawberry_release} (${strawberry_version}-${arch_label}s)."
+      exit 5
+   fi
+
    # Partial clean
    #    It seems "${tmpdir}/inc" is created when pp takes into account
    #    the Perl module inc::Module::Install