| Subject: | Module segfaults with digit-only input |
Parsing breaks if (second) input consists solely of digits. To reproduce:
Script
--------
use Lingua::EN::Titlecase;
my $tc = Lingua::EN::Titlecase->new('Test test');
print $tc->title(), $/;
$tc->title('2001');
print $tc->title(), $/;
--------
Output:
--------
Test Test
Deep recursion on subroutine "Lingua::EN::Titlecase::title" at
/usr/local/share/perl/5.10.0/Lingua/EN/Titlecase.pm line 18.
Deep recursion on subroutine "Lingua::EN::Titlecase::_parse" at
/usr/local/share/perl/5.10.0/Lingua/EN/Titlecase.pm line 150.
Deep recursion on subroutine "Lingua::EN::Titlecase::lexer" at
/usr/local/share/perl/5.10.0/Lingua/EN/Titlecase.pm line 174.
Deep recursion on anonymous subroutine at
/usr/local/share/perl/5.10.0/Lingua/EN/Titlecase.pm line 207.
Segmentation fault
--------
--
B10m