Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-ExtUtils-Typemaps-Default for
openSUSE:Factory checked in at 2026-11-03 17:59:56
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-ExtUtils-Typemaps-Default (Old)
and /work/SRC/openSUSE:Factory/.perl-ExtUtils-Typemaps-Default.new.1257
(New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-ExtUtils-Typemaps-Default"
Tue Nov 3 17:59:56 2026 rev:3 rq:1394682 version:1.70.0
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-ExtUtils-Typemaps-Default/perl-ExtUtils-Typemaps-Default.changes
2014-06-16 21:30:17.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-ExtUtils-Typemaps-Default.new.1257/perl-ExtUtils-Typemaps-Default.changes
2026-11-03 18:05:21.360001609 +0100
@@ -1,0 +2,29 @@
+Sat Oct 10 11:14:44 UTC 2026 - Tina Müller <[email protected]>
+
+- updated to 1.70.0 (1.07)
+ see /usr/share/doc/packages/perl-ExtUtils-Typemaps-Default/Changes
+
+ 1.07 Fri Oct 9 CET 2026
+ - Address CVE-2026-107794:
+ Fix integer underflow in ExtUtils::Typemaps::STL::List on empty lists.
+ Calling av_extend(av, len-1) when len == 0 underflowed the unsigned
+ integer and attempted to allocate a 32GiB array.
+ - Fix missing index increment in std::list<char*> OUTPUT typemaps.
+
+ 1.06 Thu Oct 8 CET 2026
+ - Address CVE-2026-107373:
+ Using "std::string( SvPV_nolen( $arg ), SvCUR( $arg ) );"
+ adds a potential security issue since in C++ the evaluation of argument
+ order depends on the compiler. If the SV is not stringified (for
+ example, if it's an IV, NV or a reference) then this can abort or
segfault.
+ The fix applied is to split into multiple statements:
+ STRLEN len;
+ const char *pv = SvPV($arg, len);
+ $var = std::string(pv, len);
+
+ If you depend on this module, please update your minimum version
+ requirement to 1.06.
+ - Do not depend on dev release version of ExtUtils::Typemaps anymore.
+ - Updated author contact info.
+
+-------------------------------------------------------------------
Old:
----
ExtUtils-Typemaps-Default-1.05.tar.gz
New:
----
ExtUtils-Typemaps-Default-1.07.tar.gz
README.md
_scmsync.obsinfo
build.specials.obscpio
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-ExtUtils-Typemaps-Default.spec ++++++
--- /var/tmp/diff_new_pack.b9HqPO/_old 2026-11-03 18:05:23.503091681 +0100
+++ /var/tmp/diff_new_pack.b9HqPO/_new 2026-11-03 18:05:23.507091849 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-ExtUtils-Typemaps-Default
#
-# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# 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
@@ -12,26 +12,41 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
+%define cpan_name ExtUtils-Typemaps-Default
Name: perl-ExtUtils-Typemaps-Default
-Version: 1.05
+Version: 1.70.0
Release: 0
-%define cpan_name ExtUtils-Typemaps-Default
-Summary: A set of useful typemaps
-License: Artistic-1.0 or GPL-1.0+
-Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/ExtUtils-Typemaps-Default/
-Source:
http://www.cpan.org/authors/id/S/SM/SMUELLER/%{cpan_name}-%{version}.tar.gz
+# 1.07 -> normalize -> 1.70.0
+%define cpan_version 1.07
+License: Artistic-1.0 OR GPL-1.0-or-later
+Summary: Set of useful typemaps
+URL: https://metacpan.org/release/%{cpan_name}
+Source0:
https://cpan.metacpan.org/authors/id/S/SM/SMUELLER/%{cpan_name}-%{cpan_version}.tar.gz
+Source100: README.md
BuildArch: noarch
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(ExtUtils::Typemaps) >= 3.18_03
-BuildRequires: perl(Module::Build)
-Requires: perl(ExtUtils::Typemaps) >= 3.18_03
+BuildRequires: perl(ExtUtils::Typemaps) >= 3.21
+BuildRequires: perl(Module::Build) >= 0.420
+Requires: perl(ExtUtils::Typemaps) >= 3.21
+Provides: perl(ExtUtils::Typemap::Basic) = %{version}
+Provides: perl(ExtUtils::Typemap::Default) = %{version}
+Provides: perl(ExtUtils::Typemap::ObjectMap) = %{version}
+Provides: perl(ExtUtils::Typemap::STL) = %{version}
+Provides: perl(ExtUtils::Typemap::STL::String) = %{version}
+Provides: perl(ExtUtils::Typemap::STL::Vector) = %{version}
+Provides: perl(ExtUtils::Typemaps::Basic) = %{version}
+Provides: perl(ExtUtils::Typemaps::Default) = %{version}
+Provides: perl(ExtUtils::Typemaps::ObjectMap) = %{version}
+Provides: perl(ExtUtils::Typemaps::STL) = %{version}
+Provides: perl(ExtUtils::Typemaps::STL::List) = %{version}
+Provides: perl(ExtUtils::Typemaps::STL::String) = %{version}
+Provides: perl(ExtUtils::Typemaps::STL::Vector) = %{version}
+%undefine __perllib_provides
%{perl_requires}
%description
@@ -41,24 +56,23 @@
of the mappings provided by the following typemap classes which are
provided in this distribution:
-the ExtUtils::Typemaps::ObjectMap manpage, the ExtUtils::Typemaps::STL
-manpage, the ExtUtils::Typemaps::Basic manpage
+ExtUtils::Typemaps::ObjectMap, ExtUtils::Typemaps::STL,
+ExtUtils::Typemaps::Basic
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{cpan_version} -p1
%build
-%{__perl} Build.PL installdirs=vendor
-./Build build flags=%{?_smp_mflags}
+perl Build.PL --installdirs=vendor
+./Build build --flags=%{?_smp_mflags}
%check
./Build test
%install
-./Build install destdir=%{buildroot} create_packlist=0
+./Build install --destdir=%{buildroot} --create_packlist=0
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes
++++++ ExtUtils-Typemaps-Default-1.05.tar.gz ->
ExtUtils-Typemaps-Default-1.07.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/ExtUtils-Typemaps-Default-1.05/Build.PL
new/ExtUtils-Typemaps-Default-1.07/Build.PL
--- old/ExtUtils-Typemaps-Default-1.05/Build.PL 2013-12-06 18:44:34.000000000
+0100
+++ new/ExtUtils-Typemaps-Default-1.07/Build.PL 2026-10-09 15:49:28.000000000
+0200
@@ -7,7 +7,7 @@
module_name => 'ExtUtils::Typemaps::Default',
license => 'perl',
requires => {
- 'ExtUtils::Typemaps' => '3.18_03',
+ 'ExtUtils::Typemaps' => '3.21',
},
build_requires => {
'Module::Build' => '0',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/ExtUtils-Typemaps-Default-1.05/Changes
new/ExtUtils-Typemaps-Default-1.07/Changes
--- old/ExtUtils-Typemaps-Default-1.05/Changes 2013-12-06 18:44:34.000000000
+0100
+++ new/ExtUtils-Typemaps-Default-1.07/Changes 2026-10-09 15:49:28.000000000
+0200
@@ -1,5 +1,28 @@
Revision history for Perl extension ExtUtils::Typemaps::Default.
+1.07 Fri Oct 9 CET 2026
+ - Address CVE-2026-107794:
+ Fix integer underflow in ExtUtils::Typemaps::STL::List on empty lists.
+ Calling av_extend(av, len-1) when len == 0 underflowed the unsigned
+ integer and attempted to allocate a 32GiB array.
+ - Fix missing index increment in std::list<char*> OUTPUT typemaps.
+
+1.06 Thu Oct 8 CET 2026
+ - Address CVE-2026-107373:
+ Using "std::string( SvPV_nolen( $arg ), SvCUR( $arg ) );"
+ adds a potential security issue since in C++ the evaluation of argument
+ order depends on the compiler. If the SV is not stringified (for
+ example, if it's an IV, NV or a reference) then this can abort or segfault.
+ The fix applied is to split into multiple statements:
+ STRLEN len;
+ const char *pv = SvPV($arg, len);
+ $var = std::string(pv, len);
+
+ If you depend on this module, please update your minimum version
+ requirement to 1.06.
+ - Do not depend on dev release version of ExtUtils::Typemaps anymore.
+ - Updated author contact info.
+
1.05 Fri Dec 6 18:43:00 CET 2013
- Fix invalid av_extend on zero-length vectors.
(James Wright, RT #91213)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/ExtUtils-Typemaps-Default-1.05/MANIFEST
new/ExtUtils-Typemaps-Default-1.07/MANIFEST
--- old/ExtUtils-Typemaps-Default-1.05/MANIFEST 2013-12-06 18:44:34.000000000
+0100
+++ new/ExtUtils-Typemaps-Default-1.07/MANIFEST 2026-10-09 15:49:28.000000000
+0200
@@ -18,3 +18,4 @@
META.json
META.yml
t/001_basic.t
+t/002_cve_2026_107794.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/ExtUtils-Typemaps-Default-1.05/META.json
new/ExtUtils-Typemaps-Default-1.07/META.json
--- old/ExtUtils-Typemaps-Default-1.05/META.json 2013-12-06
18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/META.json 2026-10-09
15:49:28.000000000 +0200
@@ -1,16 +1,16 @@
{
"abstract" : "A set of useful typemaps",
"author" : [
- "Steffen Mueller <[email protected]>"
+ "Steffen Mueller <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.4008, CPAN::Meta::Converter
version 2.120921",
+ "generated_by" : "Module::Build version 0.4234",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
- "version" : "2"
+ "version" : 2
},
"name" : "ExtUtils-Typemaps-Default",
"prereqs" : {
@@ -21,67 +21,72 @@
},
"configure" : {
"requires" : {
- "Module::Build" : "0.40"
+ "Module::Build" : "0.42"
}
},
"runtime" : {
"requires" : {
- "ExtUtils::Typemaps" : "3.18_03"
+ "ExtUtils::Typemaps" : "3.21"
+ }
+ },
+ "test" : {
+ "requires" : {
+ "Test::More" : "0"
}
}
},
"provides" : {
"ExtUtils::Typemap::Basic" : {
"file" : "lib/ExtUtils/Typemap/Basic.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemap::Default" : {
"file" : "lib/ExtUtils/Typemap/Default.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemap::ObjectMap" : {
"file" : "lib/ExtUtils/Typemap/ObjectMap.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemap::STL" : {
"file" : "lib/ExtUtils/Typemap/STL.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemap::STL::String" : {
"file" : "lib/ExtUtils/Typemap/STL/String.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemap::STL::Vector" : {
"file" : "lib/ExtUtils/Typemap/STL/Vector.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemaps::Basic" : {
"file" : "lib/ExtUtils/Typemaps/Basic.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemaps::Default" : {
"file" : "lib/ExtUtils/Typemaps/Default.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemaps::ObjectMap" : {
"file" : "lib/ExtUtils/Typemaps/ObjectMap.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemaps::STL" : {
"file" : "lib/ExtUtils/Typemaps/STL.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemaps::STL::List" : {
"file" : "lib/ExtUtils/Typemaps/STL/List.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemaps::STL::String" : {
"file" : "lib/ExtUtils/Typemaps/STL/String.pm",
- "version" : "1.05"
+ "version" : "1.07"
},
"ExtUtils::Typemaps::STL::Vector" : {
"file" : "lib/ExtUtils/Typemaps/STL/Vector.pm",
- "version" : "1.05"
+ "version" : "1.07"
}
},
"release_status" : "stable",
@@ -90,8 +95,6 @@
"http://dev.perl.org/licenses/";
]
},
- "version" : "1.05",
- "x_test_requires" : {
- "Test::More" : "0"
- }
+ "version" : "1.07",
+ "x_serialization_backend" : "JSON::PP version 4.16"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/ExtUtils-Typemaps-Default-1.05/META.yml
new/ExtUtils-Typemaps-Default-1.07/META.yml
--- old/ExtUtils-Typemaps-Default-1.05/META.yml 2013-12-06 18:44:34.000000000
+0100
+++ new/ExtUtils-Typemaps-Default-1.07/META.yml 2026-10-09 15:49:28.000000000
+0200
@@ -1,62 +1,62 @@
---
abstract: 'A set of useful typemaps'
author:
- - 'Steffen Mueller <[email protected]>'
+ - 'Steffen Mueller <[email protected]>'
build_requires:
- Module::Build: 0
+ Module::Build: '0'
+ Test::More: '0'
configure_requires:
- Module::Build: 0.40
+ Module::Build: '0.42'
dynamic_config: 1
-generated_by: 'Module::Build version 0.4008, CPAN::Meta::Converter version
2.120921'
+generated_by: 'Module::Build version 0.4234, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: ExtUtils-Typemaps-Default
provides:
ExtUtils::Typemap::Basic:
file: lib/ExtUtils/Typemap/Basic.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemap::Default:
file: lib/ExtUtils/Typemap/Default.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemap::ObjectMap:
file: lib/ExtUtils/Typemap/ObjectMap.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemap::STL:
file: lib/ExtUtils/Typemap/STL.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemap::STL::String:
file: lib/ExtUtils/Typemap/STL/String.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemap::STL::Vector:
file: lib/ExtUtils/Typemap/STL/Vector.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemaps::Basic:
file: lib/ExtUtils/Typemaps/Basic.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemaps::Default:
file: lib/ExtUtils/Typemaps/Default.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemaps::ObjectMap:
file: lib/ExtUtils/Typemaps/ObjectMap.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemaps::STL:
file: lib/ExtUtils/Typemaps/STL.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemaps::STL::List:
file: lib/ExtUtils/Typemaps/STL/List.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemaps::STL::String:
file: lib/ExtUtils/Typemaps/STL/String.pm
- version: 1.05
+ version: '1.07'
ExtUtils::Typemaps::STL::Vector:
file: lib/ExtUtils/Typemaps/STL/Vector.pm
- version: 1.05
+ version: '1.07'
requires:
- ExtUtils::Typemaps: 3.18_03
+ ExtUtils::Typemaps: '3.21'
resources:
license: http://dev.perl.org/licenses/
-version: 1.05
-x_test_requires:
- Test::More: 0
+version: '1.07'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/Basic.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/Basic.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/Basic.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/Basic.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use ExtUtils::Typemaps;
use ExtUtils::Typemaps::Basic;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps::Basic);
@@ -28,11 +28,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/Default.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/Default.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/Default.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/Default.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use ExtUtils::Typemaps;
use ExtUtils::Typemaps::Default;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps::Default);
@@ -28,11 +28,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/ObjectMap.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/ObjectMap.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/ObjectMap.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/ObjectMap.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use ExtUtils::Typemaps;
use ExtUtils::Typemaps::ObjectMap;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps::ObjectMap);
@@ -28,11 +28,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/STL/String.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/STL/String.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/STL/String.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/STL/String.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use ExtUtils::Typemaps;
use ExtUtils::Typemaps::STL::String;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps::STL::String);
@@ -28,11 +28,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/STL/Vector.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/STL/Vector.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/STL/Vector.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/STL/Vector.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use ExtUtils::Typemaps;
use ExtUtils::Typemaps::STL::Vector;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps::STL::Vector);
@@ -28,11 +28,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/STL.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/STL.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemap/STL.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemap/STL.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use ExtUtils::Typemaps;
use ExtUtils::Typemaps::STL;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps::STL);
@@ -28,11 +28,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/Basic.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/Basic.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/Basic.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/Basic.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use warnings;
use ExtUtils::Typemaps;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps);
@@ -77,11 +77,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/Default.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/Default.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/Default.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/Default.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use warnings;
use ExtUtils::Typemaps;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps);
@@ -75,11 +75,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/ObjectMap.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/ObjectMap.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/ObjectMap.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/ObjectMap.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use warnings;
use ExtUtils::Typemaps;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps);
@@ -190,12 +190,12 @@
=head1 AUTHOR
-The module was written by Steffen Mueller <[email protected]>,
+The module was written by Steffen Mueller <[email protected]>,
but the important bit, the typemap, was written by Dean Roehrich.
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
Except for the typemap code, which is copyright 1996 Dean Roehrich
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/STL/List.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/STL/List.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/STL/List.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/STL/List.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use warnings;
use ExtUtils::Typemaps;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps);
@@ -111,7 +111,8 @@
AV* av = newAV();
$arg = newRV_noinc((SV*)av);
const unsigned int len = $var.size(); // Technically may be linear...
- av_extend(av, len-1);
+ if (len)
+ av_extend(av, len-1);
unsigned int i = 0;
std::list<!TYPE!>::const_iterator lend = $var.cend();
std::list<!TYPE!>::const_iterator lit = $var.cbegin();
@@ -123,7 +124,8 @@
AV* av = newAV();
$arg = newRV_noinc((SV*)av);
const unsigned int len = $var->size(); // Technically may be linear...
- av_extend(av, len-1);
+ if (len)
+ av_extend(av, len-1);
unsigned int i = 0;
std::list<!TYPE!>::const_iterator lend = (*$var).cend();
std::list<!TYPE!>::const_iterator lit = (*$var).cbegin();
@@ -161,7 +163,8 @@
AV* av = newAV();
$arg = newRV_noinc((SV*)av);
const unsigned int len = $var.size(); // Technically may be linear...
- av_extend(av, len-1);
+ if (len)
+ av_extend(av, len-1);
unsigned int i = 0;
std::list<std::string>::const_iterator lend = $var.cend();
std::list<std::string>::const_iterator lit = $var.cbegin();
@@ -175,7 +178,8 @@
AV* av = newAV();
$arg = newRV_noinc((SV*)av);
const unsigned int len = $var->size(); // Technically may be linear...
- av_extend(av, len-1);
+ if (len)
+ av_extend(av, len-1);
unsigned int i = 0;
std::list<std::string>::const_iterator lend = (*$var).cend();
std::list<std::string>::const_iterator lit = (*$var).cbegin();
@@ -189,24 +193,26 @@
AV* av = newAV();
$arg = newRV_noinc((SV*)av);
const unsigned int len = $var.size();
- av_extend(av, len-1);
+ if (len)
+ av_extend(av, len-1);
unsigned int i = 0;
std::list<char *>::const_iterator lend = $var.cend();
std::list<char *>::const_iterator lit = $var.cbegin();
for (; lit != lend; ++lit) {
- av_store(av, i, newSVpv(*lit, (STRLEN)strlen(*lit)));
+ av_store(av, i++, newSVpv(*lit, (STRLEN)strlen(*lit)));
}
T_STD_LIST_CSTRING_PTR
AV* av = newAV();
$arg = newRV_noinc((SV*)av);
const unsigned int len = $var->size();
- av_extend(av, len-1);
+ if (len)
+ av_extend(av, len-1);
unsigned int i = 0;
std::list<char *>::const_iterator lend = (*$var).cend();
std::list<char *>::const_iterator lit = (*$var).cbegin();
for (; lit != lend; ++lit) {
- av_store(av, i, newSVpv(*lit, (STRLEN)strlen(*lit)));
+ av_store(av, i++, newSVpv(*lit, (STRLEN)strlen(*lit)));
}
END_OUTPUT
@@ -348,7 +354,7 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/STL/String.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/STL/String.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/STL/String.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/STL/String.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use warnings;
use ExtUtils::Typemaps;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps);
@@ -33,18 +33,26 @@
TYPEMAP
std::string T_STD_STRING
std::string* T_STD_STRING_PTR
-
+
INPUT
T_STD_STRING
- $var = std::string( SvPV_nolen( $arg ), SvCUR( $arg ) );
-
+ {
+ size_t len;
+ const char * c = SvPV($arg, len);
+ $var = std::string(c, len);
+ }
+
T_STD_STRING_PTR
- $var = new std::string( SvPV_nolen( $arg ), SvCUR( $arg ) );
-
+ {
+ size_t len;
+ const char * c = SvPV($arg, len);
+ $var = new std::string(c, len);
+ }
+
OUTPUT
T_STD_STRING
$arg = newSVpvn( $var.c_str(), $var.length() );
-
+
T_STD_STRING_PTR
$arg = newSVpvn( $var->c_str(), $var->length() );
@@ -71,10 +79,18 @@
INPUT
T_STD_STRING
- $var = std::string( SvPV_nolen( $arg ), SvCUR( $arg ) );
+ {
+ size_t len;
+ const char * c = SvPV($arg, len);
+ $var = std::string(c, len);
+ }
T_STD_STRING_PTR
- $var = new std::string( SvPV_nolen( $arg ), SvCUR( $arg ) );
+ {
+ size_t len;
+ const char * c = SvPV($arg, len);
+ $var = new std::string(c, len);
+ }
OUTPUT
T_STD_STRING
@@ -97,11 +113,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/STL/Vector.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/STL/Vector.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/STL/Vector.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/STL/Vector.pm
2026-10-09 15:49:28.000000000 +0200
@@ -4,7 +4,7 @@
use warnings;
use ExtUtils::Typemaps;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps);
@@ -324,11 +324,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/STL.pm
new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/STL.pm
--- old/ExtUtils-Typemaps-Default-1.05/lib/ExtUtils/Typemaps/STL.pm
2013-12-06 18:44:34.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/lib/ExtUtils/Typemaps/STL.pm
2026-10-09 15:49:28.000000000 +0200
@@ -7,7 +7,7 @@
use ExtUtils::Typemaps::STL::String;
use ExtUtils::Typemaps::STL::List;
-our $VERSION = '1.05';
+our $VERSION = '1.07';
our @ISA = qw(ExtUtils::Typemaps);
@@ -76,11 +76,11 @@
=head1 AUTHOR
-Steffen Mueller <[email protected]>
+Steffen Mueller <[email protected]>
=head1 COPYRIGHT AND LICENSE
-Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
+Copyright 2010-2026 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/ExtUtils-Typemaps-Default-1.05/t/002_cve_2026_107794.t
new/ExtUtils-Typemaps-Default-1.07/t/002_cve_2026_107794.t
--- old/ExtUtils-Typemaps-Default-1.05/t/002_cve_2026_107794.t 1970-01-01
01:00:00.000000000 +0100
+++ new/ExtUtils-Typemaps-Default-1.07/t/002_cve_2026_107794.t 2026-10-09
15:49:28.000000000 +0200
@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Test::More tests => 13;
+
+use_ok( 'ExtUtils::Typemaps::STL::List' );
+use_ok( 'ExtUtils::Typemaps::STL' );
+use_ok( 'ExtUtils::Typemaps::Default' );
+
+# Test ExtUtils::Typemaps::STL::List directly
+my $lmap = ExtUtils::Typemaps::STL::List->new();
+isa_ok($lmap, 'ExtUtils::Typemaps::STL::List');
+
+my $lstr = $lmap->as_string;
+ok(defined $lstr && length($lstr) > 0, "Typemap string generated");
+
+# Count av_extend calls: 3 numeric types * 2 (val/ptr) + 2 std::string
(val/ptr) + 2 cstring (val/ptr) = 10
+my @all_av_extend = ($lstr =~ /(av_extend\s*\([^)]+\);)/g);
+is(scalar(@all_av_extend), 10, "Found exactly 10 av_extend calls in List
typemaps");
+
+# Count guarded av_extend calls: if (len)\s+av_extend(av, len-1);
+my @guarded = ($lstr =~
/if\s*\(\s*len\s*\)\s*\n\s*av_extend\s*\(\s*av\s*,\s*len-1\s*\);/g);
+is(scalar(@guarded), 10, "All 10 av_extend calls are guarded with 'if (len)'
(CVE-2026-107794)");
+
+# Ensure there are no unguarded av_extend calls (all av_extend are guarded)
+is(scalar(@guarded), scalar(@all_av_extend), "No unguarded av_extend found in
List typemaps");
+
+# Verify CSTRING list output typemaps increment index i (av_store(av, i++,
...))
+my @c_stores = ($lstr =~ /av_store\s*\(\s*av\s*,\s*i\+\+\s*,\s*newSVpv/g);
+cmp_ok(scalar(@c_stores), '>=', 2, "C-string list stores use i++ increment");
+
+# Verify merged ExtUtils::Typemaps::STL
+my $stl = ExtUtils::Typemaps::STL->new();
+my $stl_str = $stl->as_string;
+my @stl_guarded = ($stl_str =~
/if\s*\(\s*len\s*\)\s*\n\s*av_extend\s*\(\s*av\s*,\s*len-1\s*\);/g);
+cmp_ok(scalar(@stl_guarded), '>=', 12, "STL merged typemap has guarded
av_extend for both Vector and List");
+
+# Verify merged ExtUtils::Typemaps::Default
+my $def = ExtUtils::Typemaps::Default->new();
+my $def_str = $def->as_string;
+my @def_guarded = ($def_str =~
/if\s*\(\s*len\s*\)\s*\n\s*av_extend\s*\(\s*av\s*,\s*len-1\s*\);/g);
+cmp_ok(scalar(@def_guarded), '>=', 12, "Default merged typemap has guarded
av_extend for both Vector and List");
+
+# Check version is 1.07
+is($ExtUtils::Typemaps::STL::List::VERSION, '1.07',
"ExtUtils::Typemaps::STL::List version is 1.07");
+is($ExtUtils::Typemaps::Default::VERSION, '1.07', "ExtUtils::Typemaps::Default
version is 1.07");
++++++ README.md ++++++
## Build Results
Current state of perl in openSUSE:Factory is
The current state of perl in the devel project build (devel:languages:perl)
++++++ _scmsync.obsinfo ++++++
mtime: 1791630885
commit: c1863b1a99426463c48e22676017fa3862bdf5b3058e8feaaf33da270e30702a
url: https://src.opensuse.org/perl/perl-ExtUtils-Typemaps-Default
revision: c1863b1a99426463c48e22676017fa3862bdf5b3058e8feaaf33da270e30702a
projectscmsync: https://src.opensuse.org/perl/_ObsPrj
++++++ 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-10 13:14:45.000000000 +0200
@@ -0,0 +1 @@
+.osc
