Segmentation fault in Text::ParseWords

[Peter Mogensen]

Hi,

When parsing long lines to Text::ParseWords under mod_perl I get a
segmentation fault from Apache. (but not when I do the same from the
command line).

The segmentation fault appears with a line lenght above 17460;

This is the code:
======================================
use Text::ParseWords;
sub handler : method {
    my $class = shift;
    my $r = shift;

    my $delim = ':';
    my $keep = 1;
    my $line = 'x' x 17461;

    my @words = &parse_line($delim, $keep, $line);

....
======================================


Can anyone reproduce?

(Yes... I know I shouldn't abuse Text::ParseWords like that ;-)

The segfault happens in the regexp at line 54 in Text::ParseWords
version 3.21

regards,
Peter Mogensen