skip shadow call when euid > 0 on linux

maybe __linux__ is not restrictive enough and we could consider using a hint sh file to enable it only on some specific distro?
atoomic · Jul 16, 2018 · b6c147c · b6c147c
1 parent 032639c
commit b6c147c
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/pp_sys.c b/pp_sys.c
@@ -5562,7 +5562,11 @@ PP(pp_gpwent)
 	 * --jhi */
 	/* Some AIX setups falsely(?) detect some getspnam(), which
 	 * has a different API than the Solaris/IRIX one. */
+
 #   if defined(HAS_GETSPNAM) && !defined(_AIX)
+#      ifdef __linux__
+    if (!PerlProc_geteuid())
+#      endif
 	{
 	    dSAVE_ERRNO;
 	    const struct spwd * const spwent = getspnam(pwent->pw_name);