PATCH: untaint method for IO::Handle, 5.003_06 version

This is a re-post of my patch to Graham's IO library to add a method in
IO::Handle called "untaint", that sets the IOf_UNTAINT flag on an object
that is of or inherits from IO::Handle. With this flag set, data read from
said handle is not tainted, whether running under -T, suid or sgid.

This patch adds the method to IO.xs, adds documentation and warning to the
pod of IO/Handle.pm, creates a new test in t/lib called io_taint.t, and
adds mention of the new file to MANIFEST.

Add method "untaint" into class IO::Handle

1 files changed, 17 insertions, 0 deletions

diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index bfe1f5ae42..3cc3518e7e 100644
--- a/ext/IO/IO.xs
+++ b/ext/IO/IO.xs
@@ -199,6 +199,23 @@ clearerr(handle)
     OUTPUT:
 	RETVAL
 
+int
+untaint(handle)
+       SV *	handle
+    CODE:
+	IO * io;
+	io = sv_2io(handle);
+	if (io) {
+	    IoFLAGS(io) |= IOf_UNTAINT;
+	    RETVAL = 0;
+	}
+        else {
+	    RETVAL = -1;
+	    errno = EINVAL;
+	}
+    OUTPUT:
+	RETVAL
+
 SysRet
 fflush(handle)
 	OutputStream	handle