From 208d094b8cf82da488495400ea9a518841fd007a Mon Sep 17 00:00:00 2001
From: Dan Kogai <dankogai+github@gmail.com>
Date: Thu, 22 Jun 2017 17:05:01 +0900
Subject: [PATCH] Addressed: https://rt.cpan.org/Ticket/Display.html?id=122167

---
 Changes   | 11 ++++++++++-
 Encode.pm |  7 +++++--
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index 04d1b05..02affaf 100644
--- 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
index b0e9092..d1c05b0 100644
--- 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)