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 9ae8b4da420a25039a5e27af10f0ef3d02f26087..8e22730fffef02c20279f2f50686ab1f522e29c6 100644 (file)
--- 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()