Hello community, here is the log from the commit of package perl-CGI for openSUSE:Factory checked in at 2020-06-05 20:03:47 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-CGI (Old) and /work/SRC/openSUSE:Factory/.perl-CGI.new.3606 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-CGI" Fri Jun 5 20:03:47 2020 rev:18 rq:811085 version:4.48 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-CGI/perl-CGI.changes 2020-05-04 18:33:05.784144471 +0200 +++ /work/SRC/openSUSE:Factory/.perl-CGI.new.3606/perl-CGI.changes 2020-06-05 20:04:20.960754444 +0200 @@ -1,0 +2,13 @@ +Tue Jun 2 15:31:48 UTC 2020 - Tina Müller <[email protected]> + +- updated to 4.48 + see /usr/share/doc/packages/perl-CGI/Changes + + 4.48 2020-06-02 + + [ FIX ] + - fix CGI::Cookie->bake() doesn't work with mod_perl redirects (GH #240) + - thanks to sherrardb for the PR (GH #241) + + +------------------------------------------------------------------- Old: ---- CGI-4.47.tar.gz New: ---- CGI-4.48.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-CGI.spec ++++++ --- /var/tmp/diff_new_pack.tfhGpS/_old 2020-06-05 20:04:23.780763693 +0200 +++ /var/tmp/diff_new_pack.tfhGpS/_new 2020-06-05 20:04:23.784763707 +0200 @@ -17,7 +17,7 @@ Name: perl-CGI -Version: 4.47 +Version: 4.48 Release: 0 %define cpan_name CGI Summary: Handle Common Gateway Interface requests and responses ++++++ CGI-4.47.tar.gz -> CGI-4.48.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/Changes new/CGI-4.48/Changes --- old/CGI-4.47/Changes 2020-05-01 14:54:08.000000000 +0200 +++ new/CGI-4.48/Changes 2020-06-02 10:20:00.000000000 +0200 @@ -1,3 +1,9 @@ +4.48 2020-06-02 + + [ FIX ] + - fix CGI::Cookie->bake() doesn't work with mod_perl redirects (GH #240) + - thanks to sherrardb for the PR (GH #241) + 4.47 2020-05-01 [ FIX / TESTING ] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/META.json new/CGI-4.48/META.json --- old/CGI-4.47/META.json 2020-05-01 14:59:52.000000000 +0200 +++ new/CGI-4.48/META.json 2020-06-02 10:21:17.000000000 +0200 @@ -78,6 +78,6 @@ "web" : "https://github.com/leejo/CGI.pm"; } }, - "version" : "4.47", + "version" : "4.48", "x_serialization_backend" : "JSON::PP version 4.02" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/META.yml new/CGI-4.48/META.yml --- old/CGI-4.47/META.yml 2020-05-01 14:59:51.000000000 +0200 +++ new/CGI-4.48/META.yml 2020-06-02 10:21:17.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.47' +version: '4.48' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/lib/CGI/Carp.pm new/CGI-4.48/lib/CGI/Carp.pm --- old/CGI-4.47/lib/CGI/Carp.pm 2020-05-01 14:53:12.000000000 +0200 +++ new/CGI-4.48/lib/CGI/Carp.pm 2020-06-02 10:18:44.000000000 +0200 @@ -327,7 +327,7 @@ $main::SIG{__WARN__}=\&CGI::Carp::warn; -$CGI::Carp::VERSION = '4.47'; +$CGI::Carp::VERSION = '4.48'; $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.47/lib/CGI/Cookie.pm new/CGI-4.48/lib/CGI/Cookie.pm --- old/CGI-4.47/lib/CGI/Cookie.pm 2020-05-01 14:53:17.000000000 +0200 +++ new/CGI-4.48/lib/CGI/Cookie.pm 2020-06-02 10:18:47.000000000 +0200 @@ -5,7 +5,7 @@ use if $] >= 5.019, 'deprecate'; -our $VERSION='4.47'; +our $VERSION='4.48'; use CGI::Util qw(rearrange unescape escape); use overload '""' => \&as_string, 'cmp' => \&compare, 'fallback' => 1; @@ -167,7 +167,7 @@ : Apache->request } if $MOD_PERL; if ($r) { - $r->headers_out->add('Set-Cookie' => $self->as_string); + $r->err_headers_out->add('Set-Cookie' => $self->as_string); } else { require CGI; print CGI::header(-cookie => $self); @@ -440,7 +440,7 @@ Mod_perl users can set cookies using the request object's header_out() method: - $r->headers_out->set('Set-Cookie' => $c); + $r->err_headers_out->add('Set-Cookie' => $c); Internally, Cookie overloads the "" operator to call its as_string() method when incorporated into the HTTP header. as_string() turns the diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/lib/CGI/File/Temp.pm new/CGI-4.48/lib/CGI/File/Temp.pm --- old/CGI-4.47/lib/CGI/File/Temp.pm 2020-05-01 14:53:10.000000000 +0200 +++ new/CGI-4.48/lib/CGI/File/Temp.pm 2020-06-02 10:18:43.000000000 +0200 @@ -3,7 +3,7 @@ # you use it directly and your code breaks horribly. package CGI::File::Temp; -$CGI::File::Temp::VERSION = '4.47'; +$CGI::File::Temp::VERSION = '4.48'; use parent File::Temp; use parent Fh; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/lib/CGI/Pretty.pm new/CGI-4.48/lib/CGI/Pretty.pm --- old/CGI-4.47/lib/CGI/Pretty.pm 2020-05-01 14:53:19.000000000 +0200 +++ new/CGI-4.48/lib/CGI/Pretty.pm 2020-06-02 10:18:50.000000000 +0200 @@ -6,7 +6,7 @@ use if $] >= 5.019, 'deprecate'; use CGI (); -$CGI::Pretty::VERSION = '4.47'; +$CGI::Pretty::VERSION = '4.48'; $CGI::DefaultClass = __PACKAGE__; @CGI::Pretty::ISA = qw( CGI ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/lib/CGI/Push.pm new/CGI-4.48/lib/CGI/Push.pm --- old/CGI-4.47/lib/CGI/Push.pm 2020-05-01 14:53:21.000000000 +0200 +++ new/CGI-4.48/lib/CGI/Push.pm 2020-06-02 10:18:51.000000000 +0200 @@ -6,7 +6,7 @@ use warnings; #/; -$CGI::Push::VERSION='4.47'; +$CGI::Push::VERSION='4.48'; use CGI; use CGI::Util 'rearrange'; @ISA = ('CGI'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/lib/CGI/Util.pm new/CGI-4.48/lib/CGI/Util.pm --- old/CGI-4.47/lib/CGI/Util.pm 2020-05-01 14:53:15.000000000 +0200 +++ new/CGI-4.48/lib/CGI/Util.pm 2020-06-02 10:18:46.000000000 +0200 @@ -6,7 +6,7 @@ our @EXPORT_OK = qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); -our $VERSION = '4.47'; +our $VERSION = '4.48'; our $_EBCDIC = "\t" ne "\011"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/lib/CGI.pm new/CGI-4.48/lib/CGI.pm --- old/CGI-4.47/lib/CGI.pm 2020-05-01 14:53:34.000000000 +0200 +++ new/CGI-4.48/lib/CGI.pm 2020-06-02 10:19:00.000000000 +0200 @@ -8,7 +8,7 @@ use warnings; #/; -$CGI::VERSION='4.47'; +$CGI::VERSION='4.48'; use CGI::Util qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/lib/Fh.pm new/CGI-4.48/lib/Fh.pm --- old/CGI-4.47/lib/Fh.pm 2020-05-01 14:53:07.000000000 +0200 +++ new/CGI-4.48/lib/Fh.pm 2020-06-02 10:18:41.000000000 +0200 @@ -5,6 +5,6 @@ use strict; use warnings; -$Fh::VERSION = '4.47'; +$Fh::VERSION = '4.48'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.47/t/cookie.t new/CGI-4.48/t/cookie.t --- old/CGI-4.47/t/cookie.t 2020-01-13 07:58:38.000000000 +0100 +++ new/CGI-4.48/t/cookie.t 2020-06-02 10:16:49.000000000 +0200 @@ -427,7 +427,7 @@ isa_ok $c, 'CGI::Cookie'; ok $c->bake($r), 'Bake the cookie'; ok eq_array( $r->{check}, [ 'Set-Cookie', $c->as_string ]), - 'bake() should call headers_out->set()'; + 'bake() should call err_headers_out->add()'; $r = Apache2::Faker->new; isa_ok $r, 'Apache2::RequestReq'; @@ -439,7 +439,7 @@ isa_ok $c, 'CGI::Cookie'; ok $c->bake($r), 'Bake the cookie'; ok eq_array( $r->{check}, [ 'Set-Cookie', $c->as_string ]), - 'bake() should call headers_out->set()'; + 'bake() should call err_headers_out->add()'; } @@ -449,7 +449,7 @@ my ($self, $pkg) = @_; return $pkg eq 'Apache'; } -sub headers_out { shift } +sub err_headers_out { shift } sub add { shift->{check} = \@_; } package Apache2::Faker; @@ -458,5 +458,5 @@ my ($self, $pkg) = @_; return $pkg eq 'Apache2::RequestReq'; } -sub headers_out { shift } +sub err_headers_out { shift } sub add { shift->{check} = \@_; }
