Date: Mon, 02 Jun 2014 19:30:30 +0000 From: no-reply-bugzilla-daemon@freebsd.org To: freebsd-ports-bugs@FreeBSD.org Subject: [Bug 190531] New: misc/p5-I18N-LangTags - uses deprecated syntax Message-ID: <bug-190531-13@http.bugs.freebsd.org/bugzilla/>
next in thread | raw e-mail | index | archive | help
http://bugs.freebsd.org/bugzilla/show_bug.cgi?id=190531 Bug ID: 190531 Summary: misc/p5-I18N-LangTags - uses deprecated syntax Product: Ports Tree Version: Latest Hardware: Any OS: Any Status: Needs Triage Severity: Affects Only Me Priority: --- Component: Individual Port(s) Assignee: freebsd-ports-bugs@FreeBSD.org Reporter: vess@slavof.net defined(%hash) is deprecated at /usr/local/lib/perl5/site_perl/5.18/I18N/LangTags/Detect.pm line 140. (Maybe you should just omit the defined()?) defined(@array) is deprecated at /usr/local/lib/perl5/site_perl/5.18/I18N/LangTags/Detect.pm line 140. (Maybe you should just omit the defined()?) How-To-Repeat: # perl -e'use I18N::LangTags::Detect' Fix: attached patch-Detect.pm Patch attached with submission follows: --- lib/I18N/LangTags/Detect.pm.orig 2004-06-21 08:47:55.000000000 +0300 +++ lib/I18N/LangTags/Detect.pm 2014-06-02 22:12:30.000000000 +0300 @@ -137,7 +137,7 @@ my $module = $_[0]; # ASSUME sane module name! { no strict 'refs'; return($tried{$module} = 1) - if defined(%{$module . "::Lexicon"}) or defined(@{$module . "::ISA"}); + if %{ $module . "::Lexicon"} or @{$module . "::ISA"}; # weird case: we never use'd it, but there it is! } -- You are receiving this mail because: You are the assignee for the bug.
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?bug-190531-13>