[perl-IO-Prompt] apply patch to fix rt#69084

[Iain Arnell]

commit 62efa2d83869967180720a7212db0f0d00d23c95
Author: Iain Arnell <iarnell at gmail.com>
Date:   Sat Nov 5 08:22:40 2011 +0100

    apply patch to fix rt#69084

 perl-IO-Prompt-rt69084.patch |   33 +++++++++++++++++++++++++++++++++
 perl-IO-Prompt.spec          |    6 ++++++
 2 files changed, 39 insertions(+), 0 deletions(-)
---
diff --git a/perl-IO-Prompt-rt69084.patch b/perl-IO-Prompt-rt69084.patch
new file mode 100644
index 0000000..3ab3c37
--- /dev/null
+++ b/perl-IO-Prompt-rt69084.patch
@@ -0,0 +1,33 @@
+From 8300962b0235803287777f78b86aa1776d369769 Mon Sep 17 00:00:00 2001
+From: "Fuji, Goro" <gfuji at cpan.org>
+Date: Sat, 25 Jun 2011 11:16:10 +0900
+Subject: [PATCH] Use Scalar::Util::openhandle() instead of $io->opend
+
+---
+ lib/IO/Prompt.pm |    3 ++-
+ 1 files changed, 2 insertions(+), 1 deletions(-)
+
+diff --git a/lib/IO/Prompt.pm b/lib/IO/Prompt.pm
+index 343d204..e0db947 100644
+--- a/lib/IO/Prompt.pm
++++ b/lib/IO/Prompt.pm
+@@ -11,6 +11,7 @@ no warnings 'utf8';
+ our @EXPORT    = qw( prompt );
+ our @EXPORT_OK = qw( hand_print get_input );
+ 
++use Scalar::Util;
+ use IO::Handle;
+ use Term::ReadKey;
+ use POSIX qw( isprint );
+@@ -185,7 +186,7 @@ sub prompt {
+     else {
+         no strict 'refs';
+         my $ARGV = $caller . "::ARGV";
+-        unless (*$ARGV->opened) {
++        unless (Scalar::Util::openhandle(*$ARGV)) {
+             $$ARGV = shift(@$ARGV) || '-';
+             open $ARGV or croak "Can't open $$ARGV: $!";
+         }
+-- 
+1.7.5.4
+
diff --git a/perl-IO-Prompt.spec b/perl-IO-Prompt.spec
index 05c036e..198337f 100644
--- a/perl-IO-Prompt.spec
+++ b/perl-IO-Prompt.spec
@@ -6,6 +6,10 @@ Release:        1%{?dist}
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 Source0:        http://search.cpan.org/CPAN/authors/id/D/DC/DCONWAY/IO-Prompt-%{cpanver}.tar.gz 
+# doesn't work on 5.14 if you call prompt() in non-"main" package
+# see https://rt.cpan.org/Public/Bug/Display.html?id=69084
+# and https://github.com/gfx/p5-IO-Prompt-patched/commit/8300962b0235803287777f78b86aa1776d369769.patch
+Patch0:         perl-IO-Prompt-rt69084.patch
 URL:            http://search.cpan.org/dist/IO-Prompt
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
@@ -36,6 +40,7 @@ prompted.
 
 %prep
 %setup -q -n IO-Prompt-%{cpanver}
+%patch0 -p1
 
 find . -type f -exec chmod -c -x {} ';'
 
@@ -72,6 +77,7 @@ rm -rf %{buildroot}
 %changelog
 * Sat Nov 05 2011 Iain Arnell <iarnell at gmail.com> 0.997.001-1
 - update to latest upstream version
+- apply patch to fix rt#69084
 
 * Tue Jun 21 2011 Marcela Mašláňová <mmaslano at redhat.com> - 0.997-6
 - Perl mass rebuild