Select Code to Download

@stack = ( ['cfif', 'bool eq "true"'],
           ['cfelse']
         );

sub start {
 return if $stack[-1][0] eq 'cfif' and $tag ne 'cfelse' and not istrue
+($stack[-1][1]);
...
sub text {
 something like what i used in start()
}

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$