attribute SEGVs in perl to script's package, like we already do for python

Signed-off-by: Denys Vlasenko <vda.linux@googlemail.com>

1 files changed, 5 insertions, 4 deletions

diff --git a/src/Daemon/MiddleWare.cpp b/src/Daemon/MiddleWare.cpp
index 5a12d764..a89070e9 100644
--- a/src/Daemon/MiddleWare.cpp
+++ b/src/Daemon/MiddleWare.cpp
@@ -601,15 +601,16 @@ static mw_result_t SavePackageDescriptionToDebugDump(
         const char *basename = strrchr(pExecutable, '/');
         if (basename) basename++; else basename = pExecutable;
 
-        /* Add "perl" and such as needed */
-        if (strcmp(basename, "python") == 0)
-        {
+        /* Add more interpreters as needed */
+        if (strcmp(basename, "python") == 0
+         || strcmp(basename, "perl") == 0
+        ) {
 // TODO: we don't verify that python executable is not modified
 // or that python package is properly signed
 // (see CheckFingerprint/CheckHash below)
 
             /* Try to find package for the script by looking at argv[1].
-             * This will work only of the cmdline contains the whole path.
+             * This will work only if the cmdline contains the whole path.
              * Example: python /usr/bin/system-control-network
              */
             char *script_name = get_argv1_if_full_path(cmdline);