X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FSetup.pm;h=00baaef9ebdcb69cd3df9138e7b7fc33a3894788;hp=be83e179d863bc35e0f2f872273b9fff56bc39df;hb=9edb1eb325435873ed55f643d671cb050bd8b659;hpb=c2e37e5972fc1dd50f7eebdd0b73cea11ae1b8f4

diff --git a/lib/Catalyst/Setup.pm b/lib/Catalyst/Setup.pm
index be83e17..00baaef 100644
--- a/lib/Catalyst/Setup.pm
+++ b/lib/Catalyst/Setup.pm
@@ -95,6 +95,7 @@ sub setup {
 
         if ( @plugins ) {
             my $t = Text::ASCIITable->new;
+            undef $t->{tiedarr};    # work-around for a memory leak
             $t->setOptions( 'hide_HeadRow',  1 );
             $t->setOptions( 'hide_HeadLine', 1 );
             $t->setCols('Class');
@@ -127,6 +128,7 @@ sub setup {
 
     if ( $class->debug ) {
         my $t = Text::ASCIITable->new;
+        undef $t->{tiedarr};    # work-around for a memory leak
         $t->setOptions( 'hide_HeadRow',  1 );
         $t->setOptions( 'hide_HeadLine', 1 );
         $t->setCols('Class');