| Subject: | Use of uninitialized value in lc |
| Date: | Fri, 27 Oct 2017 04:48:13 +0000 |
| To: | <bug-Log-Funlog-Lang [...] rt.cpan.org> |
| From: | <Paavo.Jumppanen [...] csiro.au> |
Perl 5.18.2 complains of unitialized value in lc when using Log::FunLog. More specifically,
Use of uninitialized value in lc at /usr/lib/perl5/site_perl/5.18.2/Log/Funlog/Lang.pm line 121.
at /usr/lib/perl5/site_perl/5.18.2/Log/Funlog/Lang.pm line 121.
Log::Funlog::Lang::new('Log::Funlog::Lang') called at /usr/lib/perl5/site_perl/5.18.2/Log/Funlog.pm line 252
require Log/Funlog.pm called at test.pl line 13
main::BEGIN() called at /usr/lib/perl5/site_perl/5.18.2/Log/Funlog.pm line 0
eval {...} called at /usr/lib/perl5/site_perl/5.18.2/Log/Funlog.pm line 0
I have fixed it in my local version with this change. Can you apply the same to the CPAN source so that I won't have to fix it locally again in future.
Thanks,
Paavo.
Change line 121 in Lang.pm from,
my $LC_MESSAGES=lc(shift);
To
my $LC_MESSAGES=lc(shift || '');