Bug#694537: libio-prompt-perl: Version of IO::Prompt in wheezy dies if you call prompt() in non-"main" package

[Salvatore Bonaccorso]

Control: tags -1 + patch

Attached is the proposed debdiff for the t-p-u.

Regards,
Salvatore
-------------- next part --------------
diff -Nru libio-prompt-perl-0.997001/debian/changelog libio-prompt-perl-0.997001/debian/changelog
--- libio-prompt-perl-0.997001/debian/changelog	2010-04-25 18:06:43.000000000 +0200
+++ libio-prompt-perl-0.997001/debian/changelog	2012-11-27 14:55:17.000000000 +0100
@@ -1,3 +1,14 @@
+libio-prompt-perl (0.997001-1+deb7u1) testing-proposed-updates; urgency=low
+
+  * Add 694537-use-Scalar-Util-openhandle.patch patch.
+    IO::Prompt doesn't work on perl (>= 5.14) if prompt() is called in
+    non-"main" package with 'Can't call method "opened" without a package
+    or object reference at /usr/share/perl5/IO/Prompt.pm line 188.'.
+    Thanks to Michael Howe <michael.howe at it.ox.ac.uk> (Closes: #694537)
+  * Email change: Salvatore Bonaccorso -> carnil at debian.org
+
+ -- Salvatore Bonaccorso <carnil at debian.org>  Tue, 27 Nov 2012 14:54:29 +0100
+
 libio-prompt-perl (0.997001-1) unstable; urgency=low
 
   * New upstream release
diff -Nru libio-prompt-perl-0.997001/debian/control libio-prompt-perl-0.997001/debian/control
--- libio-prompt-perl-0.997001/debian/control	2010-04-25 18:06:43.000000000 +0200
+++ libio-prompt-perl-0.997001/debian/control	2012-11-27 14:55:17.000000000 +0100
@@ -7,7 +7,7 @@
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: gregor herrmann <gregoa at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
  Gunnar Wolf <gwolf at debian.org>, Niko Tyni <ntyni at iki.fi>,
- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+ Salvatore Bonaccorso <carnil at debian.org>
 Standards-Version: 3.8.4
 Homepage: http://search.cpan.org/dist/IO-Prompt/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libio-prompt-perl/
diff -Nru libio-prompt-perl-0.997001/debian/copyright libio-prompt-perl-0.997001/debian/copyright
--- libio-prompt-perl-0.997001/debian/copyright	2010-04-25 18:06:43.000000000 +0200
+++ libio-prompt-perl-0.997001/debian/copyright	2012-11-27 14:55:17.000000000 +0100
@@ -12,7 +12,7 @@
  2006, Gunnar Wolf <gwolf at debian.org>
  2006, Niko Tyni <ntyni at iki.fi>
  2010, Jonathan Yu <jawnsy at cpan.org>
- 2010, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+ 2010, Salvatore Bonaccorso <carnil at debian.org>
 License: Artistic or GPL-1+
 
 License: Artistic
diff -Nru libio-prompt-perl-0.997001/debian/gbp.conf libio-prompt-perl-0.997001/debian/gbp.conf
--- libio-prompt-perl-0.997001/debian/gbp.conf	1970-01-01 01:00:00.000000000 +0100
+++ libio-prompt-perl-0.997001/debian/gbp.conf	2012-11-27 14:55:17.000000000 +0100
@@ -0,0 +1,2 @@
+[DEFAULT]
+debian-branch = wheezy
diff -Nru libio-prompt-perl-0.997001/debian/patches/694537-use-Scalar-Util-openhandle.patch libio-prompt-perl-0.997001/debian/patches/694537-use-Scalar-Util-openhandle.patch
--- libio-prompt-perl-0.997001/debian/patches/694537-use-Scalar-Util-openhandle.patch	1970-01-01 01:00:00.000000000 +0100
+++ libio-prompt-perl-0.997001/debian/patches/694537-use-Scalar-Util-openhandle.patch	2012-11-27 14:55:17.000000000 +0100
@@ -0,0 +1,23 @@
+Description: Doesn't work on 5.14 if you call prompt() in non-"main" package
+Origin: upstream, https://metacpan.org/diff/file/?target=DCONWAY/IO-Prompt-0.997002/lib/IO/Prompt.pm&source=DCONWAY/IO-Prompt-0.997001/lib/IO/Prompt.pm
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=69084
+Bug-Debian: http://bugs.debian.org/694537
+Forwarded: not-needed
+Author: Salvatore Bonaccorso <carnil at debian.org>
+Last-Update: 2012-11-27
+Applied-Upstream: yes
+
+--- a/lib/IO/Prompt.pm
++++ b/lib/IO/Prompt.pm
+@@ -183,9 +183,10 @@
+         open $IN, "</dev/tty" or croak "Cannot read from terminal: $!";
+     }
+     else {
++        use Scalar::Util;
+         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: $!";
+         }
diff -Nru libio-prompt-perl-0.997001/debian/patches/series libio-prompt-perl-0.997001/debian/patches/series
--- libio-prompt-perl-0.997001/debian/patches/series	2010-04-25 18:06:43.000000000 +0200
+++ libio-prompt-perl-0.997001/debian/patches/series	2012-11-27 14:55:17.000000000 +0100
@@ -1,2 +1,3 @@
 create-pty.patch
 add-shebang-to-examples.patch
+694537-use-Scalar-Util-openhandle.patch
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 836 bytes
Desc: Digital signature
URL: <http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20121127/e3ce21a0/attachment-0001.pgp>