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 - coolo@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 - coolo@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 "
],
"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 '
-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 ",
- "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 ',
+ 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
-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
-
-=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 Lhttp://github.com/ap/Proc-Fork/issues.
-
=head1 AUTHOR
Aristotle Pagaltzis
@@ -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