As seen on p5p, surprisingly, adding:
use warnings FATAL => 'all';
removes that problem with 5.8.0. While
use warnings;
does not.
so the best solution so far is:
use warnings FATAL => 'all';
sub is_tainted {
return ! eval {
eval join '', '#',
map defined() ? substr($_, 0, 0) : (), @_;
1;
};
}
tested to work with 5.6.1 -- 5.8.5 will go in, post-1.99_17 release.
--
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
