| Subject: | Another warning in Text::German |
Another warning given is
Use of uninitialized value in bitwise and (&) at /usr/local/share/perl/5.8.4/Text/German/Endung.pm line 63.
which can be fixed by replacing
for $i (1 .. length($word)) {
my $endung = substr($word, length($word)-$i,$i);
if (defined $ENDUNG{$endung}
and ($ENDUNG{$endung}->[1] & $class)) {
$result = $endung
with
for $i (1 .. length($word)) {
my $endung = substr($word, length($word)-$i,$i);
if (defined $ENDUNG{$endung} && defined $ENDUNG{$endung}->[1]
and ($ENDUNG{$endung}->[1] & $class)) {
$result = $endung