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 2025-06-18 19:30:04 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-CGI (Old) and /work/SRC/openSUSE:Factory/.perl-CGI.new.19631 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-CGI" Wed Jun 18 19:30:04 2025 rev:34 rq:1286339 version:4.690.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-CGI/perl-CGI.changes 2025-04-15 20:47:19.517696588 +0200 +++ /work/SRC/openSUSE:Factory/.perl-CGI.new.19631/perl-CGI.changes 2025-06-18 19:30:05.601947050 +0200 @@ -1,0 +2,11 @@ +Wed Jun 11 14:55:21 UTC 2025 - Tina Müller <timueller+p...@suse.de> + +- updated to 4.690.0 (4.69) + see /usr/share/doc/packages/perl-CGI/Changes + + 4.69 2025-06-11 + + [ REVERT ] + - changes in 4.68 - this breaks backwards compatibility clearly not sufficiently covered by tests (see GH #271) + +------------------------------------------------------------------- Old: ---- CGI-4.68.tar.gz New: ---- CGI-4.69.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-CGI.spec ++++++ --- /var/tmp/diff_new_pack.0E7Vm9/_old 2025-06-18 19:30:06.173970724 +0200 +++ /var/tmp/diff_new_pack.0E7Vm9/_new 2025-06-18 19:30:06.177970889 +0200 @@ -18,10 +18,10 @@ %define cpan_name CGI Name: perl-CGI -Version: 4.680.0 +Version: 4.690.0 Release: 0 -# 4.68 -> normalize -> 4.680.0 -%define cpan_version 4.68 +# 4.69 -> normalize -> 4.690.0 +%define cpan_version 4.69 License: Artistic-2.0 Summary: Handle Common Gateway Interface requests and responses URL: https://metacpan.org/release/%{cpan_name} @@ -34,7 +34,7 @@ BuildRequires: perl(HTML::Entities) >= 3.690 BuildRequires: perl(Test::More) >= 0.98 BuildRequires: perl(Test::NoWarnings) -BuildRequires: perl(Test::Warn) >= 0.3 +BuildRequires: perl(Test::Warn) >= 0.300 BuildRequires: perl(URI) >= 1.760 BuildRequires: perl(parent) >= 0.225 Requires: perl(File::Temp) >= 0.17 @@ -49,7 +49,7 @@ Provides: perl(CGI::MultipartBuffer) Provides: perl(CGI::Pretty) = %{version} Provides: perl(CGI::Push) -Provides: perl(CGI::Util) = 4.670.0 +Provides: perl(CGI::Util) = %{version} Provides: perl(Fh) = %{version} %undefine __perllib_provides %{perl_requires} ++++++ CGI-4.68.tar.gz -> CGI-4.69.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/Changes new/CGI-4.69/Changes --- old/CGI-4.68/Changes 2025-03-25 13:54:17.000000000 +0100 +++ new/CGI-4.69/Changes 2025-06-11 08:18:35.000000000 +0200 @@ -1,3 +1,8 @@ +4.69 2025-06-11 + + [ REVERT ] + - changes in 4.68 - this breaks backwards compatibility clearly not sufficiently covered by tests (see GH #271) + 4.68 2025-04-01 [ FIX ] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/MANIFEST new/CGI-4.69/MANIFEST --- old/CGI-4.68/MANIFEST 2025-04-01 11:37:05.000000000 +0200 +++ new/CGI-4.69/MANIFEST 2025-06-11 08:20:19.000000000 +0200 @@ -38,7 +38,6 @@ t/form.t t/function.t t/gh-155.t -t/hash_param.t t/headers.t t/headers/attachment.t t/headers/charset.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/META.json new/CGI-4.69/META.json --- old/CGI-4.68/META.json 2025-04-01 11:37:05.000000000 +0200 +++ new/CGI-4.69/META.json 2025-06-11 08:20:19.000000000 +0200 @@ -78,6 +78,6 @@ "web" : "https://github.com/leejo/CGI.pm"; } }, - "version" : "4.68", + "version" : "4.69", "x_serialization_backend" : "JSON::PP version 4.06" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/META.yml new/CGI-4.69/META.yml --- old/CGI-4.68/META.yml 2025-04-01 11:37:05.000000000 +0200 +++ new/CGI-4.69/META.yml 2025-06-11 08:20:19.000000000 +0200 @@ -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.68' +version: '4.69' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/lib/CGI/Carp.pm new/CGI-4.69/lib/CGI/Carp.pm --- old/CGI-4.68/lib/CGI/Carp.pm 2025-03-25 13:49:18.000000000 +0100 +++ new/CGI-4.69/lib/CGI/Carp.pm 2025-06-11 08:17:32.000000000 +0200 @@ -326,7 +326,7 @@ $main::SIG{__WARN__}=\&CGI::Carp::warn; -$CGI::Carp::VERSION = '4.68'; +$CGI::Carp::VERSION = '4.69'; $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.68/lib/CGI/File/Temp.pm new/CGI-4.69/lib/CGI/File/Temp.pm --- old/CGI-4.68/lib/CGI/File/Temp.pm 2025-03-25 13:49:20.000000000 +0100 +++ new/CGI-4.69/lib/CGI/File/Temp.pm 2025-06-11 08:17:34.000000000 +0200 @@ -3,7 +3,7 @@ # you use it directly and your code breaks horribly. package CGI::File::Temp; -$CGI::File::Temp::VERSION = '4.68'; +$CGI::File::Temp::VERSION = '4.69'; use parent File::Temp; use parent Fh; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/lib/CGI/Pretty.pm new/CGI-4.69/lib/CGI/Pretty.pm --- old/CGI-4.68/lib/CGI/Pretty.pm 2025-03-25 13:49:22.000000000 +0100 +++ new/CGI-4.69/lib/CGI/Pretty.pm 2025-06-11 08:17:35.000000000 +0200 @@ -5,7 +5,7 @@ use CGI (); -$CGI::Pretty::VERSION = '4.68'; +$CGI::Pretty::VERSION = '4.69'; $CGI::DefaultClass = __PACKAGE__; @CGI::Pretty::ISA = qw( CGI ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/lib/CGI/Push.pm new/CGI-4.69/lib/CGI/Push.pm --- old/CGI-4.68/lib/CGI/Push.pm 2025-03-25 13:49:23.000000000 +0100 +++ new/CGI-4.69/lib/CGI/Push.pm 2025-06-11 08:17:36.000000000 +0200 @@ -5,7 +5,7 @@ use warnings; #/; -$CGI::Push::VERSION='4.68'; +$CGI::Push::VERSION='4.69'; use CGI; use CGI::Util 'rearrange'; @ISA = ('CGI'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/lib/CGI/Util.pm new/CGI-4.69/lib/CGI/Util.pm --- old/CGI-4.68/lib/CGI/Util.pm 2025-03-25 13:41:07.000000000 +0100 +++ new/CGI-4.69/lib/CGI/Util.pm 2025-06-11 08:17:38.000000000 +0200 @@ -3,9 +3,9 @@ require 5.008001; use strict; our @EXPORT_OK = qw(rearrange rearrange_header make_attributes unescape escape - expires ebcdic2ascii ascii2ebcdic check_hash_param); + expires ebcdic2ascii ascii2ebcdic); -our $VERSION = '4.67'; +our $VERSION = '4.69'; our $_EBCDIC = "\t" ne "\011"; @@ -102,7 +102,7 @@ @param = %{$param[0]}; } else { return \@param - unless (defined($param[0]) && check_hash_param(@param)); + unless (defined($param[0]) && substr($param[0],0,1) eq '-'); } # map parameters into positional indices @@ -307,19 +307,6 @@ $data; } -sub check_hash_param { - my $cnt = scalar(@_); - return 0 unless $cnt; - if ($cnt < 2 || $cnt % 2) { - return substr($_[0], 0, 1) eq '-' ? 1 : 0; - } - my %h = @_; - foreach (keys %h) { - return 1 if substr($_, 0, 1) eq '-'; - } - return 0; -} - 1; __END__ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/lib/CGI.pm new/CGI-4.69/lib/CGI.pm --- old/CGI-4.68/lib/CGI.pm 2025-03-25 13:49:15.000000000 +0100 +++ new/CGI-4.69/lib/CGI.pm 2025-06-11 08:17:30.000000000 +0200 @@ -8,9 +8,9 @@ use warnings; #/; -$CGI::VERSION='4.68'; +$CGI::VERSION='4.69'; -use CGI::Util qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic check_hash_param); +use CGI::Util qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); $_XHTML_DTD = ['-//W3C//DTD XHTML 1.0 Transitional//EN', 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd']; @@ -426,7 +426,7 @@ ($name,$value,@other) = rearrange([NAME,[DEFAULT,VALUE,VALUES]],@p); my(@values); - if (check_hash_param(@p)) { + if (substr($p[0],0,1) eq '-') { @values = defined($value) ? (ref($value) && ref($value) eq 'ARRAY' ? @{$value} : $value) : (); } else { for ($value,@other) { @@ -1944,7 +1944,7 @@ #### Method: start_multipart_form sub start_multipart_form { my($self,@p) = self_or_default(@_); - if (defined($p[0]) && check_hash_param(@p)) { + if (defined($p[0]) && substr($p[0],0,1) eq '-') { return $self->start_form(-enctype=>&MULTIPART,@p); } else { my($method,$action,@other) = @@ -2621,7 +2621,7 @@ rearrange([NAME,[DEFAULT,VALUE,VALUES],[OVERRIDE,FORCE]],@p); my $do_override = 0; - if ( ref($p[0]) || check_hash_param(@p)) { + if ( ref($p[0]) || substr($p[0],0,1) eq '-') { @value = ref($default) ? @{$default} : $default; $do_override = $override; } else { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/lib/Fh.pm new/CGI-4.69/lib/Fh.pm --- old/CGI-4.68/lib/Fh.pm 2025-03-25 13:49:25.000000000 +0100 +++ new/CGI-4.69/lib/Fh.pm 2025-06-11 08:17:40.000000000 +0200 @@ -5,6 +5,6 @@ use strict; use warnings; -$Fh::VERSION = '4.68'; +$Fh::VERSION = '4.69'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.68/t/hash_param.t new/CGI-4.69/t/hash_param.t --- old/CGI-4.68/t/hash_param.t 2025-03-25 13:44:09.000000000 +0100 +++ new/CGI-4.69/t/hash_param.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,47 +0,0 @@ -#!perl - -use strict; -use warnings; - -use Test::More 'no_plan'; -use CGI; - -# Mix hash and old parammeters -my $p = { - 'class' => 'class_set', - '-default' => [''], - '-name' => 'name_set', - 'id' => 'id_set' -}; - -sub _test { - my $cnt = 100; - my $err = 0; - for (1 .. $cnt) { - my $cg = CGI->new; - my $str = $cg->hidden(%$p); - - # Check if hidden return only one line - my $count = () = $str =~ /input/g; - if ($count > 1) { - $err++; - next; - } - - # Check if input line has proper values - $str =~ s/\<input\s+//; - $str =~ s/\/>//; - my %th = map { split("=") } split(" ", $str); - is(delete $th{type}, '"hidden"', "Type"); - is(delete $th{name}, '"name_set"', "name"); - is(delete $th{class}, '"class_set"', "class"); - is(delete $th{id}, '"id_set"', "class"); - is(delete $th{value}, '""', "value"); - is(keys %th, 0, "keys"); - } - ok($err == 0, "Check hash_param"); -} - -for (1 .. 10) { - _test(); -}
