Bug 80799 - Allow undef to trick_taint
git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@1291 6955db30-a419-402b-8a0d-67ecbb4d7f56master
parent
9e8f3e7c2a
commit
2896c7c3e5
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue