in reply to Inner Subroutines, mod_perl, and Segfaults

    my ($self, $WHERE, $TYPE) = @_;
    ...
    foreach my $node (keys %{ $this->{workspace}{nodes} }) {

[download]
Are you sure that you mean to be using $this instead of $self in the foreach loop?

In Section Seekers of Perl Wisdom