Re^2: Can someone help me to explain the code below

When running under -T it will also make an untainted copy of the contents of $this_in in $this_mail (presuming $this_in was from a tainted source)</nit>

$ perl -MScalar::Util=tainted -lT -e '($o)=$ENV{PWD}=~/(.*)/gio;print 
+tainted( $_ ) for ( $o, $ENV{PWD} )'
0
1
[download]

(Not that that's the case here, but saying it's just a copy assignment isn't universally true . . .)

Update: And before someone else outpedants me, as toolic points out above that should really be "... an untainted copy up to the first newline of the contents ..." :)

The cake is a lie.
The cake is a lie.
The cake is a lie.

Comment on Re^2: Can someone help me to explain the code below Select or Download Code

Replies are listed 'Best First'.
Re^3: Can someone help me to explain the code below by ww (Archbishop) on Aug 04, 2010 at 21:11 UTC
Well, true, but <nit> We're untainting only to the extent that we're performing a function that Perl (uncritically) reads as untainting... but without any substantive untainting... In other words, <c>(($this_mail) = ($this_in =~ /(.*)/gio));<c> passes the entire tainted input without any attempt to cull out unacceptable content. </nit> (or is it merely a nit?)	[reply]