Hello community, here is the log from the commit of package perl-Proc-Fork for openSUSE:Factory checked in at 2018-08-31 10:44:18 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Proc-Fork (Old) and /work/SRC/openSUSE:Factory/.perl-Proc-Fork.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Proc-Fork" Fri Aug 31 10:44:18 2018 rev:22 rq:631784 version:0.806 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Proc-Fork/perl-Proc-Fork.changes 2015-04-15 16:26:47.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Proc-Fork.new/perl-Proc-Fork.changes 2018-08-31 10:44:42.727221777 +0200 @@ -1,0 +2,20 @@ +Sat Aug 25 05:53:14 UTC 2018 - co...@suse.com + +- updated to 0.806 + see /usr/share/doc/packages/perl-Proc-Fork/Changes + + 0.806 Fri 24 Aug 2018 + - No functional changes + - Documentation server example fix, spotted by Shoichi Kaji + +------------------------------------------------------------------- +Wed Aug 22 05:58:55 UTC 2018 - co...@suse.com + +- updated to 0.805 + see /usr/share/doc/packages/perl-Proc-Fork/Changes + + 0.805 Tue 21 Aug 2018 + - No functional changes + - No compile test and no test dependencies any more + +------------------------------------------------------------------- Old: ---- Proc-Fork-0.804.tar.gz New: ---- Proc-Fork-0.806.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Proc-Fork.spec ++++++ --- /var/tmp/diff_new_pack.KHx6p5/_old 2018-08-31 10:44:43.299222463 +0200 +++ /var/tmp/diff_new_pack.KHx6p5/_new 2018-08-31 10:44:43.299222463 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Proc-Fork # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 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,14 +17,15 @@ Name: perl-Proc-Fork -Version: 0.804 +Version: 0.806 Release: 0 %define cpan_name Proc-Fork -Summary: simple, intuitive interface to the fork() system call -License: Artistic-1.0 or GPL-1.0+ +Summary: Simple, Intuitive Interface to the Fork() System Call +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Proc-Fork/ -Source: http://www.cpan.org/authors/id/A/AR/ARISTOTLE/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/A/AR/ARISTOTLE/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl @@ -76,6 +77,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes LICENSE README +%doc Changes README +%license LICENSE %changelog ++++++ Proc-Fork-0.804.tar.gz -> Proc-Fork-0.806.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/Changes new/Proc-Fork-0.806/Changes --- old/Proc-Fork-0.804/Changes 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/Changes 2018-08-24 01:32:19.000000000 +0200 @@ -1,5 +1,13 @@ Release history for Proc-Fork +0.806 Fri 24 Aug 2018 + - No functional changes + - Documentation server example fix, spotted by Shoichi Kaji + +0.805 Tue 21 Aug 2018 + - No functional changes + - No compile test and no test dependencies any more + 0.804 Sat 10 Jan 2015 - No functional changes - No longer contains INSTALL file with install-as-root instructions diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/LICENSE new/Proc-Fork-0.806/LICENSE --- old/Proc-Fork-0.804/LICENSE 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/LICENSE 2018-08-24 01:35:12.000000000 +0200 @@ -1,4 +1,4 @@ -This software is copyright (c) 2013 by Aristotle Pagaltzis. +This software is copyright (c) 2018 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. @@ -12,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2013 by Aristotle Pagaltzis. +This software is Copyright (c) 2018 by Aristotle Pagaltzis. This is free software, licensed under: @@ -22,7 +22,7 @@ Version 1, February 1989 Copyright (C) 1989 Free Software Foundation, Inc. - 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA + 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2013 by Aristotle Pagaltzis. +This software is Copyright (c) 2018 by Aristotle Pagaltzis. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/MANIFEST new/Proc-Fork-0.806/MANIFEST --- old/Proc-Fork-0.804/MANIFEST 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/MANIFEST 2018-08-24 01:35:12.000000000 +0200 @@ -1,18 +1,15 @@ -# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.030. Changes LICENSE MANIFEST -META.json -META.yml +META.json Module JSON meta-data (added by MakeMaker) +META.yml Module YAML meta-data (added by MakeMaker) Makefile.PL README -dist.ini +boilerplate.pl eg/daemon.pl eg/multichild.pl eg/server.pl eg/simple.pl lib/Proc/Fork.pm -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.804/META.json new/Proc-Fork-0.806/META.json --- old/Proc-Fork-0.804/META.json 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/META.json 2018-08-24 01:35:12.000000000 +0200 @@ -4,7 +4,7 @@ "Aristotle Pagaltzis <pagalt...@gmx.de>" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 5.030, CPAN::Meta::Converter version 2.143240", + "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -13,41 +13,34 @@ "version" : "2" }, "name" : "Proc-Fork", + "no_index" : {}, "prereqs" : { - "configure" : { - "requires" : { - "ExtUtils::MakeMaker" : "0" - } - }, + "build" : {}, + "configure" : {}, "runtime" : { "requires" : { "Carp" : "0", "Exporter::Tidy" : "0", - "perl" : "5.006", - "strict" : "0", - "warnings" : "0" + "perl" : "5.006" } }, - "test" : { - "requires" : { - "File::Find" : "0", - "File::Temp" : "0", - "Test::More" : "0", - "vars" : "0" - } - } + "test" : {} }, "release_status" : "stable", "resources" : { "bugtracker" : { - "web" : "http://github.com/ap/Proc-Fork/issues"; + "web" : "https://github.com/ap/Proc-Fork/issues"; }, - "homepage" : "http://github.com/ap/Proc-Fork";, "repository" : { "type" : "git", - "url" : "git://github.com/ap/Proc-Fork" + "url" : "git://github.com/ap/Proc-Fork.git", + "web" : "https://github.com/ap/Proc-Fork"; } }, - "version" : "0.804" + "version" : "0.806", + "x_copyright" : { + "holder" : "Aristotle Pagaltzis", + "year" : 2018 + }, + "x_serialization_backend" : "JSON::PP version 2.27300_01" } - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/META.yml new/Proc-Fork-0.806/META.yml --- old/Proc-Fork-0.804/META.yml 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/META.yml 2018-08-24 01:35:12.000000000 +0200 @@ -2,28 +2,24 @@ abstract: 'simple, intuitive interface to the fork() system call' author: - 'Aristotle Pagaltzis <pagalt...@gmx.de>' -build_requires: - File::Find: 0 - File::Temp: 0 - Test::More: 0 - vars: 0 -configure_requires: - ExtUtils::MakeMaker: 0 +build_requires: {} dynamic_config: 0 -generated_by: 'Dist::Zilla version 5.030, CPAN::Meta::Converter version 2.143240' +generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: Proc-Fork +no_index: {} requires: - Carp: 0 - Exporter::Tidy: 0 - perl: 5.006 - strict: 0 - warnings: 0 + Carp: '0' + Exporter::Tidy: '0' + perl: '5.006' 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.804 + bugtracker: https://github.com/ap/Proc-Fork/issues + repository: git://github.com/ap/Proc-Fork.git +version: '0.806' +x_copyright: + holder: 'Aristotle Pagaltzis' + year: 2018 +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/Makefile.PL new/Proc-Fork-0.806/Makefile.PL --- old/Proc-Fork-0.804/Makefile.PL 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/Makefile.PL 2018-08-21 22:23:07.000000000 +0200 @@ -1,67 +1,80 @@ +use 5.006; use strict; use warnings; -# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.030. -use strict; -use warnings; - -use 5.006; - -use ExtUtils::MakeMaker; +my $u = 'github.com/ap/Proc-Fork'; - - -my %WriteMakefileArgs = ( - "ABSTRACT" => "simple, intuitive interface to the fork() system call", - "AUTHOR" => "Aristotle Pagaltzis <pagaltzis\@gmx.de>", - "CONFIGURE_REQUIRES" => { - "ExtUtils::MakeMaker" => 0 - }, - "DISTNAME" => "Proc-Fork", - "EXE_FILES" => [], - "LICENSE" => "perl", - "MIN_PERL_VERSION" => "5.006", - "NAME" => "Proc::Fork", - "PREREQ_PM" => { - "Carp" => 0, - "Exporter::Tidy" => 0, - "strict" => 0, - "warnings" => 0 - }, - "TEST_REQUIRES" => { - "File::Find" => 0, - "File::Temp" => 0, - "Test::More" => 0, - "vars" => 0 - }, - "VERSION" => "0.804", - "test" => { - "TESTS" => "t/*.t" - } -); - - -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 +my %META = ( + name => 'Proc-Fork', + author => 'Aristotle Pagaltzis <pagalt...@gmx.de>', + license => 'perl_5', + x_copyright => { holder => 'Aristotle Pagaltzis', year => 2018 }, + no_index => {}, + prereqs => { + runtime => { requires => {qw( + perl 5.006 + Carp 0 + Exporter::Tidy 0 + )} }, + }, + dynamic_config => 0, + resources => { + repository => { type => 'git', url => "git://$u.git", web => "https://$u"; }, + bugtracker => { web => "https://$u/issues"; }, + }, ); - -unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) { - delete $WriteMakefileArgs{TEST_REQUIRES}; - delete $WriteMakefileArgs{BUILD_REQUIRES}; - $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs; +sub MY::postamble { <<'' } +create_distdir : MANIFEST +MANIFEST : + ( git ls-files ':!README.pod' . ; echo MANIFEST ) > MANIFEST +distdir : boilerplate +.PHONY : boilerplate +boilerplate : distmeta + $(PERL) boilerplate.pl $(DISTVNAME) + +## BOILERPLATE ############################################################### +require ExtUtils::MakeMaker; + +my %MM_ARGS; + +# have to do this since old EUMM dev releases miss the eval $VERSION line +my $eumm_version = eval $ExtUtils::MakeMaker::VERSION; +my $mymeta = $eumm_version >= 6.57_02; +my $mymeta_broken = $mymeta && $eumm_version < 6.57_07; + +($MM_ARGS{NAME} = $META{name}) =~ s/-/::/g; +($MM_ARGS{VERSION_FROM} = "lib/$MM_ARGS{NAME}.pm") =~ s{::}{/}g; +$MM_ARGS{ABSTRACT_FROM} = $MM_ARGS{VERSION_FROM}; +$META{license} = [ $META{license} ] + if $META{license} && !ref $META{license}; +$MM_ARGS{LICENSE} = $META{license}[0] + if $META{license} && $eumm_version >= 6.30; +$MM_ARGS{NO_MYMETA} = 1 + if $mymeta_broken; +$MM_ARGS{META_ADD} = { 'meta-spec' => { version => 2 }, %META } + unless -f 'META.yml'; +$MM_ARGS{PL_FILES} ||= {}; +$MM_ARGS{NORECURS} = 1 + if not exists $MM_ARGS{NORECURS}; + +for (qw(configure build test runtime)) { + my $key = $_ eq 'runtime' ? 'PREREQ_PM' : uc $_.'_REQUIRES'; + my $r = $MM_ARGS{$key} = { + %{$META{prereqs}{$_}{requires} || {}}, + %{delete $MM_ARGS{$key} || {}}, + }; + defined $r->{$_} or delete $r->{$_} for keys %$r; } -delete $WriteMakefileArgs{CONFIGURE_REQUIRES} - unless eval { ExtUtils::MakeMaker->VERSION(6.52) }; - -WriteMakefile(%WriteMakefileArgs); - +$MM_ARGS{MIN_PERL_VERSION} = delete $MM_ARGS{PREREQ_PM}{perl} || 0; +delete $MM_ARGS{MIN_PERL_VERSION} + if $eumm_version < 6.47_01; +$MM_ARGS{BUILD_REQUIRES} = {%{$MM_ARGS{BUILD_REQUIRES}}, %{delete $MM_ARGS{TEST_REQUIRES}}} + if $eumm_version < 6.63_03; +$MM_ARGS{PREREQ_PM} = {%{$MM_ARGS{PREREQ_PM}}, %{delete $MM_ARGS{BUILD_REQUIRES}}} + if $eumm_version < 6.55_01; +delete $MM_ARGS{CONFIGURE_REQUIRES} + if $eumm_version < 6.51_03; +ExtUtils::MakeMaker::WriteMakefile(%MM_ARGS); +## END BOILERPLATE ########################################################### diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/README new/Proc-Fork-0.806/README --- old/Proc-Fork-0.804/README 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/README 2018-08-24 01:35:12.000000000 +0200 @@ -1,19 +1,18 @@ 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). +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: +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 { @@ -47,7 +46,7 @@ This documentation is copyright (c) 2002 by Eric J. Roode. -This software is copyright (c) 2013 by Aristotle Pagaltzis. +This software is copyright (c) 2018 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. +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.804/boilerplate.pl new/Proc-Fork-0.806/boilerplate.pl --- old/Proc-Fork-0.804/boilerplate.pl 1970-01-01 01:00:00.000000000 +0100 +++ new/Proc-Fork-0.806/boilerplate.pl 2018-08-24 01:26:12.000000000 +0200 @@ -0,0 +1,57 @@ +use strict; use warnings; + +use CPAN::Meta; +use Software::LicenseUtils; +use Pod::Readme::Brief; + +sub slurp { open my $fh, '<', $_[0] or die "Couldn't open $_[0] to read: $!\n"; readline $fh } + +chdir $ARGV[0] or die "Cannot chdir to $ARGV[0]: $!\n"; + +my %file; + +my $meta = CPAN::Meta->load_file( 'META.json' ); + +my $license = do { + my @key = ( $meta->license, $meta->meta_spec_version ); + my ( $class, @ambiguous ) = Software::LicenseUtils->guess_license_from_meta_key( @key ); + die if @ambiguous; + $class->new( $meta->custom( 'x_copyright' ) ); +}; + +$file{'LICENSE'} = $license->fulltext; + +my @source = slurp 'lib/Proc/Fork.pm'; + +my $i = -1; +while ( ++$i <= $#source ) { + $source[$i] =~ /^=for eg (.*)/ or next; + my $fn = "eg/$1"; + splice @source, $i, 2; + mkdir 'eg'; + my @eg; + while ( $i <= $#source ) { + $source[$i] =~ /^(?:$| )/ or last; + push @eg, $source[$i]; + s/^ //, s/\G {4}/\t/g for $eg[-1]; + ++$i; + } + ( $file{ $fn } = join '', @eg ) =~ s/\n+\z/\n/; +} + +splice @source, -2, 0, "\n", $license->notice; +$file{'lib/Proc/Fork.pm'} = join '', @source; + +die unless -e 'Makefile.PL'; +$file{'README'} = Pod::Readme::Brief->new( @source )->render( installer => 'eumm' ); + +my @manifest = slurp 'MANIFEST'; +my %manifest = map /\A([^\s#]+)()/, @manifest; +$file{'MANIFEST'} = join '', sort @manifest, map "$_\n", grep !exists $manifest{ $_ }, keys %file; + +for my $fn ( sort keys %file ) { + unlink $fn if -e $fn; + open my $fh, '>', $fn or die "Couldn't open $fn to write: $!\n"; + print $fh $file{ $fn }; + close $fh or die "Couldn't close $fn after writing: $!\n"; +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/dist.ini new/Proc-Fork-0.806/dist.ini --- old/Proc-Fork-0.804/dist.ini 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/dist.ini 1970-01-01 01:00:00.000000000 +0100 @@ -1,26 +0,0 @@ -name = Proc-Fork -version = 0.804 -author = Aristotle Pagaltzis <pagalt...@gmx.de> -license = Perl_5 -copyright_holder = Aristotle Pagaltzis -copyright_year = 2013 - -; 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 - -[@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.804/eg/daemon.pl new/Proc-Fork-0.806/eg/daemon.pl --- old/Proc-Fork-0.804/eg/daemon.pl 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/eg/daemon.pl 2018-08-24 01:35:12.000000000 +0200 @@ -7,7 +7,7 @@ # Other daemon initialization activities. $SIG{INT} = $SIG{TERM} = $SIG{HUP} = $SIG{PIPE} = \&some_signal_handler; -POSIX::setsid() or die "Cannot start a new session: $!\n"; +POSIX::setsid() == -1 and die "Cannot start a new session: $!\n"; close $_ for *STDIN, *STDOUT, *STDERR; # rest of daemon program follows diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/eg/server.pl new/Proc-Fork-0.806/eg/server.pl --- old/Proc-Fork-0.804/eg/server.pl 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/eg/server.pl 2018-08-24 01:35:12.000000000 +0200 @@ -13,10 +13,10 @@ my $client; while ($client = $server->accept) { - run_fork { child { - # Service the socket - sleep(10); - print $client "Ooga! ", time % 1000, "\n"; - exit; # child exits. Parent loops to accept another connection. - } } + run_fork { child { + # Service the socket + sleep(10); + print $client "Ooga! ", time % 1000, "\n"; + exit; # child exits. Parent loops to accept another connection. + } } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/lib/Proc/Fork.pm new/Proc-Fork-0.806/lib/Proc/Fork.pm --- old/Proc-Fork-0.804/lib/Proc/Fork.pm 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/lib/Proc/Fork.pm 2018-08-24 01:35:12.000000000 +0200 @@ -1,10 +1,8 @@ -use 5.006; -use strict; -use warnings; +use 5.006; use strict; use warnings; package Proc::Fork; -$Proc::Fork::VERSION = '0.804'; -# ABSTRACT: simple, intuitive interface to the fork() system call + +our $VERSION = '0.806'; use Exporter::Tidy ( default => [ ':all' ], @@ -66,10 +64,6 @@ Proc::Fork - simple, intuitive interface to the fork() system call -=head1 VERSION - -version 0.804 - =head1 SYNOPSIS use Proc::Fork; @@ -114,6 +108,8 @@ =head1 INTERFACE +All of the following functions are exported by default: + =head2 run_fork run_fork { ... } @@ -235,7 +231,7 @@ # Other daemon initialization activities. $SIG{INT} = $SIG{TERM} = $SIG{HUP} = $SIG{PIPE} = \&some_signal_handler; - POSIX::setsid() or die "Cannot start a new session: $!\n"; + POSIX::setsid() == -1 and die "Cannot start a new session: $!\n"; close $_ for *STDIN, *STDOUT, *STDERR; # rest of daemon program follows @@ -265,30 +261,6 @@ } } } -=head1 EXPORTS - -This package exports the following symbols by default. - -=over 4 - -=item * C<run_fork> - -=item * C<child> - -=item * C<parent> - -=item * C<retry> - -=item * C<error> - -=back - -=head1 BUGS AND LIMITATIONS - -None currently known, for what that's worth. - -Please report bugs or feature requests to L<http://github.com/ap/Proc-Fork/issues>. - =head1 AUTHOR Aristotle Pagaltzis <pagalt...@gmx.de> @@ -299,7 +271,7 @@ This documentation is copyright (c) 2002 by Eric J. Roode. -This software is copyright (c) 2013 by Aristotle Pagaltzis. +This software is copyright (c) 2018 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.804/t/00-compile.t new/Proc-Fork-0.806/t/00-compile.t --- old/Proc-Fork-0.804/t/00-compile.t 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/t/00-compile.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,73 +0,0 @@ -#!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.804/t/mock.t new/Proc-Fork-0.806/t/mock.t --- old/Proc-Fork-0.804/t/mock.t 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/t/mock.t 2018-08-21 22:19:54.000000000 +0200 @@ -1,13 +1,15 @@ -#!perl -use strict; -use warnings; -use vars '$forkres'; +use strict; use warnings; -use Test::More tests => 13; +my $i = 1; +sub ok { print 'not ' x !$_[0], "ok $i - $_[1]\n"; ++$i; $_[0] } +sub diag { s/^/# /mg, print for @_; () } +sub is { ok( $_[0] eq $_[1], $_[2] ) or diag "expected: $_[1]\n", "got: $_[0]\n" } -BEGIN { *CORE::GLOBAL::fork = sub { $forkres } } +our $forkres; BEGIN { *CORE::GLOBAL::fork = sub { $forkres } } -BEGIN { use_ok( 'Proc::Fork' ); } +use Proc::Fork; + +print "1..12\n"; # basic functionality { local $forkres = 1; parent { ok( 1, 'parent code executes' ) }; } @@ -20,7 +22,7 @@ # error catching attempts eval { parent {} "oops" }; -like( $@, qr/^Garbage in Proc::Fork setup \(after \w+ clause\)/, 'syntax error catcher fired' ); +ok( /^Garbage in Proc::Fork setup \(after \w+ clause\)/, 'syntax error catcher fired' ) or diag "$_\n" for "$@"; # test retry logic my $expect_try; @@ -32,5 +34,3 @@ 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.804/t/real.t new/Proc-Fork-0.806/t/real.t --- old/Proc-Fork-0.804/t/real.t 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/t/real.t 2018-08-21 22:19:54.000000000 +0200 @@ -1,19 +1,9 @@ -#!perl -use strict; -use warnings; +use strict; use warnings; -# impossible to beat Test::More into submission when fork() is involved -# note: parent uses waitpid to ensure order of output +use Proc::Fork; -sub say { print @_, "\n" } +print "1..2\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: +# waitpid ensures order of output +child { print "ok 1 - child code runs\n" } +parent { waitpid shift, 0; print "ok 2 - parent code runs\n" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.804/weaver.ini new/Proc-Fork-0.806/weaver.ini --- old/Proc-Fork-0.804/weaver.ini 2015-01-10 11:48:30.000000000 +0100 +++ new/Proc-Fork-0.806/weaver.ini 1970-01-01 01:00:00.000000000 +0100 @@ -1,9 +0,0 @@ -[@Default] - -[AllowOverride / AUTHOR] -match_anywhere = 1 -action = append - -[AllowOverride / COPYRIGHT AND LICENSE] -match_anywhere = 1 -action = prepend ++++++ 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
