stas 2004/10/17 19:26:04
Modified: t/lib/TestCommon Utils.pm Log: the append of " " is crucial with older Perls (5.6), which won't consider a scalar with PV = ""\0 as tainted, even though it has the taint magic attached Revision Changes Path 1.3 +4 -1 modperl-2.0/t/lib/TestCommon/Utils.pm Index: Utils.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/lib/TestCommon/Utils.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -u -u -r1.2 -r1.3 --- Utils.pm 1 Oct 2004 03:30:11 -0000 1.2 +++ Utils.pm 18 Oct 2004 02:26:04 -0000 1.3 @@ -2,7 +2,10 @@ sub is_tainted { my $data = shift; - eval { eval $data }; + # the append of " " is crucial with older Perls (5.6), which won't + # consider a scalar with PV = ""\0 as tainted, even though it has + # the taint magic attached + eval { eval $data . " " }; return ($@ && $@ =~ qr/Insecure dependency in eval/) ? 1 : 0; }