Chris Nandor sent the following bits through the ether:
> filter still fails. I do not have time to investigate really, but
> can provide anything you might need.
Well, until we do lots of testing on every Perl version and figure out
which versions are affected by this bug, the best thing to do is
probably to remove the test which segfaults for now and release a new
version. Patch attached. Waddaya reckon?
Leon
--
Leon Brocard.............................http://www.astray.com/
Iterative Software...........http://www.iterative-software.com/
... "Luke... Luke... Use the MOUSE, Luke" - Obi Wan Gates
--- filter.t.orig Thu Jun 21 12:59:55 2001
+++ filter.t Thu Jun 21 13:01:11 2001
@@ -753,27 +753,6 @@
foo bar baz
-- test --
-[% PERL %]
-$context->define_filter('foo', \&foo_factory, 1);
-sub foo_factory {
- my ($context, $count) = @_;
- return sub {
- my $text = shift;
- return $text . '.' x $count;
- }
-}
-[% END -%]
-[% FILTER a = foo(3) -%]
-blah blah blah
-[%- END %]
-[% FILTER a -%]
-more blah blah blah
-[%- END %]
--- expect --
-blah blah blah...
-more blah blah blah...
-
--- test --
[% '$stash->{ a } = 25' FILTER evalperl %]
[% a %]
-- expect --
