Hi,lists, I can't understand for this script below,I want somebody here to give me some help.Thanks.
sub is_tainted{
my $var=shift;
my $blank=substr($var,0,0);
return not eval {eval "1 || $blank" || 1};
}
That subroutine estimate for if some given var is tainted or not.But I can't
know how it works.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
