From e3a36e9eaae8c99f8b127da0a7396e97ab4ce2d9 Mon Sep 17 00:00:00 2001
From: Amos Jeffries <amosjeffries@squid-cache.org>
Date: Tue, 27 Apr 2010 18:29:54 -0600
Subject: [PATCH] Author: Henrik Nordstrom <henrik@henriknordstrom.net> Bug
 2913: fix db_auth warning in new perl version

---
 helpers/basic_auth/DB/squid_db_auth.in | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helpers/basic_auth/DB/squid_db_auth.in b/helpers/basic_auth/DB/squid_db_auth.in
index 9ae8b4da42..8e22730fff 100644
--- a/helpers/basic_auth/DB/squid_db_auth.in
+++ b/helpers/basic_auth/DB/squid_db_auth.in
@@ -92,9 +92,9 @@ my ($_dbh, $_sth);
 sub close_db()
 {
     return if !defined($_dbh);
+    undef $_sth;
     $_dbh->disconnect();
     undef $_dbh;
-    undef $_sth;
 }
 
 sub open_db()
-- 
2.47.3