aboutsummaryrefslogtreecommitdiff
path: root/lib/WebCoso
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2009-11-05 13:52:51 +0100
committerdakkar <dakkar@thenautilus.net>2009-11-05 13:52:51 +0100
commit7dfba0e7cf30ddbf834abee94520efcac26385d7 (patch)
tree3e7a80b2abce6b634a418b6c54b195b9afd0c2e6 /lib/WebCoso
parentuse Try::Tiny instead of eval (diff)
downloadWebCoso-7dfba0e7cf30ddbf834abee94520efcac26385d7.tar.gz
WebCoso-7dfba0e7cf30ddbf834abee94520efcac26385d7.tar.bz2
WebCoso-7dfba0e7cf30ddbf834abee94520efcac26385d7.zip
still segfaults
and I can't reproduce the error in a minimal test caseā€¦
Diffstat (limited to 'lib/WebCoso')
-rw-r--r--lib/WebCoso/XSLT.pm25
1 files changed, 11 insertions, 14 deletions
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 {