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 2026-05-14 21:41:54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-CGI (Old) and /work/SRC/openSUSE:Factory/.perl-CGI.new.1966 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-CGI" Thu May 14 21:41:54 2026 rev:37 rq:1352985 version:4.720.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-CGI/perl-CGI.changes 2025-10-11 22:48:34.661091212 +0200 +++ /work/SRC/openSUSE:Factory/.perl-CGI.new.1966/perl-CGI.changes 2026-05-14 21:42:08.572596111 +0200 @@ -1,0 +2,11 @@ +Wed May 6 07:45:02 UTC 2026 - Tina Müller <[email protected]> + +- updated to 4.720.0 (4.72) + see /usr/share/doc/packages/perl-CGI/Changes + + 4.72 2026-05-05 + + [ INTERNALS ] + - fix regression due to edge case bug introduced in 4.71 (GH #278, thanks to dddonovan) + +------------------------------------------------------------------- Old: ---- CGI-4.71.tar.gz New: ---- CGI-4.72.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-CGI.spec ++++++ --- /var/tmp/diff_new_pack.wohIlF/_old 2026-05-14 21:42:09.332627288 +0200 +++ /var/tmp/diff_new_pack.wohIlF/_new 2026-05-14 21:42:09.336627452 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-CGI # -# Copyright (c) 2025 SUSE LLC and contributors +# Copyright (c) 2026 SUSE LLC and contributors # # 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 CGI Name: perl-CGI -Version: 4.710.0 +Version: 4.720.0 Release: 0 -# 4.71 -> normalize -> 4.710.0 -%define cpan_version 4.71 +# 4.72 -> normalize -> 4.720.0 +%define cpan_version 4.72 License: Artistic-2.0 Summary: Handle Common Gateway Interface requests and responses URL: https://metacpan.org/release/%{cpan_name} ++++++ CGI-4.71.tar.gz -> CGI-4.72.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/Changes new/CGI-4.72/Changes --- old/CGI-4.71/Changes 2025-10-01 10:05:46.000000000 +0200 +++ new/CGI-4.72/Changes 2026-05-05 10:59:50.000000000 +0200 @@ -1,3 +1,8 @@ +4.72 2026-05-05 + + [ INTERNALS ] + - fix regression due to edge case bug introduced in 4.71 (GH #278, thanks to dddonovan) + 4.71 2025-09-16 [ INTERNALS ] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/MANIFEST new/CGI-4.72/MANIFEST --- old/CGI-4.71/MANIFEST 2025-10-01 10:07:11.000000000 +0200 +++ new/CGI-4.72/MANIFEST 2026-05-05 11:00:53.000000000 +0200 @@ -78,6 +78,7 @@ t/start_end_asterisk.t t/start_end_end.t t/start_end_start.t +t/tmpfilename_string_arg.t t/unescapeHTML.t t/upload.t t/uploadInfo.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/META.json new/CGI-4.72/META.json --- old/CGI-4.71/META.json 2025-10-01 10:07:11.000000000 +0200 +++ new/CGI-4.72/META.json 2026-05-05 11:00:52.000000000 +0200 @@ -78,6 +78,6 @@ "web" : "https://github.com/leejo/CGI.pm"; } }, - "version" : "4.71", + "version" : "4.72", "x_serialization_backend" : "JSON::PP version 4.16" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/META.yml new/CGI-4.72/META.yml --- old/CGI-4.71/META.yml 2025-10-01 10:07:11.000000000 +0200 +++ new/CGI-4.72/META.yml 2026-05-05 11:00:51.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.71' +version: '4.72' x_serialization_backend: 'CPAN::Meta::YAML version 0.020' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/lib/CGI/Carp.pm new/CGI-4.72/lib/CGI/Carp.pm --- old/CGI-4.71/lib/CGI/Carp.pm 2025-10-01 10:05:46.000000000 +0200 +++ new/CGI-4.72/lib/CGI/Carp.pm 2026-05-05 10:56:22.000000000 +0200 @@ -326,7 +326,7 @@ $main::SIG{__WARN__}=\&CGI::Carp::warn; -$CGI::Carp::VERSION = '4.71'; +$CGI::Carp::VERSION = '4.72'; $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.71/lib/CGI/File/Temp.pm new/CGI-4.72/lib/CGI/File/Temp.pm --- old/CGI-4.71/lib/CGI/File/Temp.pm 2025-10-01 10:05:46.000000000 +0200 +++ new/CGI-4.72/lib/CGI/File/Temp.pm 2026-05-05 10:56:27.000000000 +0200 @@ -3,7 +3,7 @@ # you use it directly and your code breaks horribly. package CGI::File::Temp; -$CGI::File::Temp::VERSION = '4.71'; +$CGI::File::Temp::VERSION = '4.72'; use parent File::Temp; use parent Fh; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/lib/CGI/Pretty.pm new/CGI-4.72/lib/CGI/Pretty.pm --- old/CGI-4.71/lib/CGI/Pretty.pm 2025-10-01 10:05:46.000000000 +0200 +++ new/CGI-4.72/lib/CGI/Pretty.pm 2026-05-05 10:56:31.000000000 +0200 @@ -5,7 +5,7 @@ use CGI (); -$CGI::Pretty::VERSION = '4.71'; +$CGI::Pretty::VERSION = '4.72'; $CGI::DefaultClass = __PACKAGE__; @CGI::Pretty::ISA = qw( CGI ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/lib/CGI/Push.pm new/CGI-4.72/lib/CGI/Push.pm --- old/CGI-4.71/lib/CGI/Push.pm 2025-10-01 10:05:46.000000000 +0200 +++ new/CGI-4.72/lib/CGI/Push.pm 2026-05-05 10:56:33.000000000 +0200 @@ -5,7 +5,7 @@ use warnings; #/; -$CGI::Push::VERSION='4.71'; +$CGI::Push::VERSION='4.72'; use CGI; use CGI::Util 'rearrange'; @ISA = ('CGI'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/lib/CGI/Util.pm new/CGI-4.72/lib/CGI/Util.pm --- old/CGI-4.71/lib/CGI/Util.pm 2025-10-01 10:05:46.000000000 +0200 +++ new/CGI-4.72/lib/CGI/Util.pm 2026-05-05 10:56:35.000000000 +0200 @@ -5,7 +5,7 @@ our @EXPORT_OK = qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); -our $VERSION = '4.71'; +our $VERSION = '4.72'; our $_EBCDIC = "\t" ne "\011"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/lib/CGI.pm new/CGI-4.72/lib/CGI.pm --- old/CGI-4.71/lib/CGI.pm 2025-10-01 10:05:46.000000000 +0200 +++ new/CGI-4.72/lib/CGI.pm 2026-05-05 10:56:19.000000000 +0200 @@ -8,7 +8,7 @@ use warnings; #/; -$CGI::VERSION='4.71'; +$CGI::VERSION='4.72'; use CGI::Util qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); @@ -3606,6 +3606,7 @@ # one of our filenames when compared as strings foreach my $param_name ($self->param) { foreach my $filehandle ($self->multi_param($param_name)) { + next unless ref($filehandle); if ($filehandle eq $filename) { return $self->{'.tmpfiles'}->{$filehandle->filename . $filehandle}->{name} || ''; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/lib/Fh.pm new/CGI-4.72/lib/Fh.pm --- old/CGI-4.71/lib/Fh.pm 2025-10-01 10:05:46.000000000 +0200 +++ new/CGI-4.72/lib/Fh.pm 2026-05-05 10:56:42.000000000 +0200 @@ -5,6 +5,6 @@ use strict; use warnings; -$Fh::VERSION = '4.71'; +$Fh::VERSION = '4.72'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.71/t/tmpfilename_string_arg.t new/CGI-4.72/t/tmpfilename_string_arg.t --- old/CGI-4.71/t/tmpfilename_string_arg.t 1970-01-01 01:00:00.000000000 +0100 +++ new/CGI-4.72/t/tmpfilename_string_arg.t 2026-05-05 10:54:19.000000000 +0200 @@ -0,0 +1,49 @@ +#!perl + +# tmpFileName($string) must not die when a non-file form param happens to +# have a value equal to $string. The legacy lookup branch iterates multi_param +# values and must skip non-Fh values before attempting ->filename on them. + +use strict; +use warnings; + +use Test::More; +use CGI qw/ :cgi /; +$CGI::LIST_CONTEXT_WARN = 0; + +my %myenv; + +BEGIN { + %myenv = ( + 'REQUEST_METHOD' => 'POST', + 'CONTENT_TYPE' => 'application/x-www-form-urlencoded', + ); + + for my $key (keys %myenv) { + $ENV{$key} = $myenv{$key}; + } +} + +END { + for my $key (keys %myenv) { + delete $ENV{$key}; + } +} + +my $q; +{ + my $body = 'title=foo.txt'; + local $ENV{CONTENT_LENGTH} = length($body); + local *STDIN; + open STDIN, '<', \$body or die $!; + $q = CGI->new; +} + +is( $q->param('title'), 'foo.txt', 'param value populated as expected' ); + +my $tmp = eval { $q->tmpFileName('foo.txt') }; +ok( !$@, 'tmpFileName($string) does not die when a non-file param matches' ) + or diag("error: $@"); +is( $tmp, '', 'tmpFileName($string) returns empty string when no Fh matches' ); + +done_testing(); ++++++ _scmsync.obsinfo ++++++ --- /var/tmp/diff_new_pack.wohIlF/_old 2026-05-14 21:42:09.640639923 +0200 +++ /var/tmp/diff_new_pack.wohIlF/_new 2026-05-14 21:42:09.644640087 +0200 @@ -1,6 +1,6 @@ -mtime: 1760039845 -commit: e5139a23f73e11b5aba95a75525bbfcca6425f280759116587659b64e1d22286 -url: https://src.opensuse.org/perl/perl-CGI.git -revision: e5139a23f73e11b5aba95a75525bbfcca6425f280759116587659b64e1d22286 +mtime: 1778053503 +commit: 42c8f957cf23fc35047a85dda31951120ce3842c50a6dacafad6be1521a0e9da +url: https://src.opensuse.org/perl/perl-CGI +revision: 42c8f957cf23fc35047a85dda31951120ce3842c50a6dacafad6be1521a0e9da projectscmsync: https://src.opensuse.org/perl/_ObsPrj ++++++ build.specials.obscpio ++++++ ++++++ build.specials.obscpio ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/.gitignore new/.gitignore --- old/.gitignore 1970-01-01 01:00:00.000000000 +0100 +++ new/.gitignore 2026-05-06 09:45:03.000000000 +0200 @@ -0,0 +1 @@ +.osc
