Hello community, here is the log from the commit of package perl-File-Next for openSUSE:Factory checked in at 2016-07-12 23:52:31 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-File-Next (Old) and /work/SRC/openSUSE:Factory/.perl-File-Next.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-Next" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-Next/perl-File-Next.changes 2013-06-06 13:13:13.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-File-Next.new/perl-File-Next.changes 2016-07-12 23:52:33.000000000 +0200 @@ -1,0 +2,40 @@ +Sat Jul 9 05:17:44 UTC 2016 - co...@suse.com + +- updated to 1.16 + see /usr/share/doc/packages/perl-File-Next/Changes + + 1.16 Thu Jul 7 22:41:30 CDT 2016 + [FIXES] + File::Next::from_file() would ignore the C<warning_handler> argument + if it was passed in. + +------------------------------------------------------------------- +Sun Jun 12 13:03:20 UTC 2016 - co...@suse.com + +- updated to 1.14 + see /usr/share/doc/packages/perl-File-Next/Changes + + 1.14 Thu Jun 9 22:33:24 CDT 2016 + No changes since 1.13_02. + + + 1.13_02 Sun Jun 5 23:18:10 CDT 2016 + + [FIXES] + t/follow.t would cause failures in other tests when running in + parallel. Now it correctly uses a temp directory. + + + 1.13_01 Mon May 30 21:45:42 CDT 2016 + [FIXES] + File::Next::from_file() was incorrectly using the error_handler parm + for both error and warning handler. + + [INTERNAL] + Optimized -f/-p calls in files() to not repeat the variable. + + Use File::Temp in tests, not POSIX::tmpnam, so that it works + on Android. See https://github.com/petdance/file-next/issues/18 + Thanks, Brian Fraser. + +------------------------------------------------------------------- Old: ---- File-Next-1.12.tar.gz New: ---- File-Next-1.16.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-Next.spec ++++++ --- /var/tmp/diff_new_pack.0RBGOb/_old 2016-07-12 23:52:34.000000000 +0200 +++ /var/tmp/diff_new_pack.0RBGOb/_new 2016-07-12 23:52:34.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-File-Next # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2016 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,20 +17,19 @@ Name: perl-File-Next -Version: 1.12 +Version: 1.16 Release: 0 %define cpan_name File-Next Summary: File-finding iterator License: Artistic-2.0 Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/File-Next/ -Source: http://www.cpan.org/authors/id/P/PE/PETDANCE/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/P/PE/PETDANCE/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Test::More) >= 0.88 -#BuildRequires: perl(File::Next) -#BuildRequires: perl(Util) Requires: perl(Test::More) >= 0.88 %{perl_requires} ++++++ File-Next-1.12.tar.gz -> File-Next-1.16.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/Changes new/File-Next-1.16/Changes --- old/File-Next-1.12/Changes 2012-12-22 22:22:40.000000000 +0100 +++ new/File-Next-1.16/Changes 2016-07-08 05:55:10.000000000 +0200 @@ -3,6 +3,36 @@ File::Next does NOT use rt.cpan.org for bug tracking. Please report problems at http://github.com/petdance/file-next/issues. +1.16 Thu Jul 7 22:41:30 CDT 2016 + [FIXES] + File::Next::from_file() would ignore the C<warning_handler> argument + if it was passed in. + + +1.14 Thu Jun 9 22:33:24 CDT 2016 + No changes since 1.13_02. + + +1.13_02 Sun Jun 5 23:18:10 CDT 2016 + + [FIXES] + t/follow.t would cause failures in other tests when running in + parallel. Now it correctly uses a temp directory. + + +1.13_01 Mon May 30 21:45:42 CDT 2016 + [FIXES] + File::Next::from_file() was incorrectly using the error_handler parm + for both error and warning handler. + + [INTERNAL] + Optimized -f/-p calls in files() to not repeat the variable. + + Use File::Temp in tests, not POSIX::tmpnam, so that it works + on Android. See https://github.com/petdance/file-next/issues/18 + Thanks, Brian Fraser. + + 1.12 Sat Dec 22 15:22:31 CST 2012 [FIXES] Fix detection of named pipes under various flavors of BSD. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/META.json new/File-Next-1.16/META.json --- old/File-Next-1.12/META.json 2012-12-22 22:23:31.000000000 +0100 +++ new/File-Next-1.16/META.json 2016-07-08 05:59:02.000000000 +0200 @@ -4,9 +4,9 @@ "Andy Lester <a...@petdance.com>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112621", + "generated_by" : "ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.143240", "license" : [ - "perl_5" + "artistic_2" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", @@ -22,17 +22,17 @@ "prereqs" : { "build" : { "requires" : { - "ExtUtils::MakeMaker" : 0 + "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { - "ExtUtils::MakeMaker" : 0 + "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { - "File::Spec" : 0, + "File::Spec" : "0", "Test::More" : "0.88" } } @@ -49,5 +49,5 @@ "url" : "http://github.com/petdance/file-next/tree/master" } }, - "version" : "1.12" + "version" : "1.16" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/META.yml new/File-Next-1.16/META.yml --- old/File-Next-1.12/META.yml 2012-12-22 22:23:31.000000000 +0100 +++ new/File-Next-1.16/META.yml 2016-07-08 05:59:01.000000000 +0200 @@ -3,25 +3,25 @@ author: - 'Andy Lester <a...@petdance.com>' build_requires: - ExtUtils::MakeMaker: 0 + ExtUtils::MakeMaker: '0' configure_requires: - ExtUtils::MakeMaker: 0 + ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112621' -license: perl +generated_by: 'ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.143240' +license: artistic_2 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: File-Next no_index: directory: - t - inc requires: - File::Spec: 0 - Test::More: 0.88 + File::Spec: '0' + Test::More: '0.88' resources: bugtracker: http://github.com/petdance/file-next/issues license: http://dev.perl.org/licenses/ repository: http://github.com/petdance/file-next/tree/master -version: 1.12 +version: '1.16' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/Makefile.PL new/File-Next-1.16/Makefile.PL --- old/File-Next-1.12/Makefile.PL 2012-12-22 21:48:03.000000000 +0100 +++ new/File-Next-1.16/Makefile.PL 2016-07-08 05:55:10.000000000 +0200 @@ -12,6 +12,7 @@ VERSION_FROM => 'Next.pm', ABSTRACT_FROM => 'Next.pm', PL_FILES => {}, + LICENSE => 'artistic_2', PREREQ_PM => { 'Test::More' => 0.88, 'File::Spec' => 0, @@ -21,7 +22,7 @@ ); if ( $ExtUtils::MakeMaker::VERSION =~ /^\d\.\d\d$/ and $ExtUtils::MakeMaker::VERSION > 6.30 ) { - $parms{LICENSE} = 'perl'; + $parms{LICENSE} = 'artistic_2'; } if ( $ExtUtils::MakeMaker::VERSION ge '6.46' ) { @@ -51,7 +52,7 @@ critic: perlcritic -profile perlcriticrc -1 -quiet *.pm t/*.t -TARGET_DIRS=~/parrot /usr/local/minicpan ~/bin +TARGET_DIRS=~/parrot ~/perl-critic ~/bin prof: all perl -d:DProf -Mblib ./stress $(TARGET_DIRS) > /dev/null diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/Next.pm new/File-Next-1.16/Next.pm --- old/File-Next-1.12/Next.pm 2012-12-22 22:22:24.000000000 +0100 +++ new/File-Next-1.16/Next.pm 2016-07-08 05:55:10.000000000 +0200 @@ -9,11 +9,11 @@ =head1 VERSION -Version 1.12 +Version 1.16 =cut -our $VERSION = '1.12'; +our $VERSION = '1.16'; =head1 SYNOPSIS @@ -181,7 +181,7 @@ =back The descend filter is NOT applied to any directory names specified -in as I<@starting_points> in the constructor. For example, +as I<@starting_points> in the constructor. For example, my $iter = File::Next::files( { descend_filter => sub{0} }, '/tmp' ); @@ -192,8 +192,9 @@ =head2 error_handler => \&error_handler If I<error_handler> is set, then any errors will be sent through -it. By default, this value is C<CORE::die>. This function must -NOT return. +it. If the error is OS-related (ex. file not found, not permissions), the +native error code is passed as a second argument. By default, this value is +C<CORE::die>. This function must NOT return. =head2 warning_handler => \&warning_handler @@ -228,7 +229,7 @@ =head2 nul_separated => [ 0 | 1 ] -Used on by the C<from_file> iterator. Specifies that the files +Used by the C<from_file> iterator. Specifies that the files listed in the input file are separated by NUL characters, as from the C<find> command with the C<-print0> argument. @@ -246,7 +247,7 @@ %files_defaults = ( file_filter => undef, descend_filter => undef, - error_handler => sub { CORE::die @_ }, + error_handler => sub { CORE::die $_[0] }, warning_handler => sub { CORE::warn @_ }, sort_files => undef, follow_symlinks => 1, @@ -260,12 +261,12 @@ die _bad_invocation() if @_ && defined($_[0]) && ($_[0] eq __PACKAGE__); my ($parms,@queue) = _setup( \%files_defaults, @_ ); - my $filter = $parms->{file_filter}; return sub { + my $filter = $parms->{file_filter}; while (@queue) { - my ($dirname,$file,$fullpath) = splice( @queue, 0, 3 ); ## no critic (ProhibitMagicNumbers) - if ( -f $fullpath || -p $fullpath || $fullpath =~ m{^/dev/fd} ) { + my ($dirname,$file,$fullpath) = splice( @queue, 0, 3 ); + if ( -f $fullpath || -p _ || $fullpath =~ m{^/dev/fd} ) { if ( $filter ) { local $_ = $file; local $File::Next::dir = $dirname; @@ -274,7 +275,7 @@ } return wantarray ? ($dirname,$file,$fullpath) : $fullpath; } - elsif ( -d _ ) { + if ( -d _ ) { unshift( @queue, _candidate_files( $parms, $fullpath ) ); } } # while @@ -291,7 +292,7 @@ return sub { while (@queue) { - my (undef,undef,$fullpath) = splice( @queue, 0, 3 ); ## no critic (ProhibitMagicNumbers) + my (undef,undef,$fullpath) = splice( @queue, 0, 3 ); if ( -d $fullpath ) { unshift( @queue, _candidate_files( $parms, $fullpath ) ); return $fullpath; @@ -306,11 +307,11 @@ die _bad_invocation() if @_ && defined($_[0]) && ($_[0] eq __PACKAGE__); my ($parms,@queue) = _setup( \%files_defaults, @_ ); - my $filter = $parms->{file_filter}; return sub { + my $filter = $parms->{file_filter}; while (@queue) { - my ($dirname,$file,$fullpath) = splice( @queue, 0, 3 ); ## no critic (ProhibitMagicNumbers) + my ($dirname,$file,$fullpath) = splice( @queue, 0, 3 ); if ( -d $fullpath ) { unshift( @queue, _candidate_files( $parms, $fullpath ) ); } @@ -332,7 +333,7 @@ my ($parms,@queue) = _setup( \%files_defaults, @_ ); my $err = $parms->{error_handler}; - my $warn = $parms->{error_handler}; + my $warn = $parms->{warning_handler}; my $filename = $queue[1]; @@ -347,13 +348,13 @@ } else { if ( !open( $fh, '<', $filename ) ) { - $err->( "Unable to open $filename: $!" ); + $err->( "Unable to open $filename: $!", $! + 0 ); return undef; } } - my $filter = $parms->{file_filter}; return sub { + my $filter = $parms->{file_filter}; local $/ = $parms->{nul_separated} ? "\x00" : $/; while ( my $fullpath = <$fh> ) { chomp $fullpath; @@ -434,7 +435,7 @@ # Any leftover keys are bogus for my $badkey ( keys %passed_parms ) { - my $sub = (caller(1))[3]; ## no critic (ProhibitMagicNumbers) + my $sub = (caller(1))[3]; $parms->{error_handler}->( "Invalid option passed to $sub(): $badkey" ); } @@ -472,7 +473,7 @@ my $dh; if ( !opendir $dh, $dirname ) { - $parms->{error_handler}->( "$dirname: $!" ); + $parms->{error_handler}->( "$dirname: $!", $! + 0 ); return; } @@ -484,13 +485,13 @@ for my $file ( grep { !exists $skip_dirs{$_} } readdir $dh ) { my $has_stat; - # Only do directory checking if we have a descend_filter my $fullpath = File::Spec->catdir( $dirname, $file ); if ( !$follow_symlinks ) { next if -l $fullpath; $has_stat = 1; } + # Only do directory checking if we have a descend_filter if ( $descend_filter ) { if ( $has_stat ? (-d _) : (-d $fullpath) ) { local $File::Next::dir = $fullpath; @@ -594,6 +595,9 @@ marvelous I<Higher Order Perl>, page 126. Thanks also for bug fixes and typo finding to +Gerhard Poul, +Brian Fraser, +Todd Rinaldo, Bruce Woodward, Christopher J. Madsen, Bernhard Fisseni @@ -601,7 +605,7 @@ =head1 COPYRIGHT & LICENSE -Copyright 2005-2012 Andy Lester. +Copyright 2005-2016 Andy Lester. This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License version 2.0. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/README.md new/File-Next-1.16/README.md --- old/File-Next-1.12/README.md 2012-05-07 21:15:33.000000000 +0200 +++ new/File-Next-1.16/README.md 2016-07-08 05:55:10.000000000 +0200 @@ -1,12 +1,13 @@ File-Next --------- +[![Build Status](https://travis-ci.org/petdance/file-next.svg?branch=dev)](https://travis-ci.org/petdance/file-next) + File::Next is an iterator-based module for finding files. It's lightweight, has no dependencies, runs under taint mode, and puts your program more directly in control of file selection. -It's taken heavily from Mark Jason Dominus' excellent book "Higher -Order Perl". http://hop.perl.plover.com/ +It's taken mostly from Mark Jason Dominus' excellent book ["Higher Order Perl"](http://hop.perl.plover.com/). INSTALLATION ------------ @@ -43,7 +44,7 @@ COPYRIGHT AND LICENSE --------------------- -Copyright 2005-2012 Andy Lester. +Copyright 2005-2016 Andy Lester. This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License version 2.0. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/perlcriticrc new/File-Next-1.16/perlcriticrc --- old/File-Next-1.12/perlcriticrc 2012-05-07 21:23:16.000000000 +0200 +++ new/File-Next-1.16/perlcriticrc 2016-06-06 02:03:49.000000000 +0200 @@ -9,19 +9,29 @@ [-Documentation::RequirePodLinksIncludeText] [-Documentation::RequirePodSections] +[-Editor::RequireEmacsFileVariables] + [-ErrorHandling::RequireCarping] +[-ErrorHandling::RequireUseOfExceptions] [-Miscellanea::RequireRcsKeywords] [-Modules::RequireVersionVar] +[-Modules::RequirePerlVersion] [-RegularExpressions::RequireDotMatchAnything] [-RegularExpressions::RequireExtendedFormatting] [-RegularExpressions::RequireLineBoundaryMatching] +[-Subroutines::ProhibitCallsToUndeclaredSubs] +[-Subroutines::ProhibitCallsToUnexportedSubs] +[-Subroutines::ProhibitExplicitReturnUndef] + [-ValuesAndExpressions::ProhibitConstantPragma] [-ValuesAndExpressions::ProhibitEmptyQuotes] +[-ValuesAndExpressions::ProhibitMagicNumbers] [-ValuesAndExpressions::ProhibitNoisyQuotes] +[-ValuesAndExpressions::RequireConstantOnLeftSideOfEquality] [-Variables::ProhibitPunctuationVars] [-Variables::ProhibitPackageVars] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/t/follow.t new/File-Next-1.16/t/follow.t --- old/File-Next-1.12/t/follow.t 2012-05-07 21:39:08.000000000 +0200 +++ new/File-Next-1.16/t/follow.t 2016-06-06 06:17:56.000000000 +0200 @@ -1,4 +1,4 @@ -#!perl +#!perl -T use strict; use warnings; @@ -9,15 +9,46 @@ use File::Next; +use File::Temp qw( tempdir ); +use File::Copy; + if ( ! eval { symlink('',''); 1 } ) { plan skip_all => 'System does not support symlinks.'; } plan tests => 6; + +# Files to copy out of the swamp into the tempdir. +my @samplefiles = qw( + 0 + c-header.h + c-source.c + javascript.js + Makefile +); + +# Create a mini-swamp in the temp directory. +my $tempdir = tempdir( CLEANUP => 1 ); +diag "t/follow.t is working with temp directory $tempdir"; +mkdir "$tempdir/dir" or die; +for my $filename ( qw( a1 a2 ) ) { + my $tempfilename = "$tempdir/dir/$filename"; + open( my $fh, '>', $tempfilename ) or die "$tempfilename: $!"; + close $fh or die $!; + push( @samplefiles, "dir/$filename" ); +} + +my @realfiles; +for my $file ( @samplefiles ) { + my $tempfile = "$tempdir/$file"; + copy( "t/swamp/$file", $tempfile ); + push( @realfiles, $tempfile ); +} + my %links = ( - 't/swamp/linkfile' => 'Makefile', - 't/swamp/linkdir' => 'a', + "$tempdir/linkfile" => "$tempdir/Makefile", + "$tempdir/linkdir" => "$tempdir/dir", ); for my $link ( sort keys %links ) { @@ -26,35 +57,14 @@ symlink( $file, $link ) or die "Unable to create symlink $file: $!"; } -my @realfiles = qw( - t/swamp/0 - t/swamp/Makefile - t/swamp/Makefile.PL - t/swamp/c-header.h - t/swamp/c-source.c - t/swamp/javascript.js - t/swamp/parrot.pir - t/swamp/perl-test.t - t/swamp/perl-without-extension - t/swamp/perl.pl - t/swamp/perl.pm - t/swamp/perl.pod - t/swamp/a/a1 - t/swamp/a/a2 - t/swamp/b/b1 - t/swamp/b/b2 - t/swamp/c/c1 - t/swamp/c/c2 -); - -my @symlinkage = qw( - t/swamp/linkfile - t/swamp/linkdir/a1 - t/swamp/linkdir/a2 +my @symlinkage = ( + "$tempdir/linkfile", + "$tempdir/linkdir/a1", + "$tempdir/linkdir/a2", ); DEFAULT: { - my $iter = File::Next::files( 't/swamp' ); + my $iter = File::Next::files( $tempdir ); isa_ok( $iter, 'CODE' ); my @actual = slurp( $iter ); @@ -64,7 +74,7 @@ } NO_FOLLOW: { - my $iter = File::Next::files( { follow_symlinks => 0 }, 't/swamp' ); + my $iter = File::Next::files( { follow_symlinks => 0 }, $tempdir ); isa_ok( $iter, 'CODE' ); my @actual = slurp( $iter ); @@ -74,7 +84,7 @@ } NO_FOLLOW_STARTING_WITH_A_SYMLINK: { - my $iter = File::Next::files( { follow_symlinks => 0 }, 't/swamp/linkdir' ); + my $iter = File::Next::files( { follow_symlinks => 0 }, "$tempdir/linkdir" ); isa_ok( $iter, 'CODE' ); my @actual = slurp( $iter ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/t/from_file.t new/File-Next-1.16/t/from_file.t --- old/File-Next-1.12/t/from_file.t 2012-06-12 05:28:16.000000000 +0200 +++ new/File-Next-1.16/t/from_file.t 2016-07-08 05:55:10.000000000 +0200 @@ -2,11 +2,14 @@ use strict; use warnings; -use Test::More tests => 10; +use Test::More tests => 17; use lib 't'; use Util; +use File::Copy (); +use File::Temp; + use File::Next; # use Test::Differences; @@ -68,3 +71,43 @@ ok( !defined($iter), 'Iterator should be null' ); ok( !defined($rc), 'Eval should fail' ); } + +FROM_OK_FILE_BUT_MISSING: { + my $warn_called; + local $SIG{__WARN__} = sub { $warn_called = 1 }; + + my $tempfile = File::Temp->new; + File::Copy::copy('t/filelist.txt', $tempfile); + print {$tempfile} "t/non-existent-file.txt\n"; + $tempfile->close; + + my $iter = File::Next::from_file( $tempfile->filename ); + isa_ok( $iter, 'CODE' ); + + my @actual = slurp( $iter ); + sets_match( \@actual, \@expected, 'FROM_FILESYSTEM_FILE' ); + + ok($warn_called, 'CORE::warn() should be called if a warning occurs and no warning_handler is set'); +} + +FROM_OK_FILE_BUT_MISSING_WITH_HANDLER: { + my $warn_called; + local $SIG{__WARN__} = sub { $warn_called = 1 }; + + my $tempfile = File::Temp->new; + File::Copy::copy('t/filelist.txt', $tempfile); + print {$tempfile} "t/non-existent-file.txt\n"; + $tempfile->close; + + my $warning_handler_called; + my $iter = File::Next::from_file({ + warning_handler => sub { $warning_handler_called = 1 }, + }, $tempfile->filename); + isa_ok( $iter, 'CODE' ); + + my @actual = slurp( $iter ); + sets_match( \@actual, \@expected, 'FROM_FILESYSTEM_FILE' ); + + ok(!$warn_called, 'CORE::warn() should be not called if a warning occurs but a warning_handler is set'); + ok($warning_handler_called, 'The set warning handler should be called if a warning occurs'); +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Next-1.12/t/named-pipe.t new/File-Next-1.16/t/named-pipe.t --- old/File-Next-1.12/t/named-pipe.t 2012-06-12 05:28:16.000000000 +0200 +++ new/File-Next-1.16/t/named-pipe.t 2016-06-06 02:03:49.000000000 +0200 @@ -5,13 +5,17 @@ use Test::More; +use File::Temp; + plan skip_all => q{Windows doesn't have named pipes} if $^O =~ /MSWin32/; -plan tests => 4; +plan tests => 2; use POSIX (); -my $pipename = POSIX::tmpnam(); -POSIX::mkfifo $pipename, 0666; +my $tempdir = File::Temp->newdir; +mkdir "$tempdir/foo"; +my $pipename = "$tempdir/foo/test.pipe"; +my $rc = eval { POSIX::mkfifo( $pipename, oct(666) ) }; my $pid = fork(); if ( $pid == 0 ) { @@ -30,8 +34,11 @@ unlink $pipename; chomp @output; -is( scalar @output, 2, 'Get exactly 2 lines back' ); -is( $output[0], 'Revision history for File-Next' ); -is( $output[-1], ' First version, released on an unsuspecting world.' ); + +my @expected = ( + 'Revision history for File-Next', + ' First version, released on an unsuspecting world.', +); +is_deeply( \@output, \@expected, 'Output matches' ); done_testing(); ++++++ 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