File to test MemoryLeak in perl DBI modules.

git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@43 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f

pandora_server/bin/pandora_DBI_test.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use DBI;     # DB interface with MySQL
+
+while (1){
+	keep_alive_check();
+}
+
+sub keep_alive_check {
+	my $dbh = DBI->connect("DBI:mysql:pandora:localhost:3306","pandora","pandora",{ RaiseError => 1, AutoCommit => 1 });
+	$dbh->disconnect;
+}