Package: libconfig-inifiles-perl Version: 2.39-2 Severity: normal Tag: patch
Before patch $ perl -MConfig::IniFiles -lwe 'my %ini; tie %ini, q(Config::IniFiles), (-file=>q(/dev/null));' Use of uninitialized value in substitution (s///) at /usr/share/perl5/Config/IniFiles.pm line 614. Use of uninitialized value in pattern match (m//) at /usr/share/perl5/Config/IniFiles.pm line 628. $ After patch: $ perl -MConfig::IniFiles -lwe 'my %ini; tie %ini, q(Config::IniFiles), (-file=>q(/dev/null));' $ Don Armstrong -- I'd never hurt another living thing. But if I did... It would be you. -- Chris Bishop http://www.chrisbishop.com/her/archives/her69.html http://www.donarmstrong.com http://rzlab.ucr.edu
--- /usr/share/perl5/Config/IniFiles.pm~ 2005-04-29 12:38:56.000000000 -0700 +++ /usr/share/perl5/Config/IniFiles.pm 2006-07-28 15:00:05.000000000 -0700 @@ -611,7 +611,7 @@ # If there's a UTF BOM (Byte-Order-Mark) in the first character of the first line # then remove it before processing (http://www.unicode.org/unicode/faq/utf_bom.html#22) - ($lines[0] =~ s/^//); + ($lines[0] =~ s/^//) if @lines; # Disabled the utf8 one for now (JW) because it doesn't work on all perl distros # e.g. 5.6.1 works with or w/o 'use utf8' 5.6.0 fails w/o it. 5.005_03 # says "invalid hex value", etc. If anyone has a clue how to make this work
