From de027530e15fc988f94411784abf368971ff8155 Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Fri, 17 Jun 2005 02:00:58 +0000 Subject: Bug 297928: detaint_natural, detaint_signed and trick_taint shouldn't rely on $1 - Patch by Christian Reis r/a = justdave --- Bugzilla/Util.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'Bugzilla') diff --git a/Bugzilla/Util.pm b/Bugzilla/Util.pm index 4dc64fe94..91e66f9f8 100644 --- a/Bugzilla/Util.pm +++ b/Bugzilla/Util.pm @@ -59,20 +59,20 @@ sub is_tainted { sub trick_taint { require Carp; Carp::confess("Undef to trick_taint") unless defined $_[0]; - $_[0] =~ /^(.*)$/s; - $_[0] = $1; + my ($match) = $_[0] =~ /^(.*)$/s; + $_[0] = $match; return (defined($_[0])); } sub detaint_natural { - $_[0] =~ /^(\d+)$/; - $_[0] = $1; + my ($match) = $_[0] =~ /^(\d+)$/; + $_[0] = $match; return (defined($_[0])); } sub detaint_signed { - $_[0] =~ /^([-+]?\d+)$/; - $_[0] = $1; + my ($match) = $_[0] =~ /^([-+]?\d+)$/; + $_[0] = $match; # Remove any leading plus sign. if (defined($_[0]) && $_[0] =~ /^\+(\d+)$/) { $_[0] = $1; -- cgit v1.2.3-24-g4f1b