From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 22 Jan 2014 18:17:27 +0000 (+0100)
Subject: Need some exceptions removed in 556c4fe6 when some optdeps are missing
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0fe9332151bf53acb686e71703ec66e64440dbd;p=dbsrgits%2FDBIx-Class-Historic.git

Need some exceptions removed in 556c4fe6 when some optdeps are missing
---

diff --git a/t/52leaks.t b/t/52leaks.t
index f3fcab5..b87ca20 100644
--- a/t/52leaks.t
+++ b/t/52leaks.t
@@ -458,6 +458,17 @@ for my $addr (keys %$weak_registry) {
     delete $weak_registry->{$addr}
       unless $cleared->{hash_merge_singleton}{$weak_registry->{$addr}{weakref}{behavior}}++;
   }
+  elsif (
+    # if we can look at closed over pieces - we will register it as a global
+    !DBICTest::Util::LeakTracer::CV_TRACING
+      and
+    $names =~ /^SQL::Translator::Generator::DDL::SQLite/m
+  ) {
+    # SQLT::Producer::SQLite keeps global generators around for quoted
+    # and non-quoted DDL, allow one for each quoting style
+    delete $weak_registry->{$addr}
+      unless $cleared->{sqlt_ddl_sqlite}->{@{$weak_registry->{$addr}{weakref}->quote_chars}}++;
+  }
 }
 
 # FIXME !!!