This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In PerlIO_debug(), if tainting or set*id, set PL_perlio_debug_fd to -1
authorNicholas Clark <nick@ccl4.org>
Sun, 1 Oct 2006 20:22:02 +0000 (20:22 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 1 Oct 2006 20:22:02 +0000 (20:22 +0000)
first time through to reduce the checks on subsequent calls.

p4raw-id: //depot/perl@28911

perlio.c

index a3ff71d..ddc0ad8 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -473,12 +473,19 @@ PerlIO_debug(const char *fmt, ...)
     va_list ap;
     dSYS;
     va_start(ap, fmt);
-    if (!PL_perlio_debug_fd && !PL_tainting && PL_uid == PL_euid && PL_gid == PL_egid) {
-       const char * const s = PerlEnv_getenv("PERLIO_DEBUG");
-       if (s && *s)
-           PL_perlio_debug_fd = PerlLIO_open3(s, O_WRONLY | O_CREAT | O_APPEND, 0666);
-       else
+    if (!PL_perlio_debug_fd) {
+       if (!PL_tainting && PL_uid == PL_euid && PL_gid == PL_egid) {
+           const char * const s = PerlEnv_getenv("PERLIO_DEBUG");
+           if (s && *s)
+               PL_perlio_debug_fd
+                   = PerlLIO_open3(s, O_WRONLY | O_CREAT | O_APPEND, 0666);
+           else
+               PL_perlio_debug_fd = -1;
+       } else {
+           /* tainting or set*id, so ignore the environment, and ensure we
+              skip these tests next time through.  */
            PL_perlio_debug_fd = -1;
+       }
     }
     if (PL_perlio_debug_fd > 0) {
        dTHX;