[urisagit/Perl-Docs.git] / experiment / DATA_taint_check


# DATA handle is always untainted but all other handles are tainted

use B
svref_2object($foo)->IoFLAGS & 16
Commit	Line	Data
635c7876	1
	2	# DATA handle is always untainted but all other handles are tainted
	3
	4	use B
	5	svref_2object($foo)->IoFLAGS & 16