Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Proc-Fork for openSUSE:Factory checked in at 2022-08-16 17:08:37 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Proc-Fork (Old) and /work/SRC/openSUSE:Factory/.perl-Proc-Fork.new.1521 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Proc-Fork" Tue Aug 16 17:08:37 2022 rev:23 rq:997358 version:0.807 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Proc-Fork/perl-Proc-Fork.changes 2018-08-31 10:44:42.727221777 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Proc-Fork.new.1521/perl-Proc-Fork.changes 2022-08-16 17:08:44.524057230 +0200 @@ -1,0 +2,11 @@ +Thu Aug 11 03:10:09 UTC 2022 - Tina M??ller <[email protected]> + +- updated to 0.807 + see /usr/share/doc/packages/perl-Proc-Fork/Changes + + 0.807 Wed 10 Aug 2022 + - No functional changes + - Packaging fix to stop installing boilerplate.pl + - Updated package metadata + +------------------------------------------------------------------- Old: ---- Proc-Fork-0.806.tar.gz New: ---- Proc-Fork-0.807.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Proc-Fork.spec ++++++ --- /var/tmp/diff_new_pack.XM9kde/_old 2022-08-16 17:08:45.092058929 +0200 +++ /var/tmp/diff_new_pack.XM9kde/_new 2022-08-16 17:08:45.096058941 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Proc-Fork # -# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2022 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -12,22 +12,20 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # +%define cpan_name Proc-Fork Name: perl-Proc-Fork -Version: 0.806 +Version: 0.807 Release: 0 -%define cpan_name Proc-Fork -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/ +Summary: Simple, intuitive interface to the fork() system call +URL: https://metacpan.org/release/%{cpan_name} 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 BuildRequires: perl-macros BuildRequires: perl(Exporter::Tidy) @@ -61,14 +59,14 @@ execution after the fork block. %prep -%setup -q -n %{cpan_name}-%{version} +%autosetup -n %{cpan_name}-%{version} %build -%{__perl} Makefile.PL INSTALLDIRS=vendor -%{__make} %{?_smp_mflags} +perl Makefile.PL INSTALLDIRS=vendor +%make_build %check -%{__make} test +make test %install %perl_make_install @@ -76,7 +74,6 @@ %perl_gen_filelist %files -f %{name}.files -%defattr(-,root,root,755) %doc Changes README %license LICENSE ++++++ Proc-Fork-0.806.tar.gz -> Proc-Fork-0.807.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.806/Changes new/Proc-Fork-0.807/Changes --- old/Proc-Fork-0.806/Changes 2018-08-24 01:32:19.000000000 +0200 +++ new/Proc-Fork-0.807/Changes 2022-08-10 03:09:10.000000000 +0200 @@ -1,5 +1,10 @@ Release history for Proc-Fork +0.807 Wed 10 Aug 2022 + - No functional changes + - Packaging fix to stop installing boilerplate.pl + - Updated package metadata + 0.806 Fri 24 Aug 2018 - No functional changes - Documentation server example fix, spotted by Shoichi Kaji diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.806/LICENSE new/Proc-Fork-0.807/LICENSE --- old/Proc-Fork-0.806/LICENSE 2018-08-24 01:35:12.000000000 +0200 +++ new/Proc-Fork-0.807/LICENSE 2022-08-10 03:10:12.000000000 +0200 @@ -1,3 +1,4 @@ +This documentation is copyright (c) 2002 by Eric J. Roode. This software is copyright (c) 2018 by Aristotle Pagaltzis. This is free software; you can redistribute it and/or modify it under @@ -376,4 +377,3 @@ MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. The End - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.806/MANIFEST new/Proc-Fork-0.807/MANIFEST --- old/Proc-Fork-0.806/MANIFEST 2018-08-24 01:35:12.000000000 +0200 +++ new/Proc-Fork-0.807/MANIFEST 2022-08-10 03:10:12.000000000 +0200 @@ -1,15 +1,15 @@ Changes -LICENSE -MANIFEST -META.json Module JSON meta-data (added by MakeMaker) -META.yml Module YAML meta-data (added by MakeMaker) Makefile.PL -README -boilerplate.pl eg/daemon.pl eg/multichild.pl eg/server.pl eg/simple.pl +inc/boilerplate.pl lib/Proc/Fork.pm t/mock.t t/real.t +MANIFEST +META.yml Module YAML meta-data (added by MakeMaker) +META.json Module JSON meta-data (added by MakeMaker) +LICENSE +README diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.806/META.json new/Proc-Fork-0.807/META.json --- old/Proc-Fork-0.806/META.json 2018-08-24 01:35:12.000000000 +0200 +++ new/Proc-Fork-0.807/META.json 2022-08-10 03:10:12.000000000 +0200 @@ -10,10 +10,15 @@ ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, - "version" : "2" + "version" : 2 }, "name" : "Proc-Fork", - "no_index" : {}, + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, "prereqs" : { "build" : {}, "configure" : {}, @@ -29,18 +34,21 @@ "release_status" : "stable", "resources" : { "bugtracker" : { - "web" : "https://github.com/ap/Proc-Fork/issues"; + "web" : "https://rt.cpan.org/Public/Dist/Display.html?Name=Proc-Fork"; }, + "license" : [ + "http://dev.perl.org/licenses/"; + ], "repository" : { "type" : "git", - "url" : "git://github.com/ap/Proc-Fork.git", + "url" : "https://github.com/ap/Proc-Fork.git";, "web" : "https://github.com/ap/Proc-Fork"; } }, - "version" : "0.806", + "version" : "0.807", "x_copyright" : { "holder" : "Aristotle Pagaltzis", "year" : 2018 }, - "x_serialization_backend" : "JSON::PP version 2.27300_01" + "x_serialization_backend" : "JSON::PP version 4.02" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.806/META.yml new/Proc-Fork-0.807/META.yml --- old/Proc-Fork-0.806/META.yml 2018-08-24 01:35:12.000000000 +0200 +++ new/Proc-Fork-0.807/META.yml 2022-08-10 03:10:12.000000000 +0200 @@ -10,15 +10,19 @@ url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: Proc-Fork -no_index: {} +no_index: + directory: + - t + - inc requires: Carp: '0' Exporter::Tidy: '0' perl: '5.006' resources: - bugtracker: https://github.com/ap/Proc-Fork/issues - repository: git://github.com/ap/Proc-Fork.git -version: '0.806' + bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Proc-Fork + license: http://dev.perl.org/licenses/ + repository: https://github.com/ap/Proc-Fork.git +version: '0.807' x_copyright: holder: 'Aristotle Pagaltzis' year: 2018 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.806/Makefile.PL new/Proc-Fork-0.807/Makefile.PL --- old/Proc-Fork-0.806/Makefile.PL 2018-08-21 22:23:07.000000000 +0200 +++ new/Proc-Fork-0.807/Makefile.PL 2022-08-10 02:49:23.000000000 +0200 @@ -1,35 +1,39 @@ use 5.006; use strict; use warnings; -my $u = 'github.com/ap/Proc-Fork'; +my $sc = q<https://github.com/ap/Proc-Fork>; +my $bt = q<https://rt.cpan.org/Public/Dist/Display.html?Name=Proc-Fork>; my %META = ( name => 'Proc-Fork', author => 'Aristotle Pagaltzis <[email protected]>', - license => 'perl_5', x_copyright => { holder => 'Aristotle Pagaltzis', year => 2018 }, - no_index => {}, - prereqs => { - runtime => { requires => {qw( - perl 5.006 - Carp 0 - Exporter::Tidy 0 - )} }, + license => 'perl_5', + resources => { + license => [ 'http://dev.perl.org/licenses/' ], + repository => { type => 'git', url => "$sc.git", web => $sc }, + bugtracker => { web => $bt }, }, dynamic_config => 0, - resources => { - repository => { type => 'git', url => "git://$u.git", web => "https://$u"; }, - bugtracker => { web => "https://$u/issues"; }, + prereqs => { + runtime => { + requires => {qw( + perl 5.006 + Carp 0 + Exporter::Tidy 0 + )}, + }, }, ); -sub MY::postamble { <<'' } +sub MY::postamble { -f 'META.yml' ? return : <<'' } create_distdir : MANIFEST +distdir : MANIFEST MANIFEST : - ( git ls-files ':!README.pod' . ; echo MANIFEST ) > MANIFEST + ( git ls-files ':!README.pod' ; echo MANIFEST ) > MANIFEST distdir : boilerplate .PHONY : boilerplate boilerplate : distmeta - $(PERL) boilerplate.pl $(DISTVNAME) + $(PERL) -Ilib inc/boilerplate.pl $(DISTVNAME) ## BOILERPLATE ############################################################### require ExtUtils::MakeMaker; @@ -41,9 +45,11 @@ my $mymeta = $eumm_version >= 6.57_02; my $mymeta_broken = $mymeta && $eumm_version < 6.57_07; +(my $basepath = (-d 'lib' && 'lib/') . $META{name}) =~ s{-}{/}g; + ($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}; +$MM_ARGS{VERSION_FROM} = "$basepath.pm"; +$MM_ARGS{ABSTRACT_FROM} = -f "$basepath.pod" ? "$basepath.pod" : "$basepath.pm"; $META{license} = [ $META{license} ] if $META{license} && !ref $META{license}; $MM_ARGS{LICENSE} = $META{license}[0] @@ -65,7 +71,7 @@ defined $r->{$_} or delete $r->{$_} for keys %$r; } -$MM_ARGS{MIN_PERL_VERSION} = delete $MM_ARGS{PREREQ_PM}{perl} || 0; +$MM_ARGS{MIN_PERL_VERSION} = eval delete $MM_ARGS{PREREQ_PM}{perl} || 0; delete $MM_ARGS{MIN_PERL_VERSION} if $eumm_version < 6.47_01; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Proc-Fork-0.806/README new/Proc-Fork-0.807/README --- old/Proc-Fork-0.806/README 2018-08-24 01:35:12.000000000 +0200 +++ new/Proc-Fork-0.807/README 2022-08-10 03:10:12.000000000 +0200 @@ -1,18 +1,19 @@ 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 { @@ -27,15 +28,16 @@ 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 +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 +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 @@ -48,5 +50,5 @@ 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.806/boilerplate.pl new/Proc-Fork-0.807/boilerplate.pl --- old/Proc-Fork-0.806/boilerplate.pl 2018-08-24 01:26:12.000000000 +0200 +++ new/Proc-Fork-0.807/boilerplate.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,57 +0,0 @@ -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.806/inc/boilerplate.pl new/Proc-Fork-0.807/inc/boilerplate.pl --- old/Proc-Fork-0.806/inc/boilerplate.pl 1970-01-01 01:00:00.000000000 +0100 +++ new/Proc-Fork-0.807/inc/boilerplate.pl 2022-08-10 03:08:57.000000000 +0200 @@ -0,0 +1,59 @@ +use strict; use warnings; + +use CPAN::Meta; +use Software::LicenseUtils 0.103011; +use Pod::Readme::Brief 1.001; + +sub slurp { open my $fh, '<', $_[0] or die "Couldn't open $_[0] to read: $!\n"; local $/; readline $fh } +sub trimnl { s/\A\s*\n//, s/\s*\z/\n/ for @_; wantarray ? @_ : $_[-1] } +sub mkparentdirs { + my @dir = do { my %seen; sort grep s!/[^/]+\z!! && !$seen{ $_ }++, my @copy = @_ }; + if ( @dir ) { mkparentdirs( @dir ); mkdir for @dir } +} + +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 or not $class; + $class->new( $meta->custom( 'x_copyright' ) ); +}; + +my $old_notice = "This documentation is copyright (c) 2002 by Eric J. Roode.\n"; + +$file{'LICENSE'} = $old_notice . trimnl $license->fulltext; + +my ( $main_module ) = map { s!-!/!g; s!^!lib/! if -d 'lib'; -f "$_.pod" ? "$_.pod" : "$_.pm" } $meta->name; + +( $file{ $main_module } = slurp $main_module ) =~ s{(^=cut\s*\z)}{ join "\n", ( + "=head1 AUTHOR\n", trimnl( $meta->authors ), "Documentation by Eric J. Roode.\n", + "=head1 COPYRIGHT AND LICENSE\n\n$old_notice", trimnl( $license->notice ), + "=cut\n", +) }me; + +$file{ $main_module } =~ s{^F<(\w+\.pl)>\n?}{ + local $_ = slurp "eg/$1"; + s[^(\t+)]{ ' ' x ( 4 * length $1 ) }meg; # expand + s[^(?!$)]{ }mg; # indent + $_; +}meg; + +die unless -e 'Makefile.PL'; +$file{'README'} = Pod::Readme::Brief->new( $file{ $main_module } )->render( installer => 'eumm' ); + +my @manifest = split /\n/, slurp 'MANIFEST'; +my %manifest = map /\A([^\s#]+)()/, @manifest; +$file{'MANIFEST'} = join "\n", @manifest, ( sort grep !exists $manifest{ $_ }, keys %file ), ''; + +mkparentdirs sort 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.806/lib/Proc/Fork.pm new/Proc-Fork-0.807/lib/Proc/Fork.pm --- old/Proc-Fork-0.806/lib/Proc/Fork.pm 2018-08-24 01:35:12.000000000 +0200 +++ new/Proc-Fork-0.807/lib/Proc/Fork.pm 2022-08-10 03:10:12.000000000 +0200 @@ -1,8 +1,7 @@ use 5.006; use strict; use warnings; package Proc::Fork; - -our $VERSION = '0.806'; +our $VERSION = '0.807'; use Exporter::Tidy ( default => [ ':all' ], @@ -148,6 +147,8 @@ =head1 EXAMPLES +The distribution includes the following examples as separate files in the F<eg/> directory: + =head2 Simple example with IPC via pipe use strict;
