[libio-prompter-perl] 01/03: Imported Upstream version 0.004008
Salvatore Bonaccorso
carnil at debian.org
Mon Sep 30 07:18:49 UTC 2013
This is an automated email from the git hooks/post-receive script.
carnil pushed a commit to annotated tag debian/0.004008-1
in repository libio-prompter-perl.
commit 1f2159009877548d176f52c1f156d2635f28a6f8
Author: Salvatore Bonaccorso <carnil at debian.org>
Date: Mon Sep 30 09:12:44 2013 +0200
Imported Upstream version 0.004008
---
Changes | 8 ++++++++
META.yml | 2 +-
README | 2 +-
lib/IO/Prompter.pm | 17 ++++++++++-------
t/interactive.t | 3 ---
t/interactive_echo.t | 3 ---
t/interactive_no_term_readkey.t | 3 ---
t/interactive_out.t | 3 ---
t/interactive_return.t | 3 ---
t/interactive_wipe.t | 3 ---
t/interactive_wipe_wipefirst.t | 3 ---
t/interactive_wipefirst.t | 3 ---
t/timeout.t | 3 ---
t/timeout_no_term_readkey.t | 3 ---
14 files changed, 20 insertions(+), 39 deletions(-)
diff --git a/Changes b/Changes
index 309ab96..5d718c1 100644
--- a/Changes
+++ b/Changes
@@ -120,3 +120,11 @@ Revision history for IO-Prompter
* Reworked workaround for Term::ReadKey timeout bug under Windows
(thanks again, Bas)
+
+
+0.004008 Mon Sep 30 14:36:57 2013
+
+ * Further improvements under 5.18, especially for Windows
+ (thanks, Bas)
+
+ * Attempted to mollify cpanm by moving $VERSION declaration
diff --git a/META.yml b/META.yml
index 2f307af..ddce966 100644
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: IO-Prompter
-version: 0.004007
+version: 0.004008
abstract: Prompt for input, read it, clean it, return it.
author:
- Damian Conway <DCONWAY at CPAN.org>
diff --git a/README b/README
index af22100..6734a63 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-IO::Prompter version 0.004007
+IO::Prompter version 0.004008
Prompt for, read, vet, chomp, and encapsulate input.
Like so:
diff --git a/lib/IO/Prompter.pm b/lib/IO/Prompter.pm
index 73be0c6..916a21f 100644
--- a/lib/IO/Prompter.pm
+++ b/lib/IO/Prompter.pm
@@ -2,13 +2,14 @@ use 5.010;
package IO::Prompter;
use warnings;
+no if $] >= 5.018000, warnings => 'experimental::smartmatch';
use strict;
use Carp;
use Contextual::Return;
use Scalar::Util qw< openhandle looks_like_number >;
use Symbol qw< qualify_to_ref >;
-our $VERSION = '0.004007';
+our $VERSION = '0.004008';
my $fake_input; # Flag that we're faking input from the source
@@ -1647,18 +1648,20 @@ sub _std_printer_to {
my ($out_filehandle, $opt_ref) = @_;
no strict 'refs';
_autoflush($out_filehandle);
- if (eval { require Term::ANSIColor} ) {
+ if (eval { require Term::ANSIColor}) {
return sub {
my $style = shift;
- s{\e}{}gxms for @_;
- print {$out_filehandle} _stylize($opt_ref->{$style}(@_), @_);
+ my @loc = (@_);
+ s{\e}{}gxms for @loc;
+ print {$out_filehandle} _stylize($opt_ref->{$style}(@loc), @loc);
};
}
else {
return sub {
shift; # ...ignore style
- s{\e}{}gxms for @_;
- print {$out_filehandle} @_;
+ my @loc = (@_);
+ s{\e}{}gxms for @loc;
+ print {$out_filehandle} @loc;
};
}
}
@@ -1678,7 +1681,7 @@ IO::Prompter - Prompt for input, read it, clean it, return it.
=head1 VERSION
-This document describes IO::Prompter version 0.004007
+This document describes IO::Prompter version 0.004008
=head1 SYNOPSIS
diff --git a/t/interactive.t b/t/interactive.t
index b2d77f1..24344d8 100644
--- a/t/interactive.t
+++ b/t/interactive.t
@@ -7,9 +7,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
else {
plan('no_plan');
}
diff --git a/t/interactive_echo.t b/t/interactive_echo.t
index 8a1ecd0..d2c2442 100644
--- a/t/interactive_echo.t
+++ b/t/interactive_echo.t
@@ -8,9 +8,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
elsif (!eval { require Term::ReadKey }) {
plan('skip_all' => 'Term::ReadKey not available');
exit;
diff --git a/t/interactive_no_term_readkey.t b/t/interactive_no_term_readkey.t
index 864207d..83edc8f 100644
--- a/t/interactive_no_term_readkey.t
+++ b/t/interactive_no_term_readkey.t
@@ -10,9 +10,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
else {
plan('no_plan');
}
diff --git a/t/interactive_out.t b/t/interactive_out.t
index 0245991..b867371 100644
--- a/t/interactive_out.t
+++ b/t/interactive_out.t
@@ -7,9 +7,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
else {
plan('no_plan');
}
diff --git a/t/interactive_return.t b/t/interactive_return.t
index f0aa73d..4992a7e 100644
--- a/t/interactive_return.t
+++ b/t/interactive_return.t
@@ -8,9 +8,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
else {
plan('no_plan');
}
diff --git a/t/interactive_wipe.t b/t/interactive_wipe.t
index 2a59c8e..9545e6b 100644
--- a/t/interactive_wipe.t
+++ b/t/interactive_wipe.t
@@ -7,9 +7,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
else {
plan('no_plan');
}
diff --git a/t/interactive_wipe_wipefirst.t b/t/interactive_wipe_wipefirst.t
index 437fb3b..c939859 100644
--- a/t/interactive_wipe_wipefirst.t
+++ b/t/interactive_wipe_wipefirst.t
@@ -7,9 +7,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
else {
plan('no_plan');
}
diff --git a/t/interactive_wipefirst.t b/t/interactive_wipefirst.t
index bcf217f..123ea44 100644
--- a/t/interactive_wipefirst.t
+++ b/t/interactive_wipefirst.t
@@ -7,9 +7,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
else {
plan('no_plan');
}
diff --git a/t/timeout.t b/t/timeout.t
index d991b72..d61f073 100644
--- a/t/timeout.t
+++ b/t/timeout.t
@@ -7,9 +7,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
else {
plan('no_plan');
}
diff --git a/t/timeout_no_term_readkey.t b/t/timeout_no_term_readkey.t
index e79f260..b0836a7 100644
--- a/t/timeout_no_term_readkey.t
+++ b/t/timeout_no_term_readkey.t
@@ -10,9 +10,6 @@ use IO::Prompter;
if (!-t *STDIN || !-t *STDERR) {
plan('skip_all' => 'Non-interactive test environment');
}
-elsif ($^O =~ /Win/) {
- plan('skip_all' => 'Skipping interactive tests under Windows');
-}
else {
plan('no_plan');
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libio-prompter-perl.git
More information about the Pkg-perl-cvs-commits
mailing list