From: Amos Jeffries <amosjeffries@squid-cache.org>
Date: Wed, 28 Apr 2010 00:29:54 +0000 (-0600)
Subject: Author: Henrik Nordstrom <henrik@henriknordstrom.net>
X-Git-Tag: SQUID_3_1_2~9
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=e3a36e9eaae8c99f8b127da0a7396e97ab4ce2d9;p=thirdparty%2Fsquid.git

Author: Henrik Nordstrom <henrik@henriknordstrom.net>
Bug 2913: fix db_auth warning in new perl version
---

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()