Hello community, here is the log from the commit of package perl-Proc-Fork for openSUSE:Factory checked in at 2015-04-15 16:26:46 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Proc-Fork (Old) and /work/SRC/openSUSE:Factory/.perl-Proc-Fork.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Proc-Fork" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Proc-Fork/perl-Proc-Fork.changes 2013-06-21 13:37:10.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Proc-Fork.new/perl-Proc-Fork.changes 2015-04-15 16:26:47.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Apr 14 15:37:08 UTC 2015 - co...@suse.com + +- updated to 0.804 + see /usr/share/doc/packages/perl-Proc-Fork/Changes + +------------------------------------------------------------------- Old: ---- Proc-Fork-0.802.tar.gz New: ---- Proc-Fork-0.804.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Proc-Fork.spec ++++++ --- /var/tmp/diff_new_pack.M0j1gR/_old 2015-04-15 16:26:47.000000000 +0200 +++ /var/tmp/diff_new_pack.M0j1gR/_new 2015-04-15 16:26:47.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Proc-Fork # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 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,7 +17,7 @@ Name: perl-Proc-Fork -Version: 0.802 +Version: 0.804 Release: 0 %define cpan_name Proc-Fork Summary: simple, intuitive interface to the fork() system call @@ -30,7 +30,6 @@ BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Exporter::Tidy) -#BuildRequires: perl(Proc::Fork) Requires: perl(Exporter::Tidy) %{perl_requires} @@ -77,6 +76,6 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes LICENSE README weaver.ini +%doc Changes LICENSE README %changelog ++++++ Proc-Fork-0.802.tar.gz -> Proc-Fork-0.804.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/Changes new/Proc-Fork-0.804/Changes --- old/Proc-Fork-0.802/Changes 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/Changes 2015-01-10 11:48:30.000000000 +0100 @@ -1,203 +1,89 @@ -=head1 Revision history for Proc-Fork +Release history for Proc-Fork +0.804 Sat 10 Jan 2015 + - No functional changes + - No longer contains INSTALL file with install-as-root instructions + +0.803 Mon 05 Jan 2015 + - No functional changes + - Test suite cleanup + - Minimum Perl requirement specified + +0.802 Thu 24 Jan 2013 + - Simplified internals further still + +0.801 Thu 03 Jan 2013 + - No functional changes + - Credit to Eric Roode for the docs added back + +0.800 Wed 02 Jan 2013 + - Complete rewrite and simplification of internals + (all operation and error checking is now in a single function) + +0.71 Mon 22 Sep 2008 + - Brown paper bag release + (forgot some parens that are mandatory in 5.10 but not 5.8.8) + +0.7 Sat 20 Sep 2008 + - Completely new internal structure; modified API, now with a C<run_fork> wrapper. + Should address both the semicolon problem and the context sensitivity + problem pointed out on AnnoCPAN by dmcbride. Code written against the + previous API design will continue to work unchanged. + - L<Exporter::Tidy> replaces some local code. + - POD examples extracted and provided as files in an F<eg/> directory. + Yes, this is Kwalitee whoring. Hopefully I won't make changes to the docs + that I then forget to update in the F<eg/> copies. Yay for CPANTS. + +0.61 Sun 23 Dec 2007 + - Test suite fix for Perl 5.5.5 + (t/01.real.t would generate the TAP header multiple times) + +0.6 Sun 23 Dec 2007 + - No `our` in test suite, now works on pre-5.6 perls + +0.5 Fri 21 Dec 2007 + - Windows compat: no in-place modification of C<@_> with C<goto> + - Windows compat: no taint checking in tests + - Many thanks to David Golden for the Windows compat fixes + - Carp loaded on demand + - Exporter dropped + +0.4 Sun 01 Apr 2007 + - Internals simplification in hopes of fixing #17474 and #17926; + unfortunately, no dice + +0.3 Wed 10 May 2006 + - Tests with real fork() call + (intended to resolve stalled bugs #17474 and #17926) + - Test for $pid getting passed to the parent block + +0.2 Sat 04 Mar 2006 + - Internals refactor to fix bugs #17474 and #17926 + - Test suite rejig, new test for the syntax error catcher + +0.11 Mon 03 Oct 2005 + - POD and POD coverage tests + - Now using Module::Build + +0.1 Sat 23 Apr 2005 + - Minor documentation fix + - Complete internals refactor + - Support and documentation for retry {} + - Proper test suite + +0.05 Fri 15 Mar 2002 + - Namespace change from Fork to Proc::Fork + +0.04 Fri 08 Feb 2002 + - Parent, child, error exported by default + - Documentation examples + +0.03 Thu 31 Jan 2002 + - No functional changes + - Documentation edits -=head2 0.802 (2013-01-24) +0.02 Wed 30 Jan 2002 + - Blessed fork return value for better error checking -=over 4 - -=item * Simplified internals further still. - -No monkeying with C<bless>, also dropped dependencies on Object::Tiny::Lvalue and Scalar::Util. - -=back - - -=head2 0.801 (2013-01-03) - -=over 4 - -=item * No functional changes. - -Figured out how to add the credit to Eric Roode for the docs back into the POD under Pod::Weaver. - -=back - - -=head2 0.800 (2013-01-02) - -=over 4 - -=item * Completely rewrote and simplified internals. - -All operation and error checking is now in a single function. - -=back - - -=head2 0.71 (2008-09-22) - -=over 4 - -=item * Brown paper bag release. - -Forgot some mandatory parens. No idea why 5.8.8 didn't give me the syntax error that 5.10 detected. - -=back - - -=head2 0.7 (2008-09-20) - -=over 4 - -=item * Completely new internal structure; modified API, now with a C<run_fork> wrapper. - -This should address both the semicolon problem and the context sensitivity problem pointed out on AnnoCPAN by dmcbride. Code written against the previous API design will continue to work unchanged. - -=item * L<Exporter::Tidy> replaces some local code. - -It's a very small pure-Perl module that shouldn't be a dependency burden, and it's a good design that deserves some advertisement. - -=item * POD examples extracted and provided as files in an F<eg/> directory. - -Yes, this is Kwalitee whoring. Hopefully I won't make changes to the docs that I then forget to update in the F<eg/> copies. Yay for CPANTS. - -=back - - -=head2 0.61 (2007-12-23) - -=over 4 - -=item * Test suite fix attempt: in Perl 5.5.5, C<t/01.real.t> would generate the TAP header multiple times - -=back - - -=head2 0.6 (2007-12-23) - -=over 4 - -=item * Get rid of the C<our> in the test suite so it works on pre-5.6 perls - -=back - - -=head2 0.5 (2007-12-21) - -Many thanks to David Golden for the Windows compat fixes. - -=over 4 - -=item * Windows compat: drop in-place modification of C<@_> and use of C<goto> - -=item * Windows compat: remove taint checking from tests to fix - -=item * Only load L<Carp> on demand - -=item * Stop using of L<Exporter> - -=back - - -=head2 0.4 (2007-04-01) - -=over 4 - -=item * Simplify internals a bit, in hopes of fixing #17474 and #17926; unfortunately, no dice - -=back - - -=head2 0.3 (2006-05-10) - -=over 4 - -=item * Add tests with real fork() call, with intent to resolve stalled bugs #17474 and #17926 - -=item * Add test for $pid getting passed to the parent block - -=back - - -=head2 0.2 (2006-03-04) - -=over 4 - -=item * Internals refactor to fix bugs #17474 and #17926 - -=item * Rejig tests, add a test for the syntax error catcher - -=back - - -=head2 0.11 (2005-10-03) - -=over 4 - -=item * Add tests for POD and POD coverage - -=item * Switch over to Module::Build - -=back - - -=head2 0.1 (2005-04-23) - -=over 4 - -=item * Minor documentation fix - -=item * Complete internals refactor - -=item * Add support and documentation for retry {} - -=item * Create proper test suite - -=back - - -=head2 0.05 (2002-03-15) - -=over 4 - -=item * Change namespace from Fork to Proc::Fork. - -=back - - -=head2 0.04 (2002-02-8) - -=over 4 - -=item * Export parent, child, error by default. - -=item * Add documentation examples. - -=back - - -=head2 0.03 (2002-01-31) - -=over 4 - -=item * Documentation changes only. - -=back - - -=head2 0.02 (2002-01-30) - -=over 4 - -=item * Bless the fork return value, for better error checking. - -=back - - -=head2 0.01 (2002-01-29) - -=over 4 - -=item * original version - -=back +0.01 Tue 29 Jan 2002 + - Initial release diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/MANIFEST new/Proc-Fork-0.804/MANIFEST --- old/Proc-Fork-0.802/MANIFEST 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/MANIFEST 2015-01-10 11:48:30.000000000 +0100 @@ -1,3 +1,4 @@ +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.030. Changes LICENSE MANIFEST @@ -11,7 +12,7 @@ eg/server.pl eg/simple.pl lib/Proc/Fork.pm -t/00.mock.t -t/01.real.t -t/cpants.t +t/00-compile.t +t/mock.t +t/real.t weaver.ini diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/META.json new/Proc-Fork-0.804/META.json --- old/Proc-Fork-0.802/META.json 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/META.json 2015-01-10 11:48:30.000000000 +0100 @@ -4,7 +4,7 @@ "Aristotle Pagaltzis <pagalt...@gmx.de>" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 4.300028, CPAN::Meta::Converter version 2.120921", + "generated_by" : "Dist::Zilla version 5.030, CPAN::Meta::Converter version 2.143240", "license" : [ "perl_5" ], @@ -16,19 +16,22 @@ "prereqs" : { "configure" : { "requires" : { - "ExtUtils::MakeMaker" : "6.30" + "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { "Carp" : "0", "Exporter::Tidy" : "0", + "perl" : "5.006", "strict" : "0", "warnings" : "0" } }, "test" : { "requires" : { + "File::Find" : "0", + "File::Temp" : "0", "Test::More" : "0", "vars" : "0" } @@ -45,6 +48,6 @@ "url" : "git://github.com/ap/Proc-Fork" } }, - "version" : "0.802" + "version" : "0.804" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/META.yml new/Proc-Fork-0.804/META.yml --- old/Proc-Fork-0.802/META.yml 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/META.yml 2015-01-10 11:48:30.000000000 +0100 @@ -3,12 +3,14 @@ author: - 'Aristotle Pagaltzis <pagalt...@gmx.de>' build_requires: + File::Find: 0 + File::Temp: 0 Test::More: 0 vars: 0 configure_requires: - ExtUtils::MakeMaker: 6.30 + ExtUtils::MakeMaker: 0 dynamic_config: 0 -generated_by: 'Dist::Zilla version 4.300028, CPAN::Meta::Converter version 2.120921' +generated_by: 'Dist::Zilla version 5.030, CPAN::Meta::Converter version 2.143240' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -17,10 +19,11 @@ requires: Carp: 0 Exporter::Tidy: 0 + perl: 5.006 strict: 0 warnings: 0 resources: bugtracker: http://github.com/ap/Proc-Fork/issues homepage: http://github.com/ap/Proc-Fork repository: git://github.com/ap/Proc-Fork -version: 0.802 +version: 0.804 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/Makefile.PL new/Proc-Fork-0.804/Makefile.PL --- old/Proc-Fork-0.802/Makefile.PL 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/Makefile.PL 2015-01-10 11:48:30.000000000 +0100 @@ -1,26 +1,24 @@ +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.030. use strict; use warnings; +use 5.006; - -use ExtUtils::MakeMaker 6.30; +use ExtUtils::MakeMaker; my %WriteMakefileArgs = ( "ABSTRACT" => "simple, intuitive interface to the fork() system call", "AUTHOR" => "Aristotle Pagaltzis <pagaltzis\@gmx.de>", - "BUILD_REQUIRES" => { - "Test::More" => 0, - "vars" => 0 - }, "CONFIGURE_REQUIRES" => { - "ExtUtils::MakeMaker" => "6.30" + "ExtUtils::MakeMaker" => 0 }, "DISTNAME" => "Proc-Fork", "EXE_FILES" => [], "LICENSE" => "perl", + "MIN_PERL_VERSION" => "5.006", "NAME" => "Proc::Fork", "PREREQ_PM" => { "Carp" => 0, @@ -28,24 +26,36 @@ "strict" => 0, "warnings" => 0 }, - "VERSION" => "0.802", + "TEST_REQUIRES" => { + "File::Find" => 0, + "File::Temp" => 0, + "Test::More" => 0, + "vars" => 0 + }, + "VERSION" => "0.804", "test" => { "TESTS" => "t/*.t" } ); -unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) { - my $br = delete $WriteMakefileArgs{BUILD_REQUIRES}; - my $pp = $WriteMakefileArgs{PREREQ_PM}; - for my $mod ( keys %$br ) { - if ( exists $pp->{$mod} ) { - $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod}; - } - else { - $pp->{$mod} = $br->{$mod}; - } - } +my %FallbackPrereqs = ( + "Carp" => 0, + "Exporter::Tidy" => 0, + "ExtUtils::MakeMaker" => 0, + "File::Find" => 0, + "File::Temp" => 0, + "Test::More" => 0, + "strict" => 0, + "vars" => 0, + "warnings" => 0 +); + + +unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) { + delete $WriteMakefileArgs{TEST_REQUIRES}; + delete $WriteMakefileArgs{BUILD_REQUIRES}; + $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs; } delete $WriteMakefileArgs{CONFIGURE_REQUIRES} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/README new/Proc-Fork-0.804/README --- old/Proc-Fork-0.802/README 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/README 2015-01-10 11:48:30.000000000 +0100 @@ -1,13 +1,53 @@ +Proc::Fork +This module provides an intuitive, Perl-ish way to write forking +programs by letting you use blocks to illustrate which code section +executes in which fork. The code for the parent, child, retry handler +and error handler are grouped together in a "fork block". The clauses +may appear in any order, but they must be consecutive (without any other +statements in between). + +All four clauses need not be specified. If the retry clause is omitted, +only one fork will be attempted. If the error clause is omitted the +program will die with a simple message if it can't retry. If the parent +or child clause is omitted, the respective (parent or child) process +will start execution after the final clause. So if one or the other only +has to do some simple action, you need only specify that one. For +example: + + # spawn off a child process to do some simple processing + run_fork { child { + exec '/bin/ls', '-l'; + die "Couldn't exec ls: $!\n"; + } }; + # Parent will continue execution from here + # ... + +If the code in any of the clauses does not die or exit, it will continue +execution after the fork block. + +INSTALLATION + +This is a Perl module distribution. It should be installed with whichever +tool you use to manage your installation of Perl, e.g. any of + + cpanm . + cpan . + cpanp -i . + +Consult http://www.cpan.org/modules/INSTALL.html for further instruction. +Should you wish to install this module manually, the procedure is + + perl Makefile.PL + make + make test + make install -This archive contains the distribution Proc-Fork, -version 0.802: +COPYRIGHT AND LICENSE - simple, intuitive interface to the fork() system call +This documentation is copyright (c) 2002 by Eric J. Roode. This software is copyright (c) 2013 by Aristotle Pagaltzis. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. - - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/dist.ini new/Proc-Fork-0.804/dist.ini --- old/Proc-Fork-0.802/dist.ini 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/dist.ini 2015-01-10 11:48:30.000000000 +0100 @@ -1,20 +1,26 @@ name = Proc-Fork -version = 0.802 +version = 0.804 author = Aristotle Pagaltzis <pagalt...@gmx.de> license = Perl_5 copyright_holder = Aristotle Pagaltzis copyright_year = 2013 -; authordep Pod::Weaver::Section::AllowOverride +; authordep Pod::Weaver::Section::AllowOverride = 0.04 [MetaResources] homepage = http://github.com/ap/Proc-Fork bugtracker = http://github.com/ap/Proc-Fork/issues repository = git://github.com/ap/Proc-Fork -[@Basic] +[@Filter] +-bundle=@Basic +-remove=Readme +[Readme::Brief] +[ReadmeAnyFromPod / PodInRoot] [MetaJSON] [PkgVersion] [PodWeaver] [CheckChangeLog] +[Test::Compile] [AutoPrereqs] +[CheckSelfDependency] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/lib/Proc/Fork.pm new/Proc-Fork-0.804/lib/Proc/Fork.pm --- old/Proc-Fork-0.802/lib/Proc/Fork.pm 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/lib/Proc/Fork.pm 2015-01-10 11:48:30.000000000 +0100 @@ -1,10 +1,9 @@ -package Proc::Fork; -{ - $Proc::Fork::VERSION = '0.802'; -} +use 5.006; use strict; use warnings; +package Proc::Fork; +$Proc::Fork::VERSION = '0.804'; # ABSTRACT: simple, intuitive interface to the fork() system call use Exporter::Tidy ( @@ -61,13 +60,15 @@ =pod +=encoding UTF-8 + =head1 NAME Proc::Fork - simple, intuitive interface to the fork() system call =head1 VERSION -version 0.802 +version 0.804 =head1 SYNOPSIS @@ -84,7 +85,7 @@ } retry { my $attempts = shift; - # what to do if if fork() fails: + # what to do if fork() fails: # return true to try again, false to abort return if $attempts > 5; sleep 1, return 1; @@ -296,6 +297,8 @@ =head1 COPYRIGHT AND LICENSE +This documentation is copyright (c) 2002 by Eric J. Roode. + This software is copyright (c) 2013 by Aristotle Pagaltzis. This is free software; you can redistribute it and/or modify it under diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/t/00-compile.t new/Proc-Fork-0.804/t/00-compile.t --- old/Proc-Fork-0.802/t/00-compile.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Proc-Fork-0.804/t/00-compile.t 2015-01-10 11:48:30.000000000 +0100 @@ -0,0 +1,73 @@ +#!perl + +use strict; +use warnings; + +use Test::More; + + + +use File::Find; +use File::Temp qw{ tempdir }; + +my @modules; +find( + sub { + return if $File::Find::name !~ /\.pm\z/; + my $found = $File::Find::name; + $found =~ s{^lib/}{}; + $found =~ s{[/\\]}{::}g; + $found =~ s/\.pm$//; + # nothing to skip + push @modules, $found; + }, + 'lib', +); + +sub _find_scripts { + my $dir = shift @_; + + my @found_scripts = (); + find( + sub { + return unless -f; + my $found = $File::Find::name; + # nothing to skip + open my $FH, '<', $_ or do { + note( "Unable to open $found in ( $! ), skipping" ); + return; + }; + my $shebang = <$FH>; + return unless $shebang =~ /^#!.*?\bperl\b\s*$/; + push @found_scripts, $found; + }, + $dir, + ); + + return @found_scripts; +} + +my @scripts; +do { push @scripts, _find_scripts($_) if -d $_ } + for qw{ bin script scripts }; + +my $plan = scalar(@modules) + scalar(@scripts); +$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run"); + +{ + # fake home for cpan-testers + # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 ); + + like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" ) + for sort @modules; + + SKIP: { + eval "use Test::Script 1.05; 1;"; + skip "Test::Script needed to test script compilation", scalar(@scripts) if $@; + foreach my $file ( @scripts ) { + my $script = $file; + $script =~ s!.*/!!; + script_compiles( $file, "$script script compiles" ); + } + } +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/t/00.mock.t new/Proc-Fork-0.804/t/00.mock.t --- old/Proc-Fork-0.802/t/00.mock.t 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/t/00.mock.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,36 +0,0 @@ -#!perl -use strict; -use warnings; -use vars '$forkres'; - -use Test::More tests => 13; - -BEGIN { *CORE::GLOBAL::fork = sub { $forkres } } - -BEGIN { use_ok( 'Proc::Fork' ); } - -# basic functionality -{ local $forkres = 1; parent { ok( 1, 'parent code executes' ) }; } -{ local $forkres = 0; child { ok( 1, 'child code executes' ) }; } -{ error { ok( 1, 'error code executes' ) }; } -{ retry { ok( 1, 'retry code executes' ); 0 } error {}; } - -# pid gets passed in? -{ local $forkres = 42; parent { is( shift, 42, 'pid is passed to parent block' ) }; } - -# error catching attempts -eval { parent {} "oops" }; -like( $@, qr/^Garbage in Proc::Fork setup \(after \w+ clause\)/, 'syntax error catcher fired' ); - -# test retry logic -my $expect_try; -retry { - ++$expect_try; - is( $_[ 0 ], $expect_try, "retry attempt $expect_try signalled" ); - return $_[ 0 ] < 5; -} -error { - is( $expect_try, 5, 'abort after 5th attempt' ); -}; - -# vim:ft=perl: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/t/01.real.t new/Proc-Fork-0.804/t/01.real.t --- old/Proc-Fork-0.802/t/01.real.t 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/t/01.real.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,19 +0,0 @@ -#!perl -use strict; -use warnings; - -# impossible to beat Test::More into submission when fork() is involved -# note: parent uses waitpid to ensure order of output - -sub say { print @_, "\n" } - - say '1..3'; -eval 'use Proc::Fork; 1' and say 'ok 1 - use Proc::Fork'; - -eval do { local $/; <DATA> }; -__END__ - -child { say 'ok 2 - child code runs' } -parent { waitpid shift, 0; say 'ok 3 - parent code runs' } - -# vim:ft=perl: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/t/cpants.t new/Proc-Fork-0.804/t/cpants.t --- old/Proc-Fork-0.802/t/cpants.t 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/t/cpants.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,4 +0,0 @@ -#!perl -use Test::More skip_all => 'This is just to fob CPANTS'; -eval 'use Test::Pod::Coverage'; -eval 'use Test::Pod'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/t/mock.t new/Proc-Fork-0.804/t/mock.t --- old/Proc-Fork-0.802/t/mock.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Proc-Fork-0.804/t/mock.t 2015-01-10 11:48:30.000000000 +0100 @@ -0,0 +1,36 @@ +#!perl +use strict; +use warnings; +use vars '$forkres'; + +use Test::More tests => 13; + +BEGIN { *CORE::GLOBAL::fork = sub { $forkres } } + +BEGIN { use_ok( 'Proc::Fork' ); } + +# basic functionality +{ local $forkres = 1; parent { ok( 1, 'parent code executes' ) }; } +{ local $forkres = 0; child { ok( 1, 'child code executes' ) }; } +{ error { ok( 1, 'error code executes' ) }; } +{ retry { ok( 1, 'retry code executes' ); 0 } error {}; } + +# pid gets passed in? +{ local $forkres = 42; parent { is( shift, 42, 'pid is passed to parent block' ) }; } + +# error catching attempts +eval { parent {} "oops" }; +like( $@, qr/^Garbage in Proc::Fork setup \(after \w+ clause\)/, 'syntax error catcher fired' ); + +# test retry logic +my $expect_try; +retry { + ++$expect_try; + is( $_[ 0 ], $expect_try, "retry attempt $expect_try signalled" ); + return $_[ 0 ] < 5; +} +error { + is( $expect_try, 5, 'abort after 5th attempt' ); +}; + +# vim:ft=perl: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/t/real.t new/Proc-Fork-0.804/t/real.t --- old/Proc-Fork-0.802/t/real.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Proc-Fork-0.804/t/real.t 2015-01-10 11:48:30.000000000 +0100 @@ -0,0 +1,19 @@ +#!perl +use strict; +use warnings; + +# impossible to beat Test::More into submission when fork() is involved +# note: parent uses waitpid to ensure order of output + +sub say { print @_, "\n" } + + say '1..3'; +eval 'use Proc::Fork; 1' and say 'ok 1 - use Proc::Fork'; + +eval do { local $/; <DATA> }; +__END__ + +child { say 'ok 2 - child code runs' } +parent { waitpid shift, 0; say 'ok 3 - parent code runs' } + +# vim:ft=perl: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.802/weaver.ini new/Proc-Fork-0.804/weaver.ini --- old/Proc-Fork-0.802/weaver.ini 2013-01-24 12:06:30.000000000 +0100 +++ new/Proc-Fork-0.804/weaver.ini 2015-01-10 11:48:30.000000000 +0100 @@ -1,31 +1,9 @@ -[@CorePrep] +[@Default] -[Name] -[Version] - -[Region / prelude] - -[Generic / SYNOPSIS] -[Generic / DESCRIPTION] -[Generic / OVERVIEW] - -[Collect / ATTRIBUTES] -command = attr - -[Collect / METHODS] -command = method - -[Collect / FUNCTIONS] -command = func - -[Leftovers] - -[Region / postlude] - -[Authors] - -; this one bit is why a weaver.ini is necessary at all [AllowOverride / AUTHOR] +match_anywhere = 1 action = append -[Legal] +[AllowOverride / COPYRIGHT AND LICENSE] +match_anywhere = 1 +action = prepend