perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 9 insertions, 3 deletions

diff --git a/taint.c b/taint.c
index 23a1b07a39..f2e1a53fd7 100644
--- a/taint.c
+++ b/taint.c
@@ -1,3 +1,9 @@
+/*
+ * "...we will have peace, when you and all your works have perished--and
+ * the works of your dark master to whom you would deliver us.  You are a
+ * liar, Saruman, and a corrupter of men's hearts."  --Theoden
+ */
+
 #include "EXTERN.h"
 #include "perl.h"
 
@@ -47,14 +53,14 @@ taint_env()
 	if (!svp || *svp == &sv_undef || (mg = mg_find(*svp, 't'))) {
 	    tainted = 1;
 	    if (mg && MgTAINTEDDIR(mg))
-		taint_proper("Insecure directory in %s%s", "PATH");
+		taint_proper("Insecure directory in %s%s", "$ENV{PATH}");
 	    else
-		taint_proper("Insecure %s%s", "PATH");
+		taint_proper("Insecure %s%s", "$ENV{PATH}");
 	}
 	svp = hv_fetch(GvHVn(envgv),"IFS",3,FALSE);
 	if (svp && *svp != &sv_undef && mg_find(*svp, 't')) {
 	    tainted = 1;
-	    taint_proper("Insecure %s%s", "IFS");
+	    taint_proper("Insecure %s%s", "$ENV{IFS}");
 	}
     }
 }