diff options
author | dakkar <dakkar@thenautilus.net> | 2009-11-05 13:52:51 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2009-11-05 13:52:51 +0100 |
commit | 7dfba0e7cf30ddbf834abee94520efcac26385d7 (patch) | |
tree | 3e7a80b2abce6b634a418b6c54b195b9afd0c2e6 /lib/WebCoso | |
parent | use Try::Tiny instead of eval (diff) | |
download | WebCoso-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.pm | 25 |
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 { |