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 2023-03-11 18:23:30
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-CGI (Old)
and /work/SRC/openSUSE:Factory/.perl-CGI.new.31432 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-CGI"
Sat Mar 11 18:23:30 2023 rev:26 rq:1070674 version:4.56
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-CGI/perl-CGI.changes 2023-01-28
20:01:36.651873830 +0100
+++ /work/SRC/openSUSE:Factory/.perl-CGI.new.31432/perl-CGI.changes
2023-03-11 18:24:23.158988789 +0100
@@ -1,0 +2,11 @@
+Sat Mar 4 03:06:05 UTC 2023 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 4.56
+ see /usr/share/doc/packages/perl-CGI/Changes
+
+ 4.56 2023-03-01
+
+ [ TESTING ]
+ - add new cookie field 'Priority' to CGI::Cookie code (GH #253, thanks
to Pavel)
+
+-------------------------------------------------------------------
Old:
----
CGI-4.55.tar.gz
New:
----
CGI-4.56.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-CGI.spec ++++++
--- /var/tmp/diff_new_pack.RF4NKJ/_old 2023-03-11 18:24:23.578990977 +0100
+++ /var/tmp/diff_new_pack.RF4NKJ/_new 2023-03-11 18:24:23.586991019 +0100
@@ -18,7 +18,7 @@
%define cpan_name CGI
Name: perl-CGI
-Version: 4.55
+Version: 4.56
Release: 0
License: Artistic-2.0
Summary: Handle Common Gateway Interface requests and responses
@@ -55,6 +55,7 @@
%prep
%autosetup -n %{cpan_name}-%{version}
+
find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path
"*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
%build
++++++ CGI-4.55.tar.gz -> CGI-4.56.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/Changes new/CGI-4.56/Changes
--- old/CGI-4.55/Changes 2023-01-03 08:42:05.000000000 +0100
+++ new/CGI-4.56/Changes 2023-03-03 09:41:25.000000000 +0100
@@ -1,3 +1,8 @@
+4.56 2023-03-01
+
+ [ TESTING ]
+ - add new cookie field 'Priority' to CGI::Cookie code (GH #253, thanks to
Pavel)
+
4.55 2023-01-03
[ TESTING ]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/META.json new/CGI-4.56/META.json
--- old/CGI-4.55/META.json 2023-01-03 08:44:23.000000000 +0100
+++ new/CGI-4.56/META.json 2023-03-03 09:45:43.000000000 +0100
@@ -77,6 +77,6 @@
"web" : "https://github.com/leejo/CGI.pm";
}
},
- "version" : "4.55",
+ "version" : "4.56",
"x_serialization_backend" : "JSON::PP version 4.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/META.yml new/CGI-4.56/META.yml
--- old/CGI-4.55/META.yml 2023-01-03 08:44:23.000000000 +0100
+++ new/CGI-4.56/META.yml 2023-03-03 09:45:43.000000000 +0100
@@ -46,5 +46,5 @@
homepage: https://metacpan.org/module/CGI
license: http://dev.perl.org/licenses/
repository: https://github.com/leejo/CGI.pm
-version: '4.55'
+version: '4.56'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/lib/CGI/Carp.pm new/CGI-4.56/lib/CGI/Carp.pm
--- old/CGI-4.55/lib/CGI/Carp.pm 2023-01-03 08:42:37.000000000 +0100
+++ new/CGI-4.56/lib/CGI/Carp.pm 2023-03-03 09:40:08.000000000 +0100
@@ -326,7 +326,7 @@
$main::SIG{__WARN__}=\&CGI::Carp::warn;
-$CGI::Carp::VERSION = '4.55';
+$CGI::Carp::VERSION = '4.56';
$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.55/lib/CGI/Cookie.pm
new/CGI-4.56/lib/CGI/Cookie.pm
--- old/CGI-4.55/lib/CGI/Cookie.pm 2023-01-03 08:42:38.000000000 +0100
+++ new/CGI-4.56/lib/CGI/Cookie.pm 2023-03-03 09:40:12.000000000 +0100
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION='4.55';
+our $VERSION='4.56';
use CGI::Util qw(rearrange unescape escape);
use overload '""' => \&as_string, 'cmp' => \&compare, 'fallback' => 1;
@@ -104,13 +104,14 @@
# Ignore mod_perl request object--compatibility with Apache::Cookie.
shift if ref $params[0]
&& eval { $params[0]->isa('Apache::Request::Req') ||
$params[0]->isa('Apache') };
- my ( $name, $value, $path, $domain, $secure, $expires, $max_age, $httponly,
$samesite )
+ my ( $name, $value, $path, $domain, $secure, $expires, $max_age, $httponly,
$samesite, $priority )
= rearrange(
[
'NAME', [ 'VALUE', 'VALUES' ],
'PATH', 'DOMAIN',
'SECURE', 'EXPIRES',
- 'MAX-AGE','HTTPONLY','SAMESITE'
+ 'MAX-AGE','HTTPONLY','SAMESITE',
+ 'PRIORITY',
],
@params
);
@@ -127,6 +128,7 @@
$self->max_age( $max_age ) if defined $max_age;
$self->httponly( $httponly ) if defined $httponly;
$self->samesite( $samesite ) if defined $samesite;
+ $self->priority( $priority ) if defined $priority;
return $self;
}
@@ -147,6 +149,7 @@
push @cookie,"secure" if $self->secure;
push @cookie,"HttpOnly" if $self->httponly;
push @cookie,"SameSite=".$self->samesite if $self->samesite;
+ push @cookie,"Priority=".$self->priority if $self->priority;
return join "; ", @cookie;
}
@@ -236,6 +239,16 @@
return $self->{'samesite'};
}
+my %_legal_priority = ( Low => 1, Medium => 1, High => 1 );
+sub priority {
+ my $self = shift;
+ my $priority = ucfirst lc +shift if @_;
+ if ($priority && $_legal_priority{$priority}) {
+ $self->{'priority'} = $priority;
+ }
+ return $self->{'priority'};
+}
+
1;
=head1 NAME
@@ -343,6 +356,12 @@
L<https://tools.ietf.org/html/draft-west-first-party-cookies-07>
+=item B<7. priority flag>
+
+Allowed settings are C<Low>, C<Medium> and C<High>.
+
+Support is limited to recent releases of Chrome.
+
=back
=head2 Creating New Cookies
@@ -354,7 +373,8 @@
-domain => '.capricorn.com',
-path => '/cgi-bin/database',
-secure => 1,
- -samesite=> "Lax"
+ -samesite=> "Lax",
+ -priority=> "High",
);
Create cookies from scratch with the B<new> method. The B<-name> and
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/lib/CGI/File/Temp.pm
new/CGI-4.56/lib/CGI/File/Temp.pm
--- old/CGI-4.55/lib/CGI/File/Temp.pm 2023-01-03 08:42:40.000000000 +0100
+++ new/CGI-4.56/lib/CGI/File/Temp.pm 2023-03-03 09:40:16.000000000 +0100
@@ -3,7 +3,7 @@
# you use it directly and your code breaks horribly.
package CGI::File::Temp;
-$CGI::File::Temp::VERSION = '4.55';
+$CGI::File::Temp::VERSION = '4.56';
use parent File::Temp;
use parent Fh;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/lib/CGI/Pretty.pm
new/CGI-4.56/lib/CGI/Pretty.pm
--- old/CGI-4.55/lib/CGI/Pretty.pm 2023-01-03 08:42:41.000000000 +0100
+++ new/CGI-4.56/lib/CGI/Pretty.pm 2023-03-03 09:40:19.000000000 +0100
@@ -5,7 +5,7 @@
use CGI ();
-$CGI::Pretty::VERSION = '4.55';
+$CGI::Pretty::VERSION = '4.56';
$CGI::DefaultClass = __PACKAGE__;
@CGI::Pretty::ISA = qw( CGI );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/lib/CGI/Push.pm new/CGI-4.56/lib/CGI/Push.pm
--- old/CGI-4.55/lib/CGI/Push.pm 2023-01-03 08:42:42.000000000 +0100
+++ new/CGI-4.56/lib/CGI/Push.pm 2023-03-03 09:40:22.000000000 +0100
@@ -5,7 +5,7 @@
use warnings;
#/;
-$CGI::Push::VERSION='4.55';
+$CGI::Push::VERSION='4.56';
use CGI;
use CGI::Util 'rearrange';
@ISA = ('CGI');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/lib/CGI/Util.pm new/CGI-4.56/lib/CGI/Util.pm
--- old/CGI-4.55/lib/CGI/Util.pm 2023-01-03 08:42:44.000000000 +0100
+++ new/CGI-4.56/lib/CGI/Util.pm 2023-03-03 09:40:25.000000000 +0100
@@ -5,7 +5,7 @@
our @EXPORT_OK = qw(rearrange rearrange_header make_attributes unescape escape
expires ebcdic2ascii ascii2ebcdic);
-our $VERSION = '4.55';
+our $VERSION = '4.56';
our $_EBCDIC = "\t" ne "\011";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/lib/CGI.pm new/CGI-4.56/lib/CGI.pm
--- old/CGI-4.55/lib/CGI.pm 2023-01-03 08:42:35.000000000 +0100
+++ new/CGI-4.56/lib/CGI.pm 2023-03-03 09:39:58.000000000 +0100
@@ -7,7 +7,7 @@
use warnings;
#/;
-$CGI::VERSION='4.55';
+$CGI::VERSION='4.56';
use CGI::Util qw(rearrange rearrange_header make_attributes unescape escape
expires ebcdic2ascii ascii2ebcdic);
@@ -2765,8 +2765,8 @@
####
sub cookie {
my($self,@p) = self_or_default(@_);
-
my($name,$value,$path,$domain,$secure,$expires,$httponly,$max_age,$samesite) =
-
rearrange([NAME,[VALUE,VALUES],PATH,DOMAIN,SECURE,EXPIRES,HTTPONLY,'MAX-AGE',SAMESITE],@p);
+
my($name,$value,$path,$domain,$secure,$expires,$httponly,$max_age,$samesite,$priority)
=
+
rearrange([NAME,[VALUE,VALUES],PATH,DOMAIN,SECURE,EXPIRES,HTTPONLY,'MAX-AGE',SAMESITE,PRIORITY],@p);
require CGI::Cookie;
@@ -2796,6 +2796,7 @@
push(@param,'-httponly'=>$httponly) if $httponly;
push(@param,'-max-age'=>$max_age) if $max_age;
push(@param,'-samesite'=>$samesite) if $samesite;
+ push(@param,'-priority'=>$priority) if $priority;
return CGI::Cookie->new(@param);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/lib/Fh.pm new/CGI-4.56/lib/Fh.pm
--- old/CGI-4.55/lib/Fh.pm 2023-01-03 08:42:46.000000000 +0100
+++ new/CGI-4.56/lib/Fh.pm 2023-03-03 09:40:31.000000000 +0100
@@ -5,6 +5,6 @@
use strict;
use warnings;
-$Fh::VERSION = '4.55';
+$Fh::VERSION = '4.56';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/CGI-4.55/t/cookie.t new/CGI-4.56/t/cookie.t
--- old/CGI-4.55/t/cookie.t 2022-01-18 13:18:04.000000000 +0100
+++ new/CGI-4.56/t/cookie.t 2023-03-03 09:38:40.000000000 +0100
@@ -157,7 +157,8 @@
-path => '/cgi-bin/database',
-secure => 1,
-httponly=> 1,
- -samesite=> 'Lax'
+ -samesite=> 'Lax',
+ -priority=> 'High',
);
is(ref($c), 'CGI::Cookie', 'new returns objects of correct type');
is($c->name , 'foo', 'name is correct');
@@ -168,6 +169,7 @@
ok($c->secure , 'secure attribute is set');
ok( $c->httponly, 'httponly attribute is set' );
is( $c->samesite, 'Lax', 'samesite attribute is correct' );
+ is( $c->priority, 'High', 'priority attribute is correct' );
# now try it with the only two manditory values (should also set the default
path)
$c = CGI::Cookie->new(-name => 'baz',
@@ -216,7 +218,8 @@
-path => '/',
-secure => 1,
-httponly=> 1,
- -samesite=> 'strict'
+ -samesite=> 'strict',
+ -priority=> 'high',
);
my $name = $c->name;
@@ -245,6 +248,9 @@
like( $c->as_string, '/SameSite=Strict/',
"Stringified cookie contains normalized SameSite" );
+ like( $c->as_string, '/Priority=High/',
+ "Stringified cookie contains normalized Priority" );
+
$c = CGI::Cookie->new(-name => 'Hamster-Jam',
-value => 'Tulip',
);
@@ -271,6 +277,9 @@
ok( $c->as_string !~ /SameSite/,
"Stringified cookie does not contain SameSite" );
+
+ ok( $c->as_string !~ /Priority/,
+ "Stringified cookie does not contain Priority" );
}
#-----------------------------------------------------------------------------
@@ -332,7 +341,8 @@
-domain => '.pie-shop.com',
-path => '/',
-secure => 1,
- -samesite=> "strict"
+ -samesite=> "strict",
+ -priority=> "low"
);
is($c->name, 'Jam', 'name is correct');
@@ -373,6 +383,13 @@
is($c->samesite('Bad'), 'None', 'SameSite unknown values ignored');
is($c->samesite, 'None', 'SameSite returns previous value');
+
+ is($c->priority, 'Low', 'Priority is correct');
+ is($c->priority('Medium'), 'Medium', 'Priority is set correctly');
+ is($c->priority, 'Medium', 'Priority now returns updated
value');
+
+ is($c->priority('Bad'), 'Medium', 'Priority unknown values ignored');
+ is($c->priority, 'Medium', 'Priority returns previous value');
}
#----------------------------------------------------------------------------
