diff --git a/.gitignore b/.gitignore
index 87ff1c2..7939e28 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
 /Test-Inter-1.01.tar.gz
 /Test-Inter-1.02.tar.gz
 /Test-Inter-1.03.tar.gz
+/Test-Inter-1.04.tar.gz
diff --git a/Test-Inter-1.04-Do-not-install-examples.patch b/Test-Inter-1.04-Do-not-install-examples.patch
new file mode 100644
index 0000000..096662e
--- /dev/null
+++ b/Test-Inter-1.04-Do-not-install-examples.patch
@@ -0,0 +1,31 @@
+From 50a4e166c68c5cea4aad1216ae94086c2b9b6219 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Wed, 20 Mar 2013 13:40:19 +0100
+Subject: [PATCH] Do not install examples
+
+<https://rt.cpan.org/Public/Bug/Display.html?id=84091>.
+---
+ Build.PL | 7 -------
+ 1 file changed, 7 deletions(-)
+
+diff --git a/Build.PL b/Build.PL
+index c602291..4b3d49c 100644
+--- a/Build.PL
++++ b/Build.PL
+@@ -25,13 +25,6 @@ my $build = $class->new(
+         requires           => \%requires,
+         build_requires     => \%build_mods,
+         sign               => 1,
+-        script_files => [
+-           'examples/is',
+-           'examples/ok',
+-           'examples/use_ok',
+-           'examples/plan',
+-           'examples/tests',
+-        ],
+ );
+ 
+ $build->create_build_script;
+-- 
+1.8.1.4
+
diff --git a/perl-Test-Inter.spec b/perl-Test-Inter.spec
index b5d85ef..b34bf0e 100644
--- a/perl-Test-Inter.spec
+++ b/perl-Test-Inter.spec
@@ -1,19 +1,25 @@
 Name:           perl-Test-Inter
-Version:        1.03
-Release:        6%{?dist}
+Version:        1.04
+Release:        1%{?dist}
 Summary:        Framework for more readable interactive test scripts
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/Test-Inter/
 Source0:        http://www.cpan.org/authors/id/S/SB/SBECK/Test-Inter-%{version}.tar.gz
+# Do not install examples into PATH, CPAN RT#84091
+Patch0:         Test-Inter-1.04-Do-not-install-examples.patch
 BuildArch:      noarch
+BuildRequires:  perl
+BuildRequires:  perl(Module::Build)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(warnings)
+# Run-time:
 BuildRequires:  perl(File::Basename)
 BuildRequires:  perl(IO::File)
-BuildRequires:  perl(Module::Build)
 # Tests only:
-BuildRequires:  perl(Test::Pod)
-BuildRequires:  perl(Test::Pod::Coverage)
-Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+BuildRequires:  perl(Test::Pod) >= 1.00
+BuildRequires:  perl(Test::Pod::Coverage) >= 1.00
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
 
 %description
 This is another framework for writing test scripts. It is loosely inspired
@@ -22,15 +28,15 @@ replacement.
 
 %prep
 %setup -q -n Test-Inter-%{version}
+%patch0 -p1
 chmod -x examples/*
 
 %build
-%{__perl} Build.PL installdirs=vendor
+perl Build.PL installdirs=vendor
 ./Build
 
 %install
 ./Build install destdir=$RPM_BUILD_ROOT create_packlist=0
-find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
 %{_fixperms} $RPM_BUILD_ROOT/*
 
 %check
@@ -42,6 +48,9 @@ find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
 %{_mandir}/man3/*
 
 %changelog
+* Wed Mar 20 2013 Petr Pisar <ppisar@redhat.com> - 1.04-1
+- 1.04 bump
+
 * Thu Feb 14 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.03-6
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
 
diff --git a/sources b/sources
index aa25f35..abfedba 100644
--- a/sources
+++ b/sources
@@ -1 +1 @@
-02705664dc874bc8b59b9b313a7572f5  Test-Inter-1.03.tar.gz
+848b478e31d02e35eacf694479192433  Test-Inter-1.04.tar.gz