stas 2004/09/30 20:05:04
Added: t/lib/TestCommon Utils.pm Log: start working to remove code duplicates, moving them into a library - add is_tainted function Revision Changes Path 1.1 modperl-2.0/t/lib/TestCommon/Utils.pm Index: Utils.pm =================================================================== package TestCommon::Utils; sub is_tainted { my $data = shift; eval { eval $data }; return ($@ && $@ =~ qr/Insecure dependency in eval/) ? 1 : 0; } 1; __END__ =head1 NAME TestCommon::Utils - Common Test Utils =head1 Synopsis use TestCommon::Utils; $b->read(my $data); =head1 Description Various handy testing utils =head1 API =head2 is_tainted() is_tainted($data) returns I<TRUE> if C<$data> is tainted, I<FALSE> otherwise =cut