From 7dfba0e7cf30ddbf834abee94520efcac26385d7 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Thu, 5 Nov 2009 13:52:51 +0100
Subject: still segfaults
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

and I can't reproduce the error in a minimal test case…
---
 lib/WebCoso/XSLT.pm | 25 +++++++++++--------------
 1 file changed, 11 insertions(+), 14 deletions(-)

(limited to 'lib/WebCoso')

diff --git a/lib/WebCoso/XSLT.pm b/lib/WebCoso/XSLT.pm
index ceb7b3a..8daa912 100644
--- a/lib/WebCoso/XSLT.pm
+++ b/lib/WebCoso/XSLT.pm
@@ -45,7 +45,12 @@ sub new {
     $self->{fc}->add_writer(qr{\.xml$} =>
                                 sub { $_[1]->toFile($_[0]) });
 
-    $self->{du2html}=sub {
+    bless $self,$class;
+}
+
+sub du2html {
+    my ($self)=@_;
+    return sub {
         my ($maker,$target,$deps,$matches)=@_;
         DEBUG("du2html($maker,$target,(@$deps),(@$matches))");
 
@@ -73,8 +78,12 @@ sub new {
                                  ));
         $self->{fc}->put($target,$xslt->output_string($out));
     };
+}
 
-    $self->{fillFeed}=sub {
+sub fillFeed {
+    my ($self)=@_;
+
+    return sub {
         my ($maker,$target,$deps,$matches)=@_;
         DEBUG("fillFeed($maker,$target,(@$deps),(@$matches))");
 
@@ -95,18 +104,6 @@ sub new {
                                  ));
         $self->{fc}->put($target,$out);
     };
-
-    bless $self,$class;
-}
-
-sub du2html {
-    my ($self)=@_;
-    return $self->{du2html};
-}
-
-sub fillFeed {
-    my ($self)=@_;
-    return $self->{fillFeed};
 }
 
 sub setXMLTagsSource {
-- 
cgit v1.2.3