Check unlink on directory for all users, not just root.

For cross-platform consistency, it makes more sense to reject
unlink attempts on directories in the same way for all users
rather than only for root.  geteuid() always returns zero on
Windows, never returns zero on VMS, and is a poor indicator
of privilege on modern unixen, so the code really hasn't been
working as intended on all platforms anyway.

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 56d33b2c62..b80460aa54 100644
--- a/doio.c
+++ b/doio.c
@@ -1816,7 +1816,7 @@ nothing in the core.
 	    if (!IS_SAFE_PATHNAME(s, len, "unlink")) {
                 tot--;
             }
-	    else if (PerlProc_geteuid() || PL_unsafe) {
+	    else if (PL_unsafe) {
 		if (UNLINK(s))
 		    tot--;
 	    }