From: Stevan Little <stevan.little@iinteractive.com>
Date: Thu, 31 Jan 2008 17:46:45 +0000 (+0000)
Subject: fixed demolish calls
X-Git-Tag: 0_37~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5431d21a6034c0e8546232a8a3810b555eade88f;p=gitmo%2FMoose.git

fixed demolish calls
---

diff --git a/lib/Moose/Meta/Method/Destructor.pm b/lib/Moose/Meta/Method/Destructor.pm
index 73f1021..09db416 100644
--- a/lib/Moose/Meta/Method/Destructor.pm
+++ b/lib/Moose/Meta/Method/Destructor.pm
@@ -63,7 +63,7 @@ sub intialize_body {
         push @DEMOLISH_calls => '$_[0]->' . $method->{class} . '::DEMOLISH()';    
     }
     
-    $source .= join "\n" => @DEMOLISH_calls;
+    $source .= join ";\n" => @DEMOLISH_calls;
 
     $source .= ";\n" . '}'; 
     warn $source if $self->options->{debug};