Skip Menu |
 
rt.cpan.org will be shut down on March 1st, 2021.

This queue is for tickets about the Text-German CPAN distribution.

Report information
The Basics
Id: 27480
Status: new
Priority: 0/
Queue: Text-German

People
Owner: Nobody in particular
Requestors: jkeenan [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.06
Fixed in: (no value)



Subject: '&' in Text-German-Endung should probably be '&&'
Download (untitled) / with headers
text/plain 1.8k
A couple of days ago I was installing Text::Compare on two different OSes today. Text::Compare uses some non-core CPAN modules, one of which uses Text::German::Endung. I got the following warning while running 'make test': t/00-load....ok 1/1# Testing Text::Compare 0.01, Perl 5.008004, /usr/bin/perl t/00-load....ok t/01-func....ok 1/5Use of uninitialized value in bitwise and (&) at /usr/local/lib/perl5/ site_perl/5.8.8/Text/German/Endung.pm line 52. Use of uninitialized value in bitwise and (&) at /usr/local/lib/perl5/site_perl/5.8.8/Text/ German/Endung.pm line 52. Use of uninitialized value in bitwise and (&) at /usr/local/lib/perl5/site_perl/5.8.8/Text/ German/Endung.pm line 52. Use of uninitialized value in bitwise and (&) at /usr/local/lib/perl5/site_perl/5.8.8/Text/ German/Endung.pm line 52. Use of uninitialized value in bitwise and (&) at /usr/local/lib/perl5/site_perl/5.8.8/Text/ German/Endung.pm line 52. Use of uninitialized value in bitwise and (&) at /usr/local/lib/perl5/site_perl/5.8.8/Text/ German/Endung.pm line 52. Use of uninitialized value in bitwise and (&) at /usr/local/lib/perl5/site_perl/5.8.8/Text/ German/Endung.pm line 52. Use of uninitialized value in bitwise and (&) at /usr/local/lib/perl5/site_perl/5.8.8/Text/ German/Endung.pm line 52. t/01-func....ok Here is the relevant section of Text::German::Endung: sub max_endung { my $word = shift; my $class = wordclass($word); my $result = undef; for $i (1 .. length($word)) { my $endung = substr($word, length($word)-$i,$i); if (defined $ENDUNG{$endung} and ($ENDUNG{$endung}->[1] & $class)) { # <------- line 52 $result = $endung if !defined($result) || length($endung) > length($result); } } $result; } Did you mean to say '&&' rather than '&'? That's what the context would seem to suggest. Jim Keenan


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.