[Bug 190531] New: misc/p5-I18N-LangTags - uses deprecated syntax

[no-reply-bugzilla-daemon at freebsd.org]

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 at FreeBSD.org
          Reporter: vess at 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.