Addressed: https://rt.cpan.org/Ticket/Display.html?id=122167

dankogai · dankogai · commit 208d094b8cf8 · 2017-06-22T17:05:01.000+09:00
diff --git a/Changes b/Changes
@@ -2,7 +2,16 @@
 #
 # $Id: Changes,v 2.90 2017/06/10 17:23:50 dankogai Exp dankogai $
 #
-$Revision: 2.90 $ $Date: 2017/06/10 17:23:50 $
+$Revision: 2.90 $ $Date: 2017/06/10 17:23:50$
+! Encode.pm
+  Addressed: RT#122167: use parent q{Encode::Encoding}; fails:
+    Can't locate object 
+  https://rt.cpan.org/Ticket/Display.html?id=122167
+! Makefile.PL
+  Pulled: fix gcc warnings for older gcc < 4.0
+  https://github.com/dankogai/p5-encode/pull/114
+
+2.90 2017/06/10 17:23:50
 ! Makefile.PL
   Pulled: Include all contributors into META
   https://github.com/dankogai/p5-encode/pull/111
diff --git a/Encode.pm b/Encode.pm
@@ -342,9 +342,12 @@ if ($ON_EBCDIC) {
 
 {
     package Encode::utf8;
+    BEGIN {
+        $Encode::Encoding{utf8} = bless { Name => 'utf8' } => __PACKAGE__;
+    }
     use parent 'Encode::Encoding';
-    __PACKAGE__->Define('utf8');
-    my $strict_obj = bless { Name => "utf-8-strict", strict_utf8 => 1 } => "Encode::utf8";
+    my $strict_obj =
+      bless { Name => 'utf-8-strict', strict_utf8 => 1 } => __PACKAGE__;
     Encode::define_encoding($strict_obj, 'utf-8-strict');
     sub cat_decode {
         # ($obj, $dst, $src, $pos, $trm, $chk)
