diff --git a/dev-perl/Tk-CursorControl/Tk-CursorControl-0.400.0-r2.ebuild b/dev-perl/Tk-CursorControl/Tk-CursorControl-0.400.0-r3.ebuild
similarity index 72%
rename from dev-perl/Tk-CursorControl/Tk-CursorControl-0.400.0-r2.ebuild
rename to dev-perl/Tk-CursorControl/Tk-CursorControl-0.400.0-r3.ebuild
index 0cb384cb448fd..5b2f36f70671c 100644
--- a/dev-perl/Tk-CursorControl/Tk-CursorControl-0.400.0-r2.ebuild
+++ b/dev-perl/Tk-CursorControl/Tk-CursorControl-0.400.0-r3.ebuild
@@ -1,4 +1,4 @@
-# Copyright 1999-2018 Gentoo Foundation
+# Copyright 1999-2019 Gentoo Authors
 # Distributed under the terms of the GNU General Public License v2
 
 EAPI=6
@@ -6,8 +6,6 @@ EAPI=6
 DIST_AUTHOR=DUNNIGANJ
 DIST_VERSION=0.4
 
-# https://rt.cpan.org/Ticket/Display.html?id=124794
-# DIST_EXAMPLES=( "demos/*" )
 inherit eutils perl-module virtualx
 
 DESCRIPTION="Manipulate the mouse cursor programmatically"
@@ -19,7 +17,7 @@ IUSE=""
 RDEPEND="dev-perl/Tk"
 DEPEND="${RDEPEND}"
 
-PATCHES=( "${FILESDIR}/${PN}-0.4-nodemo.patch" )
+PATCHES=( "${FILESDIR}/0.4-demo.patch" )
 
 src_prepare() {
 	perl-module_src_prepare
diff --git a/dev-perl/Tk-CursorControl/files/Tk-CursorControl-0.4-nodemo.patch b/dev-perl/Tk-CursorControl/files/Tk-CursorControl-0.4-nodemo.patch
deleted file mode 100644
index 386a6f0aa2558..0000000000000
--- a/dev-perl/Tk-CursorControl/files/Tk-CursorControl-0.4-nodemo.patch
+++ /dev/null
@@ -1,40 +0,0 @@
-From 299ab08346de3f8f670d3a50c6180bccf0402067 Mon Sep 17 00:00:00 2001
-From: Kent Fredric <kentnl@gentoo.org>
-Date: Sat, 17 Mar 2018 14:52:48 +1300
-Subject: Stop installing demo's to @INC
-
----
- Makefile.PL | 13 +------------
- 1 file changed, 1 insertion(+), 12 deletions(-)
-
-diff --git a/Makefile.PL b/Makefile.PL
-index c229779..2503a8e 100644
---- a/Makefile.PL
-+++ b/Makefile.PL
-@@ -14,11 +14,7 @@ WriteMakefile(
- 		'CursorControl.pm'	=> '$(INST_LIB)/Tk/CursorControl.pm',
- 		'trans_cur.xbm'	=> '$(INST_LIB)/Tk/trans_cur.xbm',
- 		'trans_cur.mask'	=> '$(INST_LIB)/Tk/trans_cur.mask',
--		'demos/cursor.pl'	=> ($] >= 5.005
--					? '$(INST_ARCHLIB)'
--					: '$(INST_LIB)') . '/Tk/demos/widtrib/cursor.pl',
--			},
--	
-+  },
- 	'PREREQ_PM'	=> {
- 		'Tk'	=> 800.015,
- 		($^O =~ /(MSWin32|cygwin)/ ? ('Win32::API' => 0.20) : ()),
-@@ -28,10 +24,3 @@ WriteMakefile(
- 		'CursorControl.pm'   => '$(INST_MAN3DIR)/Tk::CursorControl.$(MAN3EXT)',
- 		},
- );
--
--sub MY::postamble {
--	'
--demo :: pure_all
--	$(FULLPERL) -w -I$(SITELIBEXP)/Tk/demos/widget_lib -I$(SITEARCHEXP)/Tk/demos/widget_lib -Mblib demos/cursor.pl
--';
--}
--- 
-2.16.2
-