cswrap: blacklist UU/try.c used by perl-5.26.2

csutils · Sep 13, 2018 · 4fc7ee4 · 4fc7ee4
1 parent 7704be3
commit 4fc7ee4
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/cswrap.c b/cswrap.c
@@ -484,6 +484,13 @@ bool find_conftest_in_args(char **argv)
         /* used by qemu-guest-agent */
         if (STREQ(arg, "config-temp/qemu-conf.c"))
             return true;
+
+        /* try.c in UU/ - used by perl-5.26.2 */
+        if (STREQ(arg, "try.c")) {
+            char cwd[PATH_MAX];
+            if (getcwd(cwd, sizeof cwd) && STREQ("UU", basename(cwd)))
+                return true;
+        }
     }
 
     return false;