Hello community, here is the log from the commit of package perl-IO-Pager for openSUSE:Factory checked in at 2017-10-09 19:46:04 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-IO-Pager (Old) and /work/SRC/openSUSE:Factory/.perl-IO-Pager.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-Pager" Mon Oct 9 19:46:04 2017 rev:22 rq:532535 version:0.39 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-IO-Pager/perl-IO-Pager.changes 2015-04-16 14:14:19.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-IO-Pager.new/perl-IO-Pager.changes 2017-10-09 19:48:14.127546185 +0200 @@ -1,0 +2,35 @@ +Sun Oct 8 08:15:12 UTC 2017 - co...@suse.com + +- updated to 0.39 + see /usr/share/doc/packages/perl-IO-Pager/CHANGES + + 0.39 Sat May 13 2017 + Rename t.pl to test.pl and alter behavior to address RT#120618 + i.e; MakeMaker's "helpfulness"; alternative is explicitly list + all PM in module. + + More bloody RT#121450 + + 0.38 Tue May 11 2017 + 0.37 Tue Apr 25 2017 + Fix tests for Perl 5.26 removal of . from @INC RT#121450 + (Patching for unreleased perl is a PITA) + + + 0.36 Mon Feb 29 2016 + Fix Use of uninitialized value at IO/Pager.pm line 98 + + Remove dubgging statement. + + Add some additional reporting to interactive tests. + + Specify minimum Test::More version. + + 0.35 Fri Jan 01 2016 + + Update test 11 for Windows; okay in CMD, PowerShell and MSYS + but tcsh and win-bash both fail. + + Add .travis.yml + +------------------------------------------------------------------- Old: ---- IO-Pager-0.34.tgz New: ---- IO-Pager-0.39.tgz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Pager.spec ++++++ --- /var/tmp/diff_new_pack.CMn92P/_old 2017-10-09 19:48:14.883512959 +0200 +++ /var/tmp/diff_new_pack.CMn92P/_new 2017-10-09 19:48:14.895512431 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-IO-Pager # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,27 +17,28 @@ Name: perl-IO-Pager -Version: 0.34 +Version: 0.39 Release: 0 %define cpan_name IO-Pager Summary: Select a pager and pipe text to it if destination is a TTY License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/IO-Pager/ -Source0: http://www.cpan.org/authors/id/J/JP/JPIERCE/%{cpan_name}-%{version}.tgz +Source0: https://cpan.metacpan.org/authors/id/J/JP/JPIERCE/%{cpan_name}-%{version}.tgz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(File::Which) +BuildRequires: perl(Test::More) >= 0.88 Requires: perl(File::Which) %{perl_requires} %description IO::Pager can be used to locate an available pager and set the _PAGER_ -environment variable (see the /NOTES manpage). It is also a factory for -creating I/O objects such as the IO::Pager::Buffered manpage and the -IO::Pager::Unbuffered manpage. +environment variable (see NOTES). It is also a factory for creating I/O +objects such as IO::Pager::Buffered and IO::Pager::Unbuffered. IO::Pager subclasses are designed to programmatically decide whether or not to pipe a filehandle's output to a program specified in _PAGER_. Subclasses ++++++ IO-Pager-0.34.tgz -> IO-Pager-0.39.tgz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/.travis.yml new/IO-Pager-0.39/.travis.yml --- old/IO-Pager-0.34/.travis.yml 1970-01-01 01:00:00.000000000 +0100 +++ new/IO-Pager-0.39/.travis.yml 2015-12-27 19:59:24.000000000 +0100 @@ -0,0 +1,11 @@ +sudo: false +language: perl +perl: +- "5.22" +- "5.20" +- "5.18" +- "5.16" +- "5.14" +- "5.12" +- "5.10" +- "5.8" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/CHANGES new/IO-Pager-0.39/CHANGES --- old/IO-Pager-0.34/CHANGES 2015-02-25 23:48:21.000000000 +0100 +++ new/IO-Pager-0.39/CHANGES 2017-05-13 18:55:13.000000000 +0200 @@ -1,5 +1,34 @@ Revision history for Perl extension IO::Pager. +0.39 Sat May 13 2017 + Rename t.pl to test.pl and alter behavior to address RT#120618 + i.e; MakeMaker's "helpfulness"; alternative is explicitly list + all PM in module. + + More bloody RT#121450 + +0.38 Tue May 11 2017 +0.37 Tue Apr 25 2017 + Fix tests for Perl 5.26 removal of . from @INC RT#121450 + (Patching for unreleased perl is a PITA) + + +0.36 Mon Feb 29 2016 + Fix Use of uninitialized value at IO/Pager.pm line 98 + + Remove dubgging statement. + + Add some additional reporting to interactive tests. + + Specify minimum Test::More version. + +0.35 Fri Jan 01 2016 + + Update test 11 for Windows; okay in CMD, PowerShell and MSYS + but tcsh and win-bash both fail. + + Add .travis.yml + 0.34 Wed Feb 25 2015 Fix version error in Makefile. @@ -22,21 +51,21 @@ Undef $ENV{LESS} in interactive tests in case -E is set. - Robustify t/11 for Win32 (RT#79950). + Robustify t/11 for Win32 RT#79950 0.31 Sat Apr 06 2013 - Add missing IO::Handle fallback for ::Unbuffered (RT#82351) + Add missing IO::Handle fallback for ::Unbuffered RT#82351 - Bogus fix for Windoze automatic line-ending failure of t/11 (RT#79950), + Bogus fix for Windoze automatic line-ending failure of t/11 RT#79950, improvements welcomed. 0.30 Tue Sep 04 2012 - Implement feature request #78270 to include support say + Implement feature request #RT78270 to include support for say() Preserve layers of passed hilehandle on instantiation. - Fixed tests under Win32 & cygwin, bug #75181. + Fixed tests under Win32 & cygwin RT#75181 Swap IO::Pager:new and ::open, alter subclass::open to remove unnecessary level of subroutine calls @@ -46,7 +75,7 @@ NOTE: This is broken, see ::less in TODO 0.24 Sat Feb 18 2012 - Fixed bug #74691, tests fail if CPANTS folk don't have a perl in PATH! + Fixed RT#74691, tests fail if CPANTS folk don't have a perl in PATH! Add PID method & token overload to access pager process identifier. @@ -54,7 +83,7 @@ 0.20 Sat Feb 11 2012 - Fixed bug #74691, add File::Which as dependency / skip test if missing + Fixed RT#74691, add File::Which as dependency / skip test if missing Fixed non-TTY/redirection behavior and added corresponding test @@ -65,7 +94,7 @@ Add OO interface Add alternate pagers 'lv', 'pg', - and system default '/etc/alternatives/pager' (bug# 74519) + and system default '/etc/alternatives/pager' RT#74519 Add tests for initialization failure conditions (9-open.t) @@ -75,11 +104,11 @@ Removed Perl warning 'Use of tie on a handle without * is deprecated'. - No interactive questions during 'make test' (bug# 66718) + No interactive questions during 'make test' RT#66718 Better handling of missing PAGER. - Look for more pagers: 'most' and 'w3m' (bug# 74519) + Look for more pagers: 'most' and 'w3m' RT#74519 Documentation clean-up, light refactoring, more error checks. @@ -87,7 +116,7 @@ 0.10 Unreleased - Added support for encodings via binmode() (bug# 67930). + Added support for encodings via binmode() RT#67930 Test: encoding, handle (glob, scalar, OO), interactive... @@ -110,7 +139,7 @@ 0.06 Wed Sep 21 2005 Fixed a stupid leftover using =~ for assignment that some perls ignored - (bug# 14692). + RT14692. Fixed other nits in t.pl and documentation. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/MANIFEST new/IO-Pager-0.39/MANIFEST --- old/IO-Pager-0.34/MANIFEST 2015-02-25 23:48:48.000000000 +0100 +++ new/IO-Pager-0.39/MANIFEST 2016-03-01 04:36:20.000000000 +0100 @@ -8,6 +8,7 @@ README TODO .proverc +.travis.yml t.pl t/01-load.t t/02-which.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/META.json new/IO-Pager-0.39/META.json --- old/IO-Pager-0.34/META.json 2015-02-25 23:48:47.000000000 +0100 +++ new/IO-Pager-0.39/META.json 2017-05-13 18:55:15.000000000 +0200 @@ -4,7 +4,7 @@ "Jerrad Pierce <jpie...@cpan.org>, Florent Angly <florent.an...@gmail.com>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.112621", + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.150010", "license" : [ "unknown" ], @@ -22,32 +22,33 @@ "prereqs" : { "build" : { "requires" : { - "Config" : 0, - "Env" : 0, - "Exporter" : 0, - "File::Temp" : 0, - "Test::More" : 0 + "Config" : "0", + "Env" : "0", + "Exporter" : "0", + "File::Temp" : "0", + "Test::More" : "0.88" } }, "configure" : { "requires" : { - "ExtUtils::MakeMaker" : 0 + "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { - "Env" : 0, - "File::Spec" : 0, - "File::Which" : 0, - "IO::Handle" : 0, - "PerlIO" : 0, - "SelectSaver" : 0, - "Symbol" : 0, - "Tie::Handle" : 0, - "base" : 0 + "Env" : "0", + "File::Spec" : "0", + "File::Which" : "0", + "IO::Handle" : "0", + "PerlIO" : "0", + "SelectSaver" : "0", + "Symbol" : "0", + "Tie::Handle" : "0", + "base" : "0" } } }, "release_status" : "stable", - "version" : "0.34" + "version" : "0.39", + "x_serialization_backend" : "JSON::PP version 2.27400" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/META.yml new/IO-Pager-0.39/META.yml --- old/IO-Pager-0.34/META.yml 2015-02-25 23:48:47.000000000 +0100 +++ new/IO-Pager-0.39/META.yml 2017-05-13 18:55:15.000000000 +0200 @@ -3,32 +3,33 @@ author: - 'Jerrad Pierce <jpie...@cpan.org>, Florent Angly <florent.an...@gmail.com>' build_requires: - Config: 0 - Env: 0 - Exporter: 0 - File::Temp: 0 - Test::More: 0 + Config: '0' + Env: '0' + Exporter: '0' + File::Temp: '0' + Test::More: '0.88' configure_requires: - ExtUtils::MakeMaker: 0 + ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.112621' +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.150010' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: IO-Pager no_index: directory: - t - inc requires: - Env: 0 - File::Spec: 0 - File::Which: 0 - IO::Handle: 0 - PerlIO: 0 - SelectSaver: 0 - Symbol: 0 - Tie::Handle: 0 - base: 0 -version: 0.34 + Env: '0' + File::Spec: '0' + File::Which: '0' + IO::Handle: '0' + PerlIO: '0' + SelectSaver: '0' + Symbol: '0' + Tie::Handle: '0' + base: '0' +version: '0.39' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/Makefile.PL new/IO-Pager-0.39/Makefile.PL --- old/IO-Pager-0.34/Makefile.PL 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/Makefile.PL 2016-03-01 04:23:21.000000000 +0100 @@ -5,7 +5,7 @@ 'NAME' => 'IO::Pager', 'VERSION_FROM' => 'lib/IO/Pager.pm', # finds $VERSION 'BUILD_REQUIRES' => { - 'Test::More' => 0, + 'Test::More' => 0.88, 'Config' => 0, 'Env' => 0, 'Exporter' => 0, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/README new/IO-Pager-0.39/README --- old/IO-Pager-0.34/README 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/README 2017-05-13 18:42:04.000000000 +0200 @@ -23,7 +23,7 @@ # Run non-interactive tests make test # Run interactive tests - perl -Mblib t.pl + perl -Mblib test.pl interactive make install DEPENDENCIES diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/TODO new/IO-Pager-0.39/TODO --- old/IO-Pager-0.34/TODO 2015-02-25 18:21:56.000000000 +0100 +++ new/IO-Pager-0.39/TODO 2016-01-02 05:46:27.000000000 +0100 @@ -1,5 +1,10 @@ Important things here and in code flagged with XXX +0.35 + + Odd failure of test 11 under tcsh and win-bash because + *reference* has extra trailing newline. + 0.30 Create a tee sub-class/layer? recommend PerlIO::Util's :tee in the dox, but provide diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/lib/IO/Pager.pm new/IO-Pager-0.39/lib/IO/Pager.pm --- old/IO-Pager-0.34/lib/IO/Pager.pm 2015-02-25 23:43:01.000000000 +0100 +++ new/IO-Pager-0.39/lib/IO/Pager.pm 2017-05-13 17:50:13.000000000 +0200 @@ -1,5 +1,5 @@ package IO::Pager; -our $VERSION = 0.34; #Really 0.34 +our $VERSION = 0.39; #Really 0.36 use 5.008; #At least, for decent perlio, and other modernisms use strict; @@ -91,10 +91,10 @@ my %args; if( ref($_[-1]) eq 'HASH' ){ %args = %{pop()}; - warn "REMAINDER? (@_)", scalar @_; + #warn "REMAINDER? (@_)", scalar @_; push(@_, $args{procedural}); } - else{ + elsif( defined($_[1]) ){ $args{mode} = splice(@_, 1, 1) if $_[1] =~ /^:/; $args{subclass} = pop if exists($_[1]); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/01-load.t new/IO-Pager-0.39/t/01-load.t --- old/IO-Pager-0.34/t/01-load.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/01-load.t 2017-04-26 02:00:32.000000000 +0200 @@ -1,7 +1,8 @@ use strict; use warnings; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); # Test that all modules load properly diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/02-which.t new/IO-Pager-0.39/t/02-which.t --- old/IO-Pager-0.34/t/02-which.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/02-which.t 2017-04-26 02:00:32.000000000 +0200 @@ -1,7 +1,8 @@ use strict; use warnings; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); use Env qw( PAGER ); use IO::Pager; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/02-which_interactive.t new/IO-Pager-0.39/t/02-which_interactive.t --- old/IO-Pager-0.34/t/02-which_interactive.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/02-which_interactive.t 2017-04-26 02:14:01.000000000 +0200 @@ -1,7 +1,8 @@ use strict; use warnings; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); use Env qw( PAGER ); # Test that a reasonable pager can be found @@ -15,7 +16,7 @@ diag "PAGER set by IO::Pager: '".($PAGER||'')."'\n"; select STDERR; - my $A = prompt "\nIs this reasonable? [Yn]"; + my $A = prompt("\nIs this reasonable? [Yn]"); ok is_yes($A), 'Found a reasonable pager'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/03-bald_interactive.t new/IO-Pager-0.39/t/03-bald_interactive.t --- old/IO-Pager-0.34/t/03-bald_interactive.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/03-bald_interactive.t 2017-04-26 02:14:54.000000000 +0200 @@ -1,7 +1,8 @@ use strict; use warnings; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); # Test unbuffered paging @@ -16,7 +17,7 @@ "\n"; select STDERR; - my $A = prompt "\nWas the text displayed directly on screen? [Yn]"; + my $A = prompt("\nWas the text displayed directly on screen? [Yn]"); ok is_yes($A), 'Diagnostic'; { @@ -36,7 +37,7 @@ close BOB; } - $A = prompt "\nWas the text displayed in a pager? [Yn]"; + $A = prompt("\nWas the text displayed in a pager? [Yn]"); ok is_yes($A), 'Unbuffered glob filehandle'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/04-buffered_interactive.t new/IO-Pager-0.39/t/04-buffered_interactive.t --- old/IO-Pager-0.34/t/04-buffered_interactive.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/04-buffered_interactive.t 2017-04-26 02:15:21.000000000 +0200 @@ -1,7 +1,8 @@ use strict; use warnings; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); # Test buffered paging @@ -16,7 +17,7 @@ "\n"; select STDERR; - my $A = prompt "\nWas the text displayed directly on screen? [Yn]"; + my $A = prompt("\nWas the text displayed directly on screen? [Yn]"); ok is_yes($A), 'Diagnostic'; { @@ -45,10 +46,10 @@ close BOB; } - $A = prompt "\nWas the text displayed in a pager? [Yn]"; + $A = prompt("\nWas the text displayed in a pager? [Yn]"); ok is_yes($A), 'Buffered glob filehandle'; - $A = prompt "\nWas there a pause between the two blocks of text? [Yn]"; + $A = prompt("\nWas there a pause between the two blocks of text? [Yn]"); ok is_yes($A), 'Flush buffered filehandle'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/05-binmode_interactive.t new/IO-Pager-0.39/t/05-binmode_interactive.t --- old/IO-Pager-0.34/t/05-binmode_interactive.t 2015-02-25 04:39:13.000000000 +0100 +++ new/IO-Pager-0.39/t/05-binmode_interactive.t 2017-04-26 02:15:28.000000000 +0200 @@ -1,7 +1,8 @@ use strict; use warnings; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); # Test paging binary content @@ -30,7 +31,7 @@ is $warnings, undef, 'No wide character warnings'; binmode STDOUT, ":utf8"; - my $A = prompt "\nWere Unicode characters like \x{17D} and \x{A9},\nor perhaps a bytecode placeholder such as <U+1F42A> displayed in the pager? [Yn]"; + my $A = prompt("\nWere Unicode characters like \x{17D} and \x{A9},\nor perhaps a bytecode placeholder such as <U+1F42A> displayed in the pager? [Yn]"); ok is_yes($A), 'Binmode layer selection / pager Unicode support'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/06-scalar_interactive.t new/IO-Pager-0.39/t/06-scalar_interactive.t --- old/IO-Pager-0.34/t/06-scalar_interactive.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/06-scalar_interactive.t 2017-04-26 02:15:36.000000000 +0200 @@ -1,7 +1,8 @@ use strict; use warnings; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); # Test unbuffered paging @@ -29,7 +30,7 @@ close($BOB); } - my $A = prompt "\nWas the text displayed in a pager? [Yn]"; + my $A = prompt("\nWas the text displayed in a pager? [Yn]"); ok is_yes($A), 'Buffered scalar filehandle'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/07-oo_interactive.t new/IO-Pager-0.39/t/07-oo_interactive.t --- old/IO-Pager-0.34/t/07-oo_interactive.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/07-oo_interactive.t 2017-04-26 02:15:48.000000000 +0200 @@ -1,7 +1,8 @@ use strict; use warnings; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); # Test OO interface @@ -19,7 +20,7 @@ $BOB->close(); } - my $A1 = prompt "\nDid you see 'OO factory filehandle' in your pager? [Yn]"; + my $A1 = prompt("\nDid you see 'OO factory filehandle' in your pager? [Yn]"); ok is_yes($A1), 'OO, factory instantiation'; require IO::Pager::Unbuffered; @@ -35,7 +36,7 @@ $BOB->close(); } - my $A2 = prompt "\nDid you see 'OO subclass filehandle' in your pager? [Yn]"; + my $A2 = prompt("\nDid you see 'OO subclass filehandle' in your pager? [Yn]"); ok is_yes($A2), 'OO, subclass instantiation'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/08-redirect.t new/IO-Pager-0.39/t/08-redirect.t --- old/IO-Pager-0.34/t/08-redirect.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/08-redirect.t 2017-05-13 17:49:59.000000000 +0200 @@ -1,8 +1,9 @@ use strict; use warnings; use File::Temp; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); #Disable warnings for awkard test file mechanism required by Windows my(undef, $tempname) = do{ $^W=0; File::Temp::tempfile(OPEN=>0)}; @@ -11,12 +12,12 @@ #Print the heredoc in 08-redirect.pl to temp file via redirection my $q = q[']; $q = q["] if $^O =~ /MSWin32/; -system qq($^X -Mblib -MIO::Pager::Page -e $q require q[t/08-redirect.pl]; print \$txt $q >$tempname); +system qq($^X -Mblib -MIO::Pager::Page -e $q require q[./t/08-redirect.pl]; print \$txt $q >$tempname); open(TMP, $tempname) or die "Could not open tmpfile: $!\n"; my $slurp = do{ undef $/; <TMP> }; -our $txt; require 't/08-redirect.pl'; +our $txt; require './t/08-redirect.pl'; ok($txt eq $slurp, 'Redirection (IO::Pager::Page)'); done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/09-open.t new/IO-Pager-0.39/t/09-open.t --- old/IO-Pager-0.34/t/09-open.t 2015-02-25 03:51:52.000000000 +0100 +++ new/IO-Pager-0.39/t/09-open.t 2017-04-26 02:00:32.000000000 +0200 @@ -1,8 +1,9 @@ use strict; use warnings; use File::Spec; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); no warnings; $^W = 0; #Avoid: Can't exec "/dev/null": Permission denied use IO::Pager; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/10-close_interactive.t new/IO-Pager-0.39/t/10-close_interactive.t --- old/IO-Pager-0.34/t/10-close_interactive.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/10-close_interactive.t 2017-04-26 02:16:03.000000000 +0200 @@ -1,7 +1,8 @@ use strict; use warnings; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); use IO::Pager; SKIP: { @@ -19,7 +20,7 @@ is $PID, $token->{child}, "PID($PID)"; sleep 1; } - $A = prompt "\nWas there a pause before the text appeared? [Ynr] (r-epeat)"; + $A = prompt("\nWas there a pause before the text appeared? [Ynr] (r-epeat)"); goto PAUSE if $A eq 'r'; ok is_yes($A), 'Implicit close of buffered OO filehandle'; @@ -29,7 +30,7 @@ print RIBBIT "No toad sexing allowed"; print RIBBIT "\nEnd of text, try pressing 'Q' to exit.\n" } - $A = prompt "\nIs toad sexing allowed? (And posted before commentary on trains) [yN]"; + $A = prompt("\nIs toad sexing allowed? (And posted before commentary on trains) [yN]"); goto PAUSE if $A eq 'r'; ok is_no($A), 'Implicit close of buffered glob filehandle'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/11-redirect-oo.t new/IO-Pager-0.39/t/11-redirect-oo.t --- old/IO-Pager-0.34/t/11-redirect-oo.t 2015-02-22 00:28:45.000000000 +0100 +++ new/IO-Pager-0.39/t/11-redirect-oo.t 2017-05-12 04:11:49.000000000 +0200 @@ -1,8 +1,9 @@ use strict; use warnings; use File::Temp; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); #Disable warnings for awkard test file mechanism required by Windows my(undef, $tempname) = do{ $^W=0; File::Temp::tempfile(OPEN=>0)}; @@ -14,14 +15,18 @@ open(TMP, $tempname) or die "Could not open tmpfile: $!\n"; my $slurp = do{ undef $/; <TMP> }; -#Special case for CMD lameness, see diag below -if( $^O =~ /MSWin32/ ){ - $slurp =~ s/\r\n$//; +TODO:{ + local $TODO = ''; + + #Special case for CMD & PowerShell lameness, see diag below + if( $^O =~ /MSWin32/ ){ + $slurp =~ s/\n\n\z/\n/m; + } + + our $txt; require './t/08-redirect.pl'; + cmp_ok($txt, 'eq', $slurp, 'Redirection with OO') || $^O =~ /MSWin32/ && + diag("If this test fails on Windows and all others pass, things are probably good. CMD appends an extra newline to redirected output."); } -our $txt; require 't/08-redirect.pl'; -cmp_ok($txt, 'eq', $slurp, 'Redirection with OO') || $^O =~ /MSWin32/ && - diag("If this test fails on Windows and all others pass, things are probably good. CMD appends an extra newline to redirected output."); -; done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/12-preservelayers_interactive.t new/IO-Pager-0.39/t/12-preservelayers_interactive.t --- old/IO-Pager-0.34/t/12-preservelayers_interactive.t 2012-09-05 05:12:53.000000000 +0200 +++ new/IO-Pager-0.39/t/12-preservelayers_interactive.t 2017-04-26 02:16:10.000000000 +0200 @@ -1,8 +1,9 @@ use strict; use warnings; use File::Temp; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); use 5.6.0; use utf8; @@ -26,7 +27,7 @@ binmode(*BOB, ':encoding(UTF-8)'); select(BOB); - my $A = prompt "\nDid you see 'Bonzai Bjørn' in your pager? Note the crossed o in the second word [Yn]"; + my $A = prompt("\nDid you see 'Bonzai Bjørn' in your pager? Note the crossed o in the second word [Yn]"); ok is_yes($A), 'layer preservation'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/13-eof_interactive.t new/IO-Pager-0.39/t/13-eof_interactive.t --- old/IO-Pager-0.34/t/13-eof_interactive.t 2015-02-25 16:48:52.000000000 +0100 +++ new/IO-Pager-0.39/t/13-eof_interactive.t 2017-04-26 02:16:16.000000000 +0200 @@ -1,8 +1,9 @@ use strict; use warnings; use File::Temp; -use Test::More; -use t::TestUtils; +use Test::More 0.88; +require './t/TestUtils.pm'; +t::TestUtils->import(); use bignum; use IO::Pager::Page; @@ -19,7 +20,7 @@ } until( eof(*STDOUT) ); print "Pager closed, wrapping up.\n"; - my $A = prompt "\nWere things wrapped up after you quit the pager? [Yn]"; + my $A = prompt("\nWere things wrapped up after you quit the pager? [Yn]"); ok is_yes($A), 'Signal handling EOF'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t/TestUtils.pm new/IO-Pager-0.39/t/TestUtils.pm --- old/IO-Pager-0.34/t/TestUtils.pm 2015-02-25 04:48:07.000000000 +0100 +++ new/IO-Pager-0.39/t/TestUtils.pm 2017-05-13 18:45:09.000000000 +0200 @@ -5,12 +5,11 @@ use Config; use Test::More; use Env qw( HARNESS_ACTIVE ); -use ExtUtils::MakeMaker qw( prompt ); -use base qw( Exporter ); -our @EXPORT; BEGIN { - @EXPORT = qw{ + use ExtUtils::MakeMaker qw( prompt ); + use base qw( Exporter ); + our @EXPORT = qw{ skip_interactive skip_old_perl skip_no_file_which @@ -24,7 +23,7 @@ } sub skip_interactive { - skip "Run 'perl -Mblib t.pl' to perform interactive tests.", 1 if $HARNESS_ACTIVE; + skip "!! Run 'perl -Mblib test.pl interactive' to perform interactive tests/demonstrations of the module's abilities.", 1 if $HARNESS_ACTIVE; } sub skip_old_perl { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Pager-0.34/t.pl new/IO-Pager-0.39/t.pl --- old/IO-Pager-0.34/t.pl 2015-02-25 16:50:37.000000000 +0100 +++ new/IO-Pager-0.39/t.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,10 +0,0 @@ -use strict; -use warnings; - -undef($ENV{LESS}); - -for (sort glob "t/*interactive.t") { - print "Running $_...\n"; - system($^X, '-Mblib', $_); -} -print "Done\n"; ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #description: |- # override description from CPAN #summary: override summary from CPAN #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_build: |- # rm unused.files #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module
