[perl-Tk-CursorControl] initial import (rhbz#795603)

[Iain Arnell]

commit 67eaf72d4273abf4d4b63d90134bc1b33abd84c4
Author: Iain Arnell <iarnell at gmail.com>
Date:   Wed Feb 22 16:48:11 2012 -0700

    initial import (rhbz#795603)

 .gitignore                                      |    1 +
 perl-Tk-CursorControl-no-demos.patch            |   13 +++++
 perl-Tk-CursorControl-no-interactive-test.patch |   21 ++++++++
 perl-Tk-CursorControl.spec                      |   59 +++++++++++++++++++++++
 sources                                         |    1 +
 5 files changed, 95 insertions(+), 0 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index e69de29..593077e 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1 @@
+/Tk-CursorControl-0.4.tar.gz
diff --git a/perl-Tk-CursorControl-no-demos.patch b/perl-Tk-CursorControl-no-demos.patch
new file mode 100644
index 0000000..ea5cc79
--- /dev/null
+++ b/perl-Tk-CursorControl-no-demos.patch
@@ -0,0 +1,13 @@
+diff -up Tk-CursorControl-0.4/Makefile.PL.orig Tk-CursorControl-0.4/Makefile.PL
+--- Tk-CursorControl-0.4/Makefile.PL.orig	2002-12-13 08:59:56.000000000 -0700
++++ Tk-CursorControl-0.4/Makefile.PL	2012-02-20 17:34:07.643863361 -0700
+@@ -14,9 +14,6 @@ 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'	=> {
diff --git a/perl-Tk-CursorControl-no-interactive-test.patch b/perl-Tk-CursorControl-no-interactive-test.patch
new file mode 100644
index 0000000..17fc30e
--- /dev/null
+++ b/perl-Tk-CursorControl-no-interactive-test.patch
@@ -0,0 +1,21 @@
+diff -up Tk-CursorControl-0.4/test.pl.orig Tk-CursorControl-0.4/test.pl
+--- Tk-CursorControl-0.4/test.pl.orig	2002-12-13 03:45:28.000000000 -0700
++++ Tk-CursorControl-0.4/test.pl	2012-02-20 18:05:24.043678277 -0700
+@@ -6,7 +6,7 @@
+ # Change 1..1 below to 1..last_test_to_print .
+ # (It may become useful if the test is moved to ./t subdirectory.)
+ 
+-BEGIN { $| = 1; print "1..3\n"; }
++BEGIN { $| = 1; print "1..1\n"; }
+ END {print "not ok 1\n" unless $loaded;}
+ use Tk;
+ use Tk::CursorControl;
+@@ -14,6 +14,8 @@ $loaded = 1;
+ print "Test program will autodestruct in 60 seconds..\n";
+ print "ok 1\n";
+ 
++exit
++
+ ######################### End of black magic.
+ 
+ # Insert your test code below (better if it prints "ok 13"
diff --git a/perl-Tk-CursorControl.spec b/perl-Tk-CursorControl.spec
new file mode 100644
index 0000000..5cf4768
--- /dev/null
+++ b/perl-Tk-CursorControl.spec
@@ -0,0 +1,59 @@
+Name:           perl-Tk-CursorControl
+Version:        0.4
+Release:        1%{?dist}
+Summary:        Manipulate the mouse cursor programmatically
+License:        GPL+ or Artistic
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/Tk-CursorControl/
+Source0:        http://www.cpan.org/authors/id/D/DU/DUNNIGANJ/Tk-CursorControl-%{version}.tar.gz
+# don't install cursor.pl demo - add to docs instead
+Patch0:         perl-Tk-CursorControl-no-demos.patch
+# disable interactive tests (reenable --with interactive-tests)
+Patch1:         perl-Tk-CursorControl-no-interactive-test.patch
+%bcond_with     interactive_tests
+BuildArch:      noarch
+BuildRequires:  perl(ExtUtils::MakeMaker)
+BuildRequires:  perl(Tk) >= 800.015
+Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+
+%{?perl_default_filter}
+
+%description
+This module offers a Tk programmer the functionality of warping, moving,
+confining or hiding a mouse cursor.
+
+%prep
+%setup -q -n Tk-CursorControl-%{version}
+%patch0 -p1
+%if %{without interactive_tests}
+%patch1 -p1
+%endif
+
+# strip CRLF
+find -type f -print0 | xargs -0 sed -i 's/\r$//'
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=%{buildroot}
+
+find %{buildroot} -type f -name .packlist -exec rm -f {} \;
+find %{buildroot} -depth -type d -exec rmdir {} 2>/dev/null \;
+
+%{_fixperms} %{buildroot}/*
+
+%check
+make test
+
+%files
+%doc Changes README demos/cursor.pl
+%{perl_vendorlib}/*
+%{_mandir}/man3/*
+
+%changelog
+* Mon Feb 20 2012 Iain Arnell <iarnell at gmail.com> 0.4-1
+- Specfile autogenerated by cpanspec 1.79.
+- disable interactive tests
+- install demos as documentation
diff --git a/sources b/sources
index e69de29..dbf3cca 100644
--- a/sources
+++ b/sources
@@ -0,0 +1 @@
+67a170d3dde841d9c7054d0800162234  Tk-CursorControl-0.4.tar.gz