From 1a10b3ff33fa2ef9c6fb7fc67d4a742f7973aa59 Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Fri, 17 Jun 2005 02:04:25 +0000
Subject: [PATCH] Bug 297928: detaint_natural, detaint_signed and trick_taint
 shouldn't rely on $1 - Patch by Christian Reis <kiko@async.com.br> r/a =
 justdave

---
 Bugzilla/Util.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Bugzilla/Util.pm b/Bugzilla/Util.pm
index 926b92fcee..bbc13b3ffa 100644
--- a/Bugzilla/Util.pm
+++ b/Bugzilla/Util.pm
@@ -50,20 +50,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;
-- 
2.47.2