Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Mail-AuthenticationResults for
openSUSE:Factory checked in at 2026-11-06 19:34:34
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Mail-AuthenticationResults (Old)
and
/work/SRC/openSUSE:Factory/.perl-Mail-AuthenticationResults.new.3759290 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Mail-AuthenticationResults"
Fri Nov 6 19:34:34 2026 rev:8 rq:1395147 version:2.20261029
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Mail-AuthenticationResults/perl-Mail-AuthenticationResults.changes
2026-03-13 21:15:33.970288692 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Mail-AuthenticationResults.new.3759290/perl-Mail-AuthenticationResults.changes
2026-11-06 19:37:48.687541278 +0100
@@ -1,0 +2,13 @@
+Thu Oct 29 11:34:06 UTC 2026 - Tina Müller <[email protected]>
+
+- updated to 2.20261029
+ see /usr/share/doc/packages/perl-Mail-AuthenticationResults/Changes
+
+ 2.20261029 2026-10-29 12:20:51+11:00 Australia/Melbourne
+ - Fix excessive memory and CPU use when parsing a header
+ containing a large number of assertions. Tokens no longer
+ retain a copy of the remaining header, and string, quoted
+ string, and comment tokens are no longer parsed one character
+ at a time.
+
+-------------------------------------------------------------------
Old:
----
Mail-AuthenticationResults-2.20260216.tar.gz
New:
----
Mail-AuthenticationResults-2.20261029.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Mail-AuthenticationResults.spec ++++++
--- /var/tmp/diff_new_pack.0JJLKS/_old 2026-11-06 19:37:49.806588086 +0100
+++ /var/tmp/diff_new_pack.0JJLKS/_new 2026-11-06 19:37:49.808588170 +0100
@@ -18,7 +18,7 @@
%define cpan_name Mail-AuthenticationResults
Name: perl-Mail-AuthenticationResults
-Version: 2.20260216
+Version: 2.20261029
Release: 0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Object Oriented Authentication-Results Headers
++++++ Mail-AuthenticationResults-2.20260216.tar.gz ->
Mail-AuthenticationResults-2.20261029.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-AuthenticationResults-2.20260216/Changes
new/Mail-AuthenticationResults-2.20261029/Changes
--- old/Mail-AuthenticationResults-2.20260216/Changes 2026-02-16
04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/Changes 2026-10-29
02:20:55.000000000 +0100
@@ -1,5 +1,12 @@
Change log for Mail::AuthenticationResults
+2.20261029 2026-10-29 12:20:51+11:00 Australia/Melbourne
+ - Fix excessive memory and CPU use when parsing a header
+ containing a large number of assertions. Tokens no longer
+ retain a copy of the remaining header, and string, quoted
+ string, and comment tokens are no longer parsed one character
+ at a time.
+
2.20260216 2026-02-16 14:47:11+11:00 Australia/Melbourne
- Added some helper methods which can be used to add
commonly used children to an object.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-AuthenticationResults-2.20260216/LICENSE
new/Mail-AuthenticationResults-2.20261029/LICENSE
--- old/Mail-AuthenticationResults-2.20260216/LICENSE 2026-02-16
04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/LICENSE 2026-10-29
02:20:55.000000000 +0100
@@ -1,4 +1,4 @@
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2021 by Marc Bradshaw.
+This software is Copyright (c) 2026 by Jemma Bradshaw.
This is free software, licensed under:
@@ -271,7 +271,7 @@
--- The Perl Artistic License 1.0 ---
-This software is Copyright (c) 2021 by Marc Bradshaw.
+This software is Copyright (c) 2026 by Jemma Bradshaw.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-AuthenticationResults-2.20260216/MANIFEST
new/Mail-AuthenticationResults-2.20261029/MANIFEST
--- old/Mail-AuthenticationResults-2.20260216/MANIFEST 2026-02-16
04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/MANIFEST 2026-10-29
02:20:55.000000000 +0100
@@ -56,6 +56,7 @@
t/05-as_string-wrap.t
t/05-eol.t
t/05-parser-comment-heavy.t
+t/06-parser-dense.t
t/author-critic.t
t/author-pod-coverage.t
t/author-pod-syntax.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-AuthenticationResults-2.20260216/META.yml
new/Mail-AuthenticationResults-2.20261029/META.yml
--- old/Mail-AuthenticationResults-2.20260216/META.yml 2026-02-16
04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/META.yml 2026-10-29
02:20:55.000000000 +0100
@@ -1,7 +1,7 @@
---
abstract: 'Object Oriented Authentication-Results Headers'
author:
- - 'Marc Bradshaw <[email protected]>'
+ - 'Jemma Bradshaw <[email protected]>'
build_requires:
Test::Exception: '0'
Test::More: '0'
@@ -24,10 +24,11 @@
perl: '5.008'
strict: '0'
warnings: '0'
-version: '2.20260216'
+version: '2.20261029'
x_contributors:
- 'Jemma Bradshaw <[email protected]>'
- 'Marc Bradshaw <[email protected]>'
+ - 'Marc Bradshaw <[email protected]>'
- 'Ricardo Signes <[email protected]>'
x_generated_by_perl: v5.42.0
x_serialization_backend: 'YAML::Tiny version 1.76'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-AuthenticationResults-2.20260216/Makefile.PL
new/Mail-AuthenticationResults-2.20261029/Makefile.PL
--- old/Mail-AuthenticationResults-2.20260216/Makefile.PL 2026-02-16
04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/Makefile.PL 2026-10-29
02:20:55.000000000 +0100
@@ -8,7 +8,7 @@
my %WriteMakefileArgs = (
"ABSTRACT" => "Object Oriented Authentication-Results Headers",
- "AUTHOR" => "Marc Bradshaw <marc\@marcbradshaw.net>",
+ "AUTHOR" => "Jemma Bradshaw <jemma\@nothingbutstatic.dev>",
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => 0
},
@@ -30,7 +30,7 @@
"Test::More" => 0,
"lib" => 0
},
- "VERSION" => "2.20260216",
+ "VERSION" => "2.20261029",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-AuthenticationResults-2.20260216/README
new/Mail-AuthenticationResults-2.20261029/README
--- old/Mail-AuthenticationResults-2.20260216/README 2026-02-16
04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/README 2026-10-29
02:20:55.000000000 +0100
@@ -5,7 +5,7 @@
VERSION
- version 2.20260216
+ version 2.20261029
DESCRIPTION
@@ -41,11 +41,11 @@
AUTHOR
- Marc Bradshaw <[email protected]>
+ Jemma Bradshaw <[email protected]>
COPYRIGHT AND LICENSE
- This software is copyright (c) 2021 by Marc Bradshaw.
+ This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-AuthenticationResults-2.20260216/README.md
new/Mail-AuthenticationResults-2.20261029/README.md
--- old/Mail-AuthenticationResults-2.20260216/README.md 2026-02-16
04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/README.md 2026-10-29
02:20:55.000000000 +0100
@@ -14,11 +14,11 @@
# AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
# COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-AuthenticationResults-2.20260216/dist.ini
new/Mail-AuthenticationResults-2.20261029/dist.ini
--- old/Mail-AuthenticationResults-2.20260216/dist.ini 2026-02-16
04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/dist.ini 2026-10-29
02:20:55.000000000 +0100
@@ -1,8 +1,8 @@
name = Mail-AuthenticationResults
-author = Marc Bradshaw <[email protected]>
+author = Jemma Bradshaw <[email protected]>
license = Perl_5
-copyright_holder = Marc Bradshaw
-copyright_year = 2021
+copyright_holder = Jemma Bradshaw
+copyright_year = 2026
[@Basic]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/FoldableHeader.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/FoldableHeader.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/FoldableHeader.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/FoldableHeader.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use Mail::AuthenticationResults::Token::String;
@@ -248,7 +248,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -347,11 +347,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/AuthServID.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/AuthServID.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/AuthServID.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/AuthServID.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use base 'Mail::AuthenticationResults::Header::Base';
@@ -49,7 +49,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -66,11 +66,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Base.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Base.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Base.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Base.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Scalar::Util qw{ weaken refaddr };
use JSON;
use Carp;
@@ -475,7 +475,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -704,11 +704,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Comment.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Comment.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Comment.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Comment.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Scalar::Util qw{ weaken };
use Carp;
@@ -88,7 +88,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -99,11 +99,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Entry.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Entry.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Entry.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Entry.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Scalar::Util qw{ refaddr };
use Carp;
@@ -37,7 +37,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -49,11 +49,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Group.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Group.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Group.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Group.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Scalar::Util qw{ refaddr };
use Carp;
@@ -76,7 +76,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -87,11 +87,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/SubEntry.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/SubEntry.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/SubEntry.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/SubEntry.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use base 'Mail::AuthenticationResults::Header::Base';
@@ -35,7 +35,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -48,11 +48,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Version.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Version.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header/Version.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header/Version.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Scalar::Util qw{ weaken };
use Carp;
@@ -67,7 +67,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -77,11 +77,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Header.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Header.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use Mail::AuthenticationResults::Header::AuthServID;
@@ -246,7 +246,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -316,11 +316,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Parser.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Parser.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Parser.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Parser.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use Mail::AuthenticationResults::Header;
@@ -154,6 +154,11 @@
}
$header = $token->remainder();
+ # Do not retain a copy of the remaining header in every token,
+ # doing so uses memory quadratic in the number of tokens.
+ # remainder() will return undef for these tokens, this is
+ # documented in Mail::AuthenticationResults::Token.
+ delete $token->{ 'header' };
push @tokenised, $token;
}
@@ -371,7 +376,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -405,11 +410,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/Assignment.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/Assignment.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/Assignment.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/Assignment.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use base 'Mail::AuthenticationResults::Token';
@@ -48,7 +48,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -56,11 +56,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/Comment.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/Comment.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/Comment.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/Comment.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use base 'Mail::AuthenticationResults::Token';
@@ -27,16 +27,17 @@
croak 'Not a comment';
}
- while ( length $header > 0 ) {
- my $first = substr( $header,0,1 );
- $header = substr( $header,1 );
- $value .= $first;
- if ( $first eq '(' ) {
+ my $end;
+ while ( $header =~ /([()])/g ) {
+ if ( $1 eq '(' ) {
$depth++;
}
- elsif ( $first eq ')' ) {
+ else {
$depth--;
- last if $depth == 0;
+ if ( $depth == 0 ) {
+ $end = pos( $header );
+ last;
+ }
}
}
@@ -44,8 +45,8 @@
croak 'Mismatched parens in comment';
}
- $value =~ s/^\(//;
- $value =~ s/\)$//;
+ $value = substr( $header, 1, $end - 2 );
+ $header = substr( $header, $end );
$self->{ 'value' } = $value;
$self->{ 'header' } = $header;
@@ -67,7 +68,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -75,11 +76,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/QuotedString.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/QuotedString.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/QuotedString.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/QuotedString.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use base 'Mail::AuthenticationResults::Token';
@@ -22,21 +22,13 @@
my $value = q{};
my $first = substr( $header,0,1 );
- $header = substr( $header,1 );
croak 'not a quoted string' if $first ne '"';
- my $closed = 0;
- while ( length $header > 0 ) {
- my $first = substr( $header,0,1 );
- $header = substr( $header,1 );
- if ( $first eq '"' ) {
- $closed = 1;
- last;
- }
- $value .= $first;
- }
+ my $end = index( $header, '"', 1 );
+ croak 'Quoted string not closed' if $end == -1;
- croak 'Quoted string not closed' if ! $closed;
+ $value = substr( $header, 1, $end - 1 );
+ $header = substr( $header, $end + 1 );
$self->{ 'value' } = $value;
$self->{ 'header' } = $header;
@@ -58,7 +50,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -66,11 +58,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/Separator.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/Separator.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/Separator.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/Separator.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use base 'Mail::AuthenticationResults::Token';
@@ -46,7 +46,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -54,11 +54,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/Space.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/Space.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/Space.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/Space.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use base 'Mail::AuthenticationResults::Token';
@@ -45,7 +45,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -53,11 +53,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/String.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/String.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token/String.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token/String.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use base 'Mail::AuthenticationResults::Token';
@@ -38,22 +38,17 @@
$is_first = 1;
}
- while ( length $header > 0 ) {
- my $first = substr( $header,0,1 );
- last if $first =~ /\s/;
- last if $first eq ';';
- last if $first eq '"' && ! $is_value && ! $is_first;
- last if $first eq '(' && ! $is_value && ! $is_first;
- last if $first eq '=' && ! $is_value && ! $is_first;
- last if $first eq '/' && ! $is_value && ! $is_first;
- last if $first eq '.' && ! $is_value && ! $is_first;
-
- $value .= $first;
- $header = substr( $header,1 );
+ if ( $is_value || $is_first ) {
+ $value = $1 if $header =~ /^([^\s;]+)/;
+ }
+ else {
+ $value = $1 if $header =~ /^([^\s;"(=\/.]+)/;
}
croak 'Not a string' if $value eq q{};
+ $header = substr( $header, length $value );
+
$self->{ 'value' } = $value;
$self->{ 'header' } = $header;
@@ -74,7 +69,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -82,11 +77,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token.pm
---
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults/Token.pm
2026-02-16 04:47:15.000000000 +0100
+++
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults/Token.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
@@ -69,7 +69,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -101,6 +101,11 @@
Return the remainder of the header string after parsing the current token out.
+Tokens created by L<Mail::AuthenticationResults::Parser> do not retain the
+remainder once it has been consumed, and will return undef. Retaining a copy
+of the remaining header in every token uses memory quadratic in the number
+of tokens.
+
=head2 parse()
Run the parser on the current $header and set up value() and remainder().
@@ -111,11 +116,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults.pm
new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults.pm
--- old/Mail-AuthenticationResults-2.20260216/lib/Mail/AuthenticationResults.pm
2026-02-16 04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/lib/Mail/AuthenticationResults.pm
2026-10-29 02:20:55.000000000 +0100
@@ -4,7 +4,7 @@
require 5.008;
use strict;
use warnings;
-our $VERSION = '2.20260216'; # VERSION
+our $VERSION = '2.20261029'; # VERSION
use Carp;
use Mail::AuthenticationResults::Parser;
@@ -37,7 +37,7 @@
=head1 VERSION
-version 2.20260216
+version 2.20261029
=head1 DESCRIPTION
@@ -70,11 +70,11 @@
=head1 AUTHOR
-Marc Bradshaw <[email protected]>
+Jemma Bradshaw <[email protected]>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2021 by Marc Bradshaw.
+This software is copyright (c) 2026 by Jemma Bradshaw.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/t/06-parser-dense.t
new/Mail-AuthenticationResults-2.20261029/t/06-parser-dense.t
--- old/Mail-AuthenticationResults-2.20260216/t/06-parser-dense.t
1970-01-01 01:00:00.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/t/06-parser-dense.t
2026-10-29 02:20:55.000000000 +0100
@@ -0,0 +1,50 @@
+#!perl
+use 5.008;
+use strict;
+use warnings FATAL => 'all';
+use lib 't';
+use Test::More;
+
+use lib 'lib';
+use Mail::AuthenticationResults::Parser;
+
+# A single header containing a large number of assertions should not
+# retain a copy of the remaining header in every token, doing so uses
+# memory quadratic in the number of assertions.
+
+my $count = 2000;
+my @parts;
+for my $i ( 0 .. $count - 1 ) {
+ if ( $i % 3 ) {
+ push @parts, 'dkim' . ( $i % 3 ) . "=pass (2048-bit key)
header.d=d$i.test header.s=s$i";
+ }
+ else {
+ push @parts, "spf=pass smtp.mailfrom=u$i.test";
+ }
+}
+my $header = 'Authentication-Results: ' . join( ";\r\n ", 'mx.local.test',
@parts );
+
+my $parser = Mail::AuthenticationResults::Parser->new();
+my $parsed = $parser->parse( $header );
+
+is( scalar @{ $parsed->children() }, $count, 'All assertions parsed' );
+is( $parsed->value()->value(), 'mx.local.test', 'AuthServ-ID parsed' );
+
+my $last = $parsed->children()->[-1];
+is( $last->key(), 'dkim1', 'Last entry key correct' );
+is( $last->value(), 'pass', 'Last entry value correct' );
+is( $last->search({ 'key' => 'header.s' })->children()->[0]->value(), 's' . (
$count - 1 ), 'Last entry sub entry correct' );
+
+my $tokeniser = Mail::AuthenticationResults::Parser->new();
+$tokeniser->tokenise( $header );
+my $tokens = $tokeniser->{ 'tokenised' };
+cmp_ok( scalar @$tokens, '>', $count * 8, 'Tokens generated' );
+
+my $retained = 0;
+foreach my $token ( @$tokens ) {
+ $retained += length $token->{ 'header' } if defined $token->{ 'header' };
+}
+is( $retained, 0, 'Tokens do not retain the remaining header' );
+is( $tokens->[0]->remainder(), undef, 'Parser created tokens return undef for
remainder' );
+
+done_testing();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-AuthenticationResults-2.20260216/t/perlcritic.rc
new/Mail-AuthenticationResults-2.20261029/t/perlcritic.rc
--- old/Mail-AuthenticationResults-2.20260216/t/perlcritic.rc 2026-02-16
04:47:15.000000000 +0100
+++ new/Mail-AuthenticationResults-2.20261029/t/perlcritic.rc 2026-10-29
02:20:55.000000000 +0100
@@ -0,0 +1,6 @@
+; Perl::Critic profile used by the author-critic.t test generated by
+; [Test::Perl::Critic] in dist.ini
+severity = gentle
+; gentle stern harsh cruel brutal
+
+verbose = [%p] %m at line %l, column %c. %e. (Severity: %s)\n
++++++ _scmsync.obsinfo ++++++
--- /var/tmp/diff_new_pack.0JJLKS/_old 2026-11-06 19:37:49.951594152 +0100
+++ /var/tmp/diff_new_pack.0JJLKS/_new 2026-11-06 19:37:49.955594319 +0100
@@ -1,6 +1,6 @@
-mtime: 1771222607
-commit: 2b710b792a2326f0fff4272eaaa00869fe72a5ae0d6355f29730620ce1b7a76a
-url: https://src.opensuse.org/perl/perl-Mail-AuthenticationResults.git
-revision: 2b710b792a2326f0fff4272eaaa00869fe72a5ae0d6355f29730620ce1b7a76a
+mtime: 1793273646
+commit: 32c80f3a681694aa70bb692f49551473abdd5f480e0eb3039aafe68ebc51ce78
+url: https://src.opensuse.org/perl/perl-Mail-AuthenticationResults
+revision: 32c80f3a681694aa70bb692f49551473abdd5f480e0eb3039aafe68ebc51ce78
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-10-29 12:34:06.000000000 +0100
@@ -0,0 +1 @@
+.osc
