Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-CGI for openSUSE:Factory checked in at 2021-05-08 22:07:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-CGI (Old) and /work/SRC/openSUSE:Factory/.perl-CGI.new.2988 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-CGI" Sat May 8 22:07:09 2021 rev:22 rq:890895 version:4.52 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-CGI/perl-CGI.changes 2020-10-08 13:12:13.771174895 +0200 +++ /work/SRC/openSUSE:Factory/.perl-CGI.new.2988/perl-CGI.changes 2021-05-08 22:07:09.913808159 +0200 @@ -1,0 +2,11 @@ +Wed May 5 03:06:07 UTC 2021 - Tina M??ller <[email protected]> + +- updated to 4.52 + see /usr/share/doc/packages/perl-CGI/Changes + + 4.52 2021-05-04 + + [ FIX ] + - sort hash keys for deterministic behaviour (GH #245, GH #246) + +------------------------------------------------------------------- Old: ---- CGI-4.51.tar.gz New: ---- CGI-4.52.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-CGI.spec ++++++ --- /var/tmp/diff_new_pack.YYVspM/_old 2021-05-08 22:07:10.333806339 +0200 +++ /var/tmp/diff_new_pack.YYVspM/_new 2021-05-08 22:07:10.337806322 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-CGI # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,18 +16,16 @@ # +%define cpan_name CGI Name: perl-CGI -Version: 4.51 +Version: 4.52 Release: 0 -%define cpan_name CGI Summary: Handle Common Gateway Interface requests and responses License: Artistic-2.0 -Group: Development/Libraries/Perl URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/L/LE/LEEJO/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch -BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(File::Temp) >= 0.17 @@ -57,12 +55,12 @@ however is has now been removed from the perl core... %prep -%setup -q -n %{cpan_name}-%{version} +%autosetup -n %{cpan_name}-%{version} find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 %build perl Makefile.PL INSTALLDIRS=vendor -make %{?_smp_mflags} +%make_build %check make test @@ -73,7 +71,6 @@ %perl_gen_filelist %files -f %{name}.files -%defattr(-,root,root,755) %doc Changes examples README.md %license LICENSE ++++++ CGI-4.51.tar.gz -> CGI-4.52.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/Changes new/CGI-4.52/Changes --- old/CGI-4.51/Changes 2020-09-25 15:20:14.000000000 +0200 +++ new/CGI-4.52/Changes 2021-05-04 09:59:00.000000000 +0200 @@ -1,3 +1,8 @@ +4.52 2021-05-04 + + [ FIX ] + - sort hash keys for deterministic behaviour (GH #245, GH #246) + 4.51 2020-10-01 [ DOCUMENTATION ] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/META.json new/CGI-4.52/META.json --- old/CGI-4.51/META.json 2020-10-05 08:13:22.000000000 +0200 +++ new/CGI-4.52/META.json 2021-05-04 10:01:32.000000000 +0200 @@ -4,7 +4,7 @@ "unknown" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.36, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010", "license" : [ "artistic_2" ], @@ -78,6 +78,6 @@ "web" : "https://github.com/leejo/CGI.pm"; } }, - "version" : "4.51", - "x_serialization_backend" : "JSON::PP version 4.02" + "version" : "4.52", + "x_serialization_backend" : "JSON::PP version 4.04" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/META.yml new/CGI-4.52/META.yml --- old/CGI-4.51/META.yml 2020-10-05 08:13:22.000000000 +0200 +++ new/CGI-4.52/META.yml 2021-05-04 10:01:31.000000000 +0200 @@ -16,7 +16,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.36, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010' license: artistic_2 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -47,5 +47,5 @@ homepage: https://metacpan.org/module/CGI license: http://dev.perl.org/licenses/ repository: https://github.com/leejo/CGI.pm -version: '4.51' +version: '4.52' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/lib/CGI/Carp.pm new/CGI-4.52/lib/CGI/Carp.pm --- old/CGI-4.51/lib/CGI/Carp.pm 2020-09-25 15:20:35.000000000 +0200 +++ new/CGI-4.52/lib/CGI/Carp.pm 2021-05-04 09:58:01.000000000 +0200 @@ -326,7 +326,7 @@ $main::SIG{__WARN__}=\&CGI::Carp::warn; -$CGI::Carp::VERSION = '4.51'; +$CGI::Carp::VERSION = '4.52'; $CGI::Carp::CUSTOM_MSG = undef; $CGI::Carp::DIE_HANDLER = undef; $CGI::Carp::TO_BROWSER = 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/lib/CGI/Cookie.pm new/CGI-4.52/lib/CGI/Cookie.pm --- old/CGI-4.51/lib/CGI/Cookie.pm 2020-09-25 15:20:39.000000000 +0200 +++ new/CGI-4.52/lib/CGI/Cookie.pm 2021-05-04 09:58:05.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION='4.51'; +our $VERSION='4.52'; use CGI::Util qw(rearrange unescape escape); use overload '""' => \&as_string, 'cmp' => \&compare, 'fallback' => 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/lib/CGI/File/Temp.pm new/CGI-4.52/lib/CGI/File/Temp.pm --- old/CGI-4.51/lib/CGI/File/Temp.pm 2020-09-25 15:20:33.000000000 +0200 +++ new/CGI-4.52/lib/CGI/File/Temp.pm 2021-05-04 09:57:57.000000000 +0200 @@ -3,7 +3,7 @@ # you use it directly and your code breaks horribly. package CGI::File::Temp; -$CGI::File::Temp::VERSION = '4.51'; +$CGI::File::Temp::VERSION = '4.52'; use parent File::Temp; use parent Fh; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/lib/CGI/Pretty.pm new/CGI-4.52/lib/CGI/Pretty.pm --- old/CGI-4.51/lib/CGI/Pretty.pm 2020-09-25 15:20:40.000000000 +0200 +++ new/CGI-4.52/lib/CGI/Pretty.pm 2021-05-04 09:58:06.000000000 +0200 @@ -5,7 +5,7 @@ use CGI (); -$CGI::Pretty::VERSION = '4.51'; +$CGI::Pretty::VERSION = '4.52'; $CGI::DefaultClass = __PACKAGE__; @CGI::Pretty::ISA = qw( CGI ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/lib/CGI/Push.pm new/CGI-4.52/lib/CGI/Push.pm --- old/CGI-4.51/lib/CGI/Push.pm 2020-09-25 15:20:42.000000000 +0200 +++ new/CGI-4.52/lib/CGI/Push.pm 2021-05-04 09:58:08.000000000 +0200 @@ -5,7 +5,7 @@ use warnings; #/; -$CGI::Push::VERSION='4.51'; +$CGI::Push::VERSION='4.52'; use CGI; use CGI::Util 'rearrange'; @ISA = ('CGI'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/lib/CGI/Util.pm new/CGI-4.52/lib/CGI/Util.pm --- old/CGI-4.51/lib/CGI/Util.pm 2020-09-25 15:20:37.000000000 +0200 +++ new/CGI-4.52/lib/CGI/Util.pm 2021-05-04 09:58:03.000000000 +0200 @@ -5,7 +5,7 @@ our @EXPORT_OK = qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); -our $VERSION = '4.51'; +our $VERSION = '4.52'; our $_EBCDIC = "\t" ne "\011"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/lib/CGI.pm new/CGI-4.52/lib/CGI.pm --- old/CGI-4.51/lib/CGI.pm 2020-09-25 15:21:03.000000000 +0200 +++ new/CGI-4.52/lib/CGI.pm 2021-05-04 09:58:16.000000000 +0200 @@ -7,7 +7,7 @@ use warnings; #/; -$CGI::VERSION='4.51'; +$CGI::VERSION='4.52'; use CGI::Util qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); @@ -286,7 +286,7 @@ # To allow overriding, search through the packages # Till we find one in which the correct subroutine is defined. my @packages = ($self,@{"$self\:\:ISA"}); - for $sym (keys %EXPORT) { + for $sym (sort keys %EXPORT) { my $pck; my $def = $DefaultClass; for $pck (@packages) { @@ -609,7 +609,7 @@ last METHOD; } if (ref($initializer) && ref($initializer) eq 'HASH') { - for (keys %$initializer) { + for (sort keys %$initializer) { $self->param('-name'=>$_,'-value'=>$initializer->{$_}); } last METHOD; @@ -1155,7 +1155,7 @@ die "Can't import names into \"main\"\n" if \%{"${namespace}::"} == \%::; if ($delete || $MOD_PERL || exists $ENV{'FCGI_ROLE'}) { # can anyone find an easier way to do this? - for (keys %{"${namespace}::"}) { + for (sort keys %{"${namespace}::"}) { local *symbol = "${namespace}::${_}"; undef $symbol; undef @symbol; @@ -1428,7 +1428,7 @@ if length($escaped_param) or length($value); } } - for (keys %{$self->{'.fieldnames'}}) { + for (sort keys %{$self->{'.fieldnames'}}) { print $filehandle ".cgifields=",escape("$_"),"\n"; } print $filehandle "=\n"; # end of record @@ -2456,7 +2456,7 @@ if (/<optgroup/) { for my $v (split(/\n/)) { my $selectit = $XHTML ? 'selected="selected"' : 'selected'; - for my $selected (keys %selected) { + for my $selected (sort keys %selected) { $v =~ s/(value="\Q$selected\E")/$selectit $1/; } $result .= "$v\n"; @@ -2578,7 +2578,7 @@ if (/<optgroup/) { for my $v (split(/\n/)) { my $selectit = $XHTML ? 'selected="selected"' : 'selected'; - for my $selected (keys %selected) { + for my $selected (sort keys %selected) { $v =~ s/(value="$selected")/$selectit $1/; } $result .= "$v\n"; @@ -2943,7 +2943,7 @@ push(@pairs,"$eparam=$value"); } } - for (keys %{$self->{'.fieldnames'}}) { + for (sort keys %{$self->{'.fieldnames'}}) { push(@pairs,".cgifields=".escape("$_")); } return join($USE_PARAM_SEMICOLONS ? ';' : '&',@pairs); @@ -2991,7 +2991,7 @@ return $prefs{$search} if $prefs{$search}; # Didn't get it, so try pattern matching. - for (keys %prefs) { + for (sort keys %prefs) { next unless /\*/; # not a pattern match ($pat = $_) =~ s/([^\w*])/\\$1/g; # escape meta characters $pat =~ s/\*/.*/g; # turn it into a pattern @@ -3144,7 +3144,7 @@ } return $ENV{"HTTP_$parameter"}; } - return grep { /^HTTP(?:_|$)/ } keys %ENV; + return grep { /^HTTP(?:_|$)/ } sort keys %ENV; } #### Method: https @@ -3162,7 +3162,7 @@ return $ENV{"HTTPS_$parameter"}; } return wantarray - ? grep { /^HTTPS(?:_|$)/ } keys %ENV + ? grep { /^HTTPS(?:_|$)/ } sort keys %ENV : $ENV{'HTTPS'}; } @@ -3293,7 +3293,7 @@ sub get_fields { my($self) = @_; return $self->CGI::hidden('-name'=>'.cgifields', - '-values'=>[keys %{$self->{'.parametersToAdd'}}], + '-values'=>[sort keys %{$self->{'.parametersToAdd'}}], '-override'=>1); } @@ -3415,7 +3415,7 @@ # together with the body for later parsing with an external # MIME parser module if ( $multipart ) { - for ( keys %header ) { + for ( sort keys %header ) { print $filehandle "$_: $header{$_}${CRLF}"; } print $filehandle "${CRLF}"; @@ -3624,7 +3624,7 @@ $$l = $v if ref($v) eq 'HASH' && !ref($$l); return $self->param($n) if !defined($v); return $v if !ref($v); - return ref($v) eq 'HASH' ? keys %$v : @$v; + return ref($v) eq 'HASH' ? sort keys %$v : @$v; } # internal routine, don't use @@ -3633,7 +3633,7 @@ my($element, $attributes) = @_; return '' unless defined($attributes->{$element}); $attribs = ' '; - for my $attrib (keys %{$attributes->{$element}}) { + for my $attrib (sort keys %{$attributes->{$element}}) { (my $clean_attrib = $attrib) =~ s/^-//; $attribs .= "@{[lc($clean_attrib)]}=\"$attributes->{$element}{$attrib}\" "; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.51/lib/Fh.pm new/CGI-4.52/lib/Fh.pm --- old/CGI-4.51/lib/Fh.pm 2020-09-25 15:20:31.000000000 +0200 +++ new/CGI-4.52/lib/Fh.pm 2021-05-04 09:57:53.000000000 +0200 @@ -5,6 +5,6 @@ use strict; use warnings; -$Fh::VERSION = '4.51'; +$Fh::VERSION = '4.52'; 1;
