Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-PAR for openSUSE:Factory checked in at 2022-10-06 07:41:28 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-PAR (Old) and /work/SRC/openSUSE:Factory/.perl-PAR.new.2275 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-PAR" Thu Oct 6 07:41:28 2022 rev:15 rq:1007967 version:1.018 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-PAR/perl-PAR.changes 2021-01-15 19:46:10.538017119 +0100 +++ /work/SRC/openSUSE:Factory/.perl-PAR.new.2275/perl-PAR.changes 2022-10-06 07:41:37.712610425 +0200 @@ -1,0 +2,13 @@ +Thu Sep 29 03:06:53 UTC 2022 - Tina M??ller <[email protected]> + +- updated to 1.018 + see /usr/share/doc/packages/perl-PAR/Changes + + 1.018 2022-09-28 + + - Fix #6: PAR fails to test its build on MSWin32 with Perl-5.36.0 + + Makefile.PL: Quote t/gen-hello-par.pl for Windows + Merge PR #5 by Tim Hoke <[email protected]> + +------------------------------------------------------------------- Old: ---- PAR-1.017.tar.gz New: ---- PAR-1.018.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-PAR.spec ++++++ --- /var/tmp/diff_new_pack.hWj4zw/_old 2022-10-06 07:41:38.188611484 +0200 +++ /var/tmp/diff_new_pack.hWj4zw/_new 2022-10-06 07:41:38.192611494 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-PAR # -# Copyright (c) 2021 SUSE LLC +# 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 @@ -18,10 +18,10 @@ %define cpan_name PAR Name: perl-PAR -Version: 1.017 +Version: 1.018 Release: 0 -Summary: Perl Archive Toolkit License: Artistic-1.0 OR GPL-1.0-or-later +Summary: Perl Archive Toolkit URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/R/RS/RSCHUPP/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml ++++++ PAR-1.017.tar.gz -> PAR-1.018.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PAR-1.017/Changes new/PAR-1.018/Changes --- old/PAR-1.017/Changes 2021-01-13 15:28:07.000000000 +0100 +++ new/PAR-1.018/Changes 2022-09-28 22:49:45.000000000 +0200 @@ -1,3 +1,10 @@ +1.018 2022-09-28 + +- Fix #6: PAR fails to test its build on MSWin32 with Perl-5.36.0 + + Makefile.PL: Quote t/gen-hello-par.pl for Windows + Merge PR #5 by Tim Hoke <[email protected]> + 1.017 2021-01-13 - change bugtracker to GitHub issues diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PAR-1.017/META.json new/PAR-1.018/META.json --- old/PAR-1.017/META.json 2021-01-13 15:48:44.000000000 +0100 +++ new/PAR-1.018/META.json 2022-09-28 22:50:11.000000000 +0200 @@ -4,7 +4,7 @@ "Audrey Tang <[email protected]>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -59,6 +59,6 @@ }, "x_MailingList" : "mailto:[email protected]"; }, - "version" : "1.017", - "x_serialization_backend" : "JSON::PP version 4.05" + "version" : "1.018", + "x_serialization_backend" : "JSON::PP version 4.11" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PAR-1.017/META.yml new/PAR-1.018/META.yml --- old/PAR-1.017/META.yml 2021-01-13 15:48:44.000000000 +0100 +++ new/PAR-1.018/META.yml 2022-09-28 22:50:11.000000000 +0200 @@ -8,7 +8,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -30,5 +30,5 @@ MailingList: mailto:[email protected] bugtracker: https://github.com/rschupp/PAR/issues repository: git://github.com/rschupp/PAR.git -version: '1.017' +version: '1.018' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PAR-1.017/Makefile.PL new/PAR-1.018/Makefile.PL --- old/PAR-1.017/Makefile.PL 2021-01-13 14:55:50.000000000 +0100 +++ new/PAR-1.018/Makefile.PL 2021-09-03 15:32:26.000000000 +0200 @@ -46,7 +46,7 @@ return <<'...'; pure_all :: t/hello.par t/hello.par: - $(PERL) t/gen-hello-par.pl + $(PERL) "t/gen-hello-par.pl" ... } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PAR-1.017/lib/PAR/SetupProgname.pm new/PAR-1.018/lib/PAR/SetupProgname.pm --- old/PAR-1.017/lib/PAR/SetupProgname.pm 2016-12-18 16:18:28.000000000 +0100 +++ new/PAR-1.018/lib/PAR/SetupProgname.pm 2021-09-03 15:31:22.000000000 +0200 @@ -4,7 +4,7 @@ use 5.006; use strict; use warnings; -use Config (); +use Config; =head1 NAME @@ -40,15 +40,15 @@ if (open my $fh, $Progname) { return if -s $fh; } - if (-s "$Progname$Config::Config{_exe}") { - $Progname .= $Config::Config{_exe}; + if (-s "$Progname$Config{_exe}") { + $Progname .= $Config{_exe}; return; } } - foreach my $dir (split /\Q$Config::Config{path_sep}\E/, $ENV{PATH}) { + foreach my $dir (split /\Q$Config{path_sep}\E/, $ENV{PATH}) { next if exists $ENV{PAR_TEMP} and $dir eq $ENV{PAR_TEMP}; - my $name = File::Spec->catfile($dir, "$Progname$Config::Config{_exe}"); + my $name = File::Spec->catfile($dir, "$Progname$Config{_exe}"); if (-s $name) { $Progname = $name; last } $name = File::Spec->catfile($dir, "$Progname"); if (-s $name) { $Progname = $name; last } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PAR-1.017/lib/PAR.pm new/PAR-1.018/lib/PAR.pm --- old/PAR-1.017/lib/PAR.pm 2019-05-24 23:14:31.000000000 +0200 +++ new/PAR-1.018/lib/PAR.pm 2021-09-03 15:33:07.000000000 +0200 @@ -1,10 +1,10 @@ package PAR; -$PAR::VERSION = '1.017'; +$PAR::VERSION = '1.018'; use 5.006; use strict; use warnings; -use Config '%Config'; +use Config; use Carp qw/croak/; # If the 'prefork' module is available, we @@ -149,7 +149,7 @@ =head1 DESCRIPTION This module lets you use special zip files, called B<P>erl B<Ar>chives, as -libraries from which Perl modules can be loaded. +libraries from which Perl modules can be loaded. It supports loading XS modules by overriding B<DynaLoader> bootstrapping methods; it writes shared object file to a temporary file at the time it @@ -230,7 +230,7 @@ =item * -I<TEMP> is a temporary directory, which can be set via +I<TEMP> is a temporary directory, which can be set via C<$ENV{PAR_GLOBAL_TMPDIR}>, C<$ENV{TMPDIR}>, C<$ENV{TEMPDIR}>, C<$ENV{TEMP}> or C<$ENV{TMP}>, in that order of priority. @@ -306,14 +306,14 @@ as /usr/local/lib/) or in $ENV{PAR_TEMP} I<before> you require the module which needs them. If they are not accessible before you require the dependent module, perl will die with a message such as "cannot open -shared object file..." +shared object file..." =back =cut use Fcntl ':flock'; -use Archive::Zip qw( :ERROR_CODES ); +use Archive::Zip qw( :ERROR_CODES ); use vars qw(@PAR_INC); # explicitly stated PAR library files (preferred) use vars qw(@PAR_INC_LAST); # explicitly stated PAR library files (fallback) @@ -353,7 +353,7 @@ $is_insensitive_fs = (-s $progname and (-s lc($progname) || -1) == (-s uc($progname) || -1)); my @args = @_; - + # Insert PAR hook in @INC. unshift @INC, \&find_par unless grep { $_ eq \&find_par } @INC; push @INC, \&find_par_last unless grep { $_ eq \&find_par_last } @INC; @@ -466,7 +466,7 @@ # for files, we default to loading from PAR archive first my $fallback = $opt->{fallback}; $fallback = 0 if not defined $fallback; - + if (not $fallback) { # load from this PAR arch preferably push @PAR_INC, unpar($opt->{file}, undef, undef, 1); @@ -475,7 +475,7 @@ # load from this PAR arch as fallback push @PAR_INC_LAST, unpar($opt->{file}, undef, undef, 1); } - + } else { # Deal with repositories elsewhere @@ -488,7 +488,7 @@ $client->run_script( $opt->{run} ); return 1; } - + return 1; } @@ -498,21 +498,21 @@ my $script = $opt->{run}; require PAR::Heavy; PAR::Heavy::_init_dynaloader(); - + # XXX - handle META.yml here! _extract_inc($opt->{file}); - + my $zip = $LibCache{$opt->{file}}; my $member = _first_member( $zip, (($script !~ /^script\//) ? ("script/$script", "script/$script.pl") : ()), $script, "$script.pl", ); - + if (not defined $member) { croak("Cannot run script '$script' from PAR file '$opt->{file}'. Script couldn't be found in PAR file."); } - + _run_member_from_par($member); } @@ -531,7 +531,7 @@ if ($@ or not eval PAR::Repository::Client->VERSION >= 0.04) { croak "In order to use the 'use PAR { repository => 'url' };' syntax, you need to install the PAR::Repository::Client module (version 0.04 or later) from CPAN. This module does not seem to be installed as indicated by the following error message: $@"; } - + if ($opt->{upgrade} and not eval PAR::Repository::Client->VERSION >= 0.22) { croak "In order to use the 'upgrade' option, you need to install the PAR::Repository::Client module (version 0.22 or later) from CPAN"; } @@ -579,7 +579,7 @@ return; } -# Given an Archive::Zip object, this finds the first +# Given an Archive::Zip object, this finds the first # Archive::Zip member whose file name matches the # regular expression sub _first_member_matching { @@ -634,12 +634,12 @@ $member->crc32String . ".pl"); # NOTE: Perl 5.14.x will print the infamous warning - # "Use of uninitialized value in do "file" at .../PAR.pm line 636" + # "Use of uninitialized value in do "file" at .../PAR.pm line 636" # when $INC{main} exists, but is undef, when "do 'main'" is called. - # This typically happens at the second invocation of _run_member() - # when running a packed executable (the first invocation is for the - # generated script/main.pl, the second for the packed script itself). - # Hence shut the warning up by assigning something to $INC{main}. + # This typically happens at the second invocation of _run_member() + # when running a packed executable (the first invocation is for the + # generated script/main.pl, the second for the packed script itself). + # Hence shut the warning up by assigning something to $INC{main}. # 5.14.x is the only Perl version since 5.8.1 that shows this behaviour. unshift @INC, sub { shift @INC; $INC{$_[1]} = $filename; return $fh }; @@ -679,7 +679,7 @@ # returns that directory. sub _extract_inc { my $file_or_azip_handle = shift; - my $dlext = defined($Config{dlext}) ? $Config::Config{dlext} : ''; + my $dlext = defined($Config{dlext}) ? $Config{dlext} : ''; my $is_handle = ref($file_or_azip_handle) && $file_or_azip_handle->isa('Archive::Zip::Archive'); require File::Spec; @@ -708,7 +708,7 @@ Archive::Unzip::Burst::unzip($file_or_azip_handle, $inc) == AZ_OK; } and last EXTRACT; - # Either failed to load Archive::Unzip::Burst or + # Either failed to load Archive::Unzip::Burst or # Archive::Unzip::Burst::unzip failed: fallback to slow way. open my $fh, '<', $file_or_azip_handle or die "Cannot find '$file_or_azip_handle': $!"; @@ -731,19 +731,19 @@ next if -e $outfile and not -w _; $zip->extractMember($_, $outfile); # Unfortunately Archive::Zip doesn't have an option - # NOT to restore member timestamps when extracting, hence set + # NOT to restore member timestamps when extracting, hence set # it to "now" (making it younger than the canary file). utime(undef, undef, $outfile); } } $ArchivesExtracted{$is_handle ? $file_or_azip_handle->fileName() : $file_or_azip_handle} = $inc; - + # touch (and back-date) canary file - open my $fh, ">", $canary; + open my $fh, ">", $canary; print $fh <<'...'; -This file is used as "canary in the coal mine" to detect when -files in PAR's cache area are being removed by some clean up +This file is used as "canary in the coal mine" to detect when +files in PAR's cache area are being removed by some clean up mechanism (probably based on file modification times). ... close $fh; @@ -1007,7 +1007,7 @@ $FileCache{$_[0]} = _make_file_cache($zip); # only recursive case -- appears to be unused and unimplemented - foreach my $member ( _cached_members_matching($zip, + foreach my $member ( _cached_members_matching($zip, "^par/(?:$Config{version}/)?(?:$Config{archname}/)?" ) ) { next if $member->isDirectory; @@ -1015,7 +1015,7 @@ next unless $content =~ /^PK\003\004/; push @rv, unpar(\$content, undef, undef, 1); } - + # extract all shlib dlls from the .par to $ENV{PAR_TEMP} # Intended to fix problem with Alien::wxWidgets/Wx... # NOTE auto/foo/foo.so|dll will get handled by the dynaloader @@ -1085,8 +1085,8 @@ return $member if $member_only; (my $fh, $LastTempFile) = _tempfile( - sub { - my $fh = shift; + sub { + my $fh = shift; my $file = $member->fileName; $member->extractToFileHandle($fh) == AZ_OK or die "Can't extract $file: $!"; @@ -1098,7 +1098,7 @@ sub _tempfile { my ($callback, $name) = @_; - + if ($ENV{PAR_CLEAN} or !defined $name) { require File::Temp; @@ -1131,7 +1131,7 @@ close($fh); # FIXME why? - rename($tempname, $filename) or unlink($tempname); + rename($tempname, $filename) or unlink($tempname); } open my $fh, '<', $filename or die $!; @@ -1207,7 +1207,7 @@ =head1 SEE ALSO -L<PAR::Tutorial>, L<PAR::FAQ> +L<PAR::Tutorial>, L<PAR::FAQ> The L<PAR::Packer> distribution which contains the packaging utilities: L<par.pl>, L<parl>, L<pp>.
