NAME

Taint::Util - Test for and flip the taint flag without regex matches or eval

SYNOPSIS

use Taint::Util;

my $sv = "pis";

# $sv now tainted under taint mode
taint $sv;

# Untaint $sv again
untaint $sv if tainted $sv;

DESCRIPTION

Wraps perl's internal routines for checking and setting the taint flag and thus does not rely on regular expressions for untainting or odd tricks involving eval and kill for checking whether data is tainted, instead it checks and flips a flag on the scalar in-place.

Provides three functions, tainted which returns a boolean indicating whether a given variable is tainted and taint and untaint which always return false and are no-ops if tainting is disabled.

EXPORTS

Exports tainted, taint and untaint by default. Individual functions can be exported by specifying them in the use list, to export none use ().

AUTHOR

Ævar Arnfjörð Bjarmason <avar@cpan.org>

LICENSE

Copyright 2007 Ævar Arnfjörð Bjarmason.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.