Bug 80799 - Allow undef to trick_taint

git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@1291 6955db30-a419-402b-8a0d-67ecbb4d7f56
master
vfilippov 2011-06-30 15:09:31 +00:00
parent 9e8f3e7c2a
commit 2896c7c3e5
1 changed files with 5 additions and 3 deletions

View File

@ -68,14 +68,16 @@ use JSON;
use Lingua::Stem::RuUTF8;
sub trick_taint {
die("Undef to trick_taint") unless defined $_[0];
sub trick_taint
{
return undef unless defined $_[0];
my $match = $_[0] =~ /^(.*)$/s;
$_[0] = $match ? $1 : undef;
return (defined($_[0]));
}
sub trick_taint_copy {
sub trick_taint_copy
{
$_[0] =~ /^(.*)$/s;
return $1;
}