Skip Menu |
 

This queue is for tickets about the cyrillic CPAN distribution.

Report information
The Basics
Id: 62551
Status: new
Priority: 0/
Queue: cyrillic

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

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



Subject: Warnings when runned with -w or use warnimgs
Download (untitled) / with headers
text/plain 362b
When script using Lingua::DetectCharset spawned with warnings (-w in command line/shebang or use warnings; in code) it produces many error messages: Use of uninitialized value in addition (+) at /usr/local/lib/perl5/site_perl/5.10.1/Lingua/DetectCharset.pm line 85. Cause of this problem is undefs in right part of that line. Patch attached to this bug report.
Subject: DetectCharset.pm.patch
--- DetectCharset.pm.102.ORIG 2002-05-29 23:41:45.000000000 +0600 +++ DetectCharset.pm 2010-10-29 16:18:14.000000000 +0600 @@ -76,13 +76,14 @@ $PairSize = 4 if $Code eq 'Utf8'; $PairSize = 2 if $Code ne 'Utf8'; + # Compute statistics my ($Mark, $i); for (@Data) { s/[\n\r]//go; $_ = Convert::Cyrillic::toLower ($_, $Code); for (split (/[\.\,\-\s\:\;\?\!\'\"\(\)\d<>]+/o)) { for $i (0..length ()-$PairSize) { - $Mark += ${$Table} {substr ($_, $i, $PairSize)}; + $Mark += ( ${$Table} {substr ($_, $i, $PairSize)} || 0 ); } } }


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.