From: Henrik Nordstrom <henrik@henriknordstrom.net>
Date: Mon, 26 Apr 2010 21:59:49 +0000 (+0200)
Subject: Bug #2913: fix db_auth warning in new perl version
X-Git-Tag: SQUID_3_2_0_1~268
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1205c5a2257eb06bffc8f658944cb1a3894ddddf;p=thirdparty%2Fsquid.git

Bug #2913: fix db_auth warning in new perl version
---

diff --git a/helpers/basic_auth/DB/basic_db_auth.in b/helpers/basic_auth/DB/basic_db_auth.in
index 9ae8b4da42..8e22730fff 100644
--- a/helpers/basic_auth/DB/basic_db_auth.in
+++ b/helpers/basic_auth/DB/basic_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()