dev-perl/Tk-CursorControl: Undo my removal of demos

The demos with the Tk system are a bit quirky, and you can't really
handle them the same way we typically handle examples in Gentoo.

These demos have to be installed in a location that the "widget" program
that ships with Tk can find and load, and it has special spice to make
it work.

There may be a compromise of some kind, but it requires the ability to
gut the demo system from Tk itself, which is far more work than we have
time for, and the added complexity with handling that with USE and USE
dependencies just isn't worth it.

Bug: https://rt.cpan.org/Ticket/Display.html?id=124794
Package-Manager: Portage-2.3.66, Repoman-2.3.16
Signed-off-by: Kent Fredric <kentnl@gentoo.org>

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

dev-perl/Tk-CursorControl/files/Tk-CursorControl-0.4-nodemo.patch

@@ -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
-