[DBD::Pg] Add a new env DBDPG_NOCLEANUP for debugging. Prevents t/99cleanup.t from doing anything.

Committed by Greg Sabino Mullane <greg-O9fzpki4YnJWk0Htik3J/[email protected]>

Add a new env DBDPG_NOCLEANUP for debugging. Prevents
t/99cleanup.t from doing anything.

---
 t/99cleanup.t | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/t/99cleanup.t b/t/99cleanup.t
index a8a5229..549c42e 100644
--- a/t/99cleanup.t
+++ b/t/99cleanup.t
@@ -9,6 +9,12 @@ use strict;
 use warnings;
 use Test::More tests => 1;
 use lib 't','.';
+
+if ($ENV{DBDPG_NOCLEANUP}) {
+	ok (q{No cleaning up because ENV 'DBDPG_NOCLEANUP' is set});
+	exit;
+}
+
 require 'dbdpg_test_setup.pl';
 select(($|=1,select(STDERR),$|=1)[1]);
 
-- 
1.8.4