Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Glib-Object-Introspection for
openSUSE:Factory checked in at 2023-04-05 21:27:44
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Glib-Object-Introspection (Old)
and /work/SRC/openSUSE:Factory/.perl-Glib-Object-Introspection.new.19717
(New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Glib-Object-Introspection"
Wed Apr 5 21:27:44 2023 rev:14 rq:1077431 version:0.050
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Glib-Object-Introspection/perl-Glib-Object-Introspection.changes
2020-10-22 14:26:56.995001696 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Glib-Object-Introspection.new.19717/perl-Glib-Object-Introspection.changes
2023-04-05 21:35:33.130533229 +0200
@@ -1,0 +2,6 @@
+Tue Mar 28 03:07:20 UTC 2023 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 0.050
+ see /usr/share/doc/packages/perl-Glib-Object-Introspection/
+
+-------------------------------------------------------------------
Old:
----
Glib-Object-Introspection-0.049.tar.gz
New:
----
Glib-Object-Introspection-0.050.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Glib-Object-Introspection.spec ++++++
--- /var/tmp/diff_new_pack.rDZfVf/_old 2023-04-05 21:35:33.638536129 +0200
+++ /var/tmp/diff_new_pack.rDZfVf/_new 2023-04-05 21:35:33.654536220 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Glib-Object-Introspection
#
-# Copyright (c) 2020 SUSE LLC
+# Copyright (c) 2023 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -16,18 +16,16 @@
#
+%define cpan_name Glib-Object-Introspection
Name: perl-Glib-Object-Introspection
-Version: 0.049
+Version: 0.050
Release: 0
#Upstream: This library is free software; you can redistribute it and/or
modify it under the terms of the Lesser General Public License (LGPL). For more
information, see http://www.fsf.org/licenses/lgpl.txt
-%define cpan_name Glib-Object-Introspection
-Summary: Dynamically create Perl language bindings
License: LGPL-2.1-only
-Group: Development/Libraries/Perl
+Summary: Dynamically create Perl language bindings
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/X/XA/XAOC/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(ExtUtils::Depends) >= 0.3
@@ -46,11 +44,11 @@
Dynamically create Perl language bindings
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{version}
%build
perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
-make %{?_smp_mflags}
+%make_build
%check
make test
@@ -61,8 +59,7 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
-%doc NEWS perl-Glib-Object-Introspection.doap README
+%doc NEWS perl-glib-object-introspection.doap README.md
%license LICENSE
%changelog
++++++ Glib-Object-Introspection-0.049.tar.gz ->
Glib-Object-Introspection-0.050.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Glib-Object-Introspection-0.049/GObjectIntrospection.xs
new/Glib-Object-Introspection-0.050/GObjectIntrospection.xs
--- old/Glib-Object-Introspection-0.049/GObjectIntrospection.xs 2019-09-29
03:48:36.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/GObjectIntrospection.xs 2023-03-27
07:20:53.000000000 +0200
@@ -941,10 +941,25 @@
"ClosureMarshal");
g_assert (closure_marshal_info);
cif = g_new0 (ffi_cif, 1);
+
+ #if defined(GI_CHECK_VERSION) && GI_CHECK_VERSION (1, 72, 0)
+ closure = g_callable_info_create_closure (closure_marshal_info,
+ cif,
+ invoke_perl_signal_handler,
+ signal_info);
+ if (closure != NULL)
+ closure =
+ (ffi_closure *)
g_callable_info_get_closure_native_address (closure_marshal_info,
+
closure);
+ #else
+ G_GNUC_BEGIN_IGNORE_DEPRECATIONS
closure = g_callable_info_prepare_closure (closure_marshal_info,
cif,
invoke_perl_signal_handler,
signal_info);
+ G_GNUC_END_IGNORE_DEPRECATIONS
+ #endif
+
g_base_info_unref (closure_marshal_info);
dwarn ("package = %s, signal = %s => closure = %p\n",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Glib-Object-Introspection-0.049/MANIFEST
new/Glib-Object-Introspection-0.050/MANIFEST
--- old/Glib-Object-Introspection-0.049/MANIFEST 2020-10-21
19:53:14.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/MANIFEST 2023-03-27
07:22:11.000000000 +0200
@@ -28,8 +28,8 @@
MANIFEST
MANIFEST.SKIP
NEWS
-perl-Glib-Object-Introspection.doap
-README
+perl-glib-object-introspection.doap
+README.md
t/00-basic-types.t
t/arg-checks.t
t/arrays.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Glib-Object-Introspection-0.049/META.json
new/Glib-Object-Introspection-0.050/META.json
--- old/Glib-Object-Introspection-0.049/META.json 2020-10-21
19:53:14.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/META.json 2023-03-27
07:22:11.000000000 +0200
@@ -5,7 +5,7 @@
"Glib::Object::Introspection Team <gtk-perl-list at gnome dot org>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter
version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter
version 2.150010",
"license" : [
"unknown",
"lgpl_2_1"
@@ -67,6 +67,6 @@
"x_IRC" : "irc://irc.gimp.org/#gtk-perl",
"x_MailingList" : "https://mail.gnome.org/mailman/listinfo/gtk-perl-list";
},
- "version" : "0.049",
+ "version" : "0.050",
"x_serialization_backend" : "JSON::PP version 2.97001"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Glib-Object-Introspection-0.049/META.yml
new/Glib-Object-Introspection-0.050/META.yml
--- old/Glib-Object-Introspection-0.049/META.yml 2020-10-21
19:53:13.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/META.yml 2023-03-27
07:22:11.000000000 +0200
@@ -11,7 +11,7 @@
ExtUtils::PkgConfig: '1'
Glib: '1.32'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version
2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version
2.150010'
license: unknown
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -37,5 +37,5 @@
homepage: http://gtk2-perl.sourceforge.net
license: http://www.gnu.org/licenses/lgpl-2.1.html
repository: https://gitlab.gnome.org/GNOME/perl-glib-object-introspection
-version: '0.049'
+version: '0.050'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Glib-Object-Introspection-0.049/NEWS
new/Glib-Object-Introspection-0.050/NEWS
--- old/Glib-Object-Introspection-0.049/NEWS 2020-10-21 19:50:13.000000000
+0200
+++ new/Glib-Object-Introspection-0.050/NEWS 2023-03-27 07:21:05.000000000
+0200
@@ -1,3 +1,12 @@
+Overview of changes in Glib::Object::Introspection 0.050
+========================================================
+- Add CI pipeline (on Gnome GitLab server)
+- Add POD documentation to perli11ndoc (thanks oldtechaa!)
+- Clean up string evals and return undef, hazardous style choices
+- Update the README file to Markdown format, update links
+- Update links in Glib::Object::Introspection POD
+- Add support for new girffi API
+
Overview of changes in Glib::Object::Introspection 0.049
========================================================
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Glib-Object-Introspection-0.049/README
new/Glib-Object-Introspection-0.050/README
--- old/Glib-Object-Introspection-0.049/README 2018-09-27 03:00:03.000000000
+0200
+++ new/Glib-Object-Introspection-0.050/README 1970-01-01 01:00:00.000000000
+0100
@@ -1,114 +0,0 @@
-Glib::Object::Introspection
-===========================
-
-Glib::Object::Introspection uses the gobject-introspection and libffi projects
-to dynamically create Perl bindings for a wide variety of libraries. Examples
-include gtk+, webkit, libsoup and many more.
-
-
-INSTALLATION
-------------
-
-To install this module type the following:
-
- perl Makefile.PL
- make
- make test
- make install
-
-
-DEPENDENCIES
-------------
-
-Glib::Object::Introspection needs this C library:
-
- gobject-introspection-1.0 >= 0.10.0
-
-and these Perl modules:
-
- ExtUtils::Depends >= 0.300
- ExtUtils::PkgConfig >= 1.000
- Glib >= 1.310 # FIXME: 1.320
-
-
-HOW TO CONTACT US
------------------
-Homepage: http://gtk2-perl.sourceforge.net/
-Mailing list: gtk-perl-list [at] gnome.org
-Mailing list archives: https://mail.gnome.org/archives/gtk-perl-list/
-IRC: irc://irc.gnome.org/#gtk-perl
-E-mail bug submission via CPAN's RT:
- bug-Glib-Object-Introspection [at] rt.cpan.org
-Web bug submission via gnome.org's bugzilla:
- http://bugzilla.gnome.org/enter_bug.cgi?product=gnome-perl
-
-Please do not contact any of the maintainers directly unless they ask you to.
-The first point of contact for questions/problems/issues should always be the
-mailing list.
-
-
-BUG REPORTS
------------
-For help with problems, please contact the mailing list (above). If you
-already know you have a bug, please file it with one of the bug trackers
-below. With any problems and/or bug reports, it's always helpful for the
-developers to have the following information:
-
-- A small script that demonstrates the problem; this is not required, however,
- it will get your issue looked at much faster than a description of the
- problem alone.
-- Version of Perl (perl -v)
-- Versions of Gtk2-Perl modules (Glib/Gtk2/Pango/Cairo)
-- Optional, but nice to have: versions of GTK+ libraries on your system
- (libglib, libgtk+, libpango, libcairo, etc.)
-
-There are multiple project bug trackers, please choose the one you are most
-comfortable with using and/or already have an account for.
-
-Request Tracker:
-- submitting bugs via the Web (requires a PAUSE account/Bitcard):
- https://rt.cpan.org/Public/Bug/Report.html?Queue=Glib-Object-Introspection
-- submitting bugs via e-mail (open to anyone with e-mail):
- bug-Glib-Object-Introspection [at] rt.cpan.org
-
-Gnome's bugtracker:
-- report bugs to the 'gnome-perl' product (requires login)
- http://bugzilla.gnome.org/enter_bug.cgi?product=gnome-perl
-
-
-PATCH SUBMISSION GUIDELINES
----------------------------
-You can send us patches by...
-- E-mailing it to the mailing list (above); please use a pastebin service of
- some kind for longer patchfiles (over say 20k in size).
-- Those with gnome.org Git ID's can push trivial patches to git directly; if
- you're not sure what a trivial patch is, please ask first on the mailing
- list prior to pushing your commit.
-
-
-OBTAINING SOURCE FROM THE GNOME.ORG GIT REPO
---------------------------------------------
-Assuming you already have the 'git' command installed on your system, you can
-use the 'git://' or 'https://' protocols
-
-git clone g...@gitlab.gnome.org:GNOME/perl-glib-object-introspection.git
-
-- or -
-
-git clone https://gitlab.gnome.org/GNOME/perl-glib-object-introspection.git
-
-To update an existing clone of the source:
-
-git pull
-
-Most Linux distros now package the 'git' command in the 'git' package.
-
-
-COPYRIGHT AND LICENSE
----------------------
-
-Copyright (C) 2005-2018 Torsten Schoenfeld <kaffeeti...@gmx.de>
-
-See the LICENSE file in the top-level directory of this distribution for the
-full license terms.
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Glib-Object-Introspection-0.049/README.md
new/Glib-Object-Introspection-0.050/README.md
--- old/Glib-Object-Introspection-0.049/README.md 1970-01-01
01:00:00.000000000 +0100
+++ new/Glib-Object-Introspection-0.050/README.md 2023-03-27
06:25:05.000000000 +0200
@@ -0,0 +1,111 @@
+Glib::Object::Introspection
+===========================
+
+Glib::Object::Introspection uses the gobject-introspection and libffi projects
+to dynamically create Perl bindings for a wide variety of libraries. Examples
+include GTK, WebKitGTK, libsoup and many more.
+
+
+INSTALLATION
+------------
+
+To install this module type the following:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+
+DEPENDENCIES
+------------
+
+Glib::Object::Introspection needs this C library:
+
+| pkg-config module | version |
+|---------------------------|-----------|
+| gobject-introspection-1.0 | >= 0.10.0 |
+
+and these Perl modules:
+
+| Perl module | version |
+|---------------------|----------|
+| ExtUtils::Depends | >= 0.300 |
+| ExtUtils::PkgConfig | >= 1.000 |
+| Glib | >= 1.320 |
+
+
+HOW TO CONTACT US
+-----------------
+
+- [gtk2-perl project homepage](http://gtk2-perl.sourceforge.net/)
+- [Discourse](https://discourse.gnome.org/tag/perl)
+- [Mailing list archives](https://mail.gnome.org/archives/gtk-perl-list/)
+- [Matrix](https://matrix.to/#/#perl:gnome.org)
+- [Issue
tracker](https://gitlab.gnome.org/GNOME/perl-glib-object-introspection/-/issues)
+- Email address for RT: bug-Glib-Object-Introspection [at] rt.cpan.org
+
+Please do not contact any of the maintainers directly unless they ask you to.
+The first point of contact for questions is the Discourse forum.
+
+
+BUG REPORTS
+-----------
+
+For help with problems, please use Discourse first. If you already know you
+have a bug, please file it with one of the bug trackers below.
+
+With any problems and/or bug reports, it's always helpful for the developers
+to have the following information:
+
+- A small script that demonstrates the problem; this is not required, however,
+ it will get your issue looked at much faster than a description of the
+ problem alone.
+- Version of Perl (perl -v)
+- Versions of Glib/GTK modules (Glib/Gtk2/Pango/Cairo)
+- Optional, but nice to have: versions of GTK libraries on your system
+ (libglib, libgtk, libpango, libcairo, etc.)
+
+There are multiple project bug trackers, please choose the one you are most
+comfortable with using and/or already have an account for.
+
+Project issue tracker:
+
+- https://gitlab.gnome.org/GNOME/perl-glib-object-introspection/-/issues/new
+
+Request Tracker:
+
+- submitting bugs via the Web (requires a PAUSE account/Bitcard):
+ https://rt.cpan.org/Public/Bug/Report.html?Queue=Glib-Object-Introspection
+- submitting bugs via e-mail (open to anyone with e-mail):
+ bug-Glib-Object-Introspection [at] rt.cpan.org
+
+CONTRIBUTING
+------------
+
+The preferred form of contribution is through merge requests opened on the
+GitLab project.
+
+Fork the project using the GitLab web user interface into your own namespace,
+and the clone from your fork:
+
+ git clone
https://gitlab.gnome.org/yourname/perl-glib-object-introspection.git
+ cd perl-glib-object-introspection
+
+Create a branch to work on your changes. The name of the branch should be
+relevant to what you're working on; for instance, if you are fixing a bug
+you should reference the issue number in the branch name, e.g.
+
+ git switch -C issue-123
+
+Once you've finished working on the bug fix or feature, push the branch
+to the Git repository and open a new merge request, to let the project
+maintainers review your contribution.
+
+COPYRIGHT AND LICENSE
+---------------------
+
+Copyright (C) 2005-2018 Torsten Schoenfeld <kaffeeti...@gmx.de>
+
+See the LICENSE file in the top-level directory of this distribution for the
+full license terms.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Glib-Object-Introspection-0.049/bin/perli11ndoc
new/Glib-Object-Introspection-0.050/bin/perli11ndoc
--- old/Glib-Object-Introspection-0.049/bin/perli11ndoc 2018-09-26
06:44:28.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/bin/perli11ndoc 2023-03-27
06:25:05.000000000 +0200
@@ -14,7 +14,7 @@
BEGIN {
if (!@ARGV) {
local $@;
- $have_display = eval 'use Gtk3; Gtk3::init_check ()';
+ $have_display = eval {use Gtk3; Gtk3::init_check ()};
}
}
@@ -164,7 +164,7 @@
sub find_attribute {
my ($self, $element, $attribute) = @_;
my $attribute_list = $element->find ("\@$attribute");
- return undef if $attribute_list->size != 1;
+ return if $attribute_list->size != 1;
return $attribute_list->pop->value;
}
@@ -967,7 +967,7 @@
sub format_deprecation_docs {
my ($self, $element) = @_;
my $deprecated = $self->find_attribute ($element, 'deprecated') // 0;
- return undef unless $deprecated;
+ return unless $deprecated;
my $text = '';
@@ -981,7 +981,7 @@
$text .= ' ' . $doc_dep_list->pop->textContent;
}
- return undef if $text eq '';
+ return if $text eq '';
return $text;
}
@@ -1011,7 +1011,7 @@
my $dep = $self->format_deprecation_docs ($element);
$text .= "\n\n$dep\n" if defined $dep;
- return undef if $text eq '';
+ return if $text eq '';
# Extract code blocks so that they are not wrapped.
my $code_block_pattern = qr/\|\[\n?(.*?)\n?\]\|/s;
@@ -1076,7 +1076,7 @@
sub format_version_constraint {
my ($self, $element) = @_;
my $version = $self->find_attribute ($element, 'version');
- return undef if !defined $version;
+ return if !defined $version;
return "Since: $version.";
}
@@ -1501,7 +1501,7 @@
my ($x, $y) = $result_view->window_to_buffer_coords ('widget', $event->x,
$event->y);
my $iter = $result_view->get_iter_at_location ($x, $y);
if (!$iter) {
- return undef;
+ return;
}
my $tags = $iter->get_tags ();
foreach my $tag (@$tags) {
@@ -1509,7 +1509,7 @@
return $tag;
}
}
- return undef;
+ return;
};
$result_view->{__hovering} = FALSE;
@@ -1653,7 +1653,7 @@
package PathBar;
# The BEGIN { eval } dance is to support not loading Gtk3 in text mode.
-BEGIN { eval 'use Glib::Object::Subclass qw/Gtk3::Box/;' }
+BEGIN { eval {use Glib::Object::Subclass qw/Gtk3::Box/;} }
sub TRUE () {1}
sub FALSE () {0}
@@ -1724,7 +1724,7 @@
package PathLabel;
# The BEGIN { eval } dance is to support not loading Gtk3 in text mode.
-BEGIN { eval 'use Glib::Object::Subclass qw/Gtk3::Label/;' }
+BEGIN { eval {use Glib::Object::Subclass qw/Gtk3::Label/;} }
sub TRUE () {1}
sub FALSE () {0}
@@ -1876,3 +1876,64 @@
@indices = $self->_add_omission_markers (@indices);
return join ' ⸠', map { $self->_format_child ($_) } @indices;
}
+
+__END__
+
+=encoding utf8
+
+=head1 NAME
+
+perli11ndoc - view documentation of installed libraries bound using
+Glib::Object::Introspection
+
+=head1 ABSTRACT
+
+perli11ndoc allows you to view Perl documentation for Glib libraries bound to
+Perl using Glib::Object::Introspection. Glib::Object::Introspection uses the
+gobject-introspection and libffi projects to dynamically create Perl bindings
+for a wide variety of libraries. Examples include gtk+, webkit, libsoup and
+many more. All libraries currently installed will be shown with Perl-specific
+documentation and examples. Where Glib::Object::Introspection differs from the
+C library, differences are pointed out and the Perl-specific interface is
+defined.
+
+=head1 DEPENDENCIES
+
+perli11ndoc requires that XML::LibXML be installed to run. It also requires
+that the corresponding C library headers be installed on the system to provide
+documentation. For instance, on a Debian-based system you would need
+libgtk-3-dev to see the Perl introspected documentation for Gtk3.
+
+=head1 SEE ALSO
+
+=over
+
+=item perl-Glib: L<Glib>
+
+=item gobject-introspection: L<http://live.gnome.org/GObjectIntrospection>
+
+=item libffi: L<http://sourceware.org/libffi/>
+
+=item Glib::Object::Introspection:
L<https://metacpan.org/pod/Glib::Object::Introspection>
+
+=back
+
+=head1 AUTHORS
+
+=over
+
+=item Emmanuele Bassi <ebassi at linux intel com>
+
+=item muppet <scott asofyet org>
+
+=item Torsten Schönfeld <kaffeetisch at gmx de>
+
+=back
+
+=head1 LICENSE
+
+This utility is free software; you can redistribute it and/or modify it under
+the terms of the Lesser General Public License (LGPL). For more information,
+see http://www.fsf.org/licenses/lgpl.txt
+
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Glib-Object-Introspection-0.049/gperl-i11n-callback.c
new/Glib-Object-Introspection-0.050/gperl-i11n-callback.c
--- old/Glib-Object-Introspection-0.049/gperl-i11n-callback.c 2015-07-12
06:15:18.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/gperl-i11n-callback.c 2023-03-27
07:20:53.000000000 +0200
@@ -11,9 +11,22 @@
info->interface = g_base_info_ref (cb_info);
info->cif = g_new0 (ffi_cif, 1);
+
+#if GI_CHECK_VERSION (1, 72, 0)
+ info->closure =
+ g_callable_info_create_closure (info->interface,
+ info->cif,
+ invoke_perl_code,
+ info);
+#else
+ G_GNUC_BEGIN_IGNORE_DEPRECATIONS
info->closure =
- g_callable_info_prepare_closure (info->interface, info->cif,
- invoke_perl_code, info);
+ g_callable_info_prepare_closure (info->interface,
+ info->cif,
+ invoke_perl_code,
+ info);
+ G_GNUC_END_IGNORE_DEPRECATIONS
+#endif
/* FIXME: This should most likely use SvREFCNT_inc instead of
* newSVsv. */
info->code = newSVsv (code);
@@ -47,9 +60,23 @@
info = g_new0 (GPerlI11nPerlCallbackInfo, 1);
info->interface = g_base_info_ref (cb_info);
info->cif = g_new0 (ffi_cif, 1);
+
+#if GI_CHECK_VERSION (1, 72, 0)
+ info->closure =
+ g_callable_info_create_closure (info->interface,
+ info->cif,
+ invoke_perl_code,
+ info);
+#else
+ G_GNUC_BEGIN_IGNORE_DEPRECATIONS
info->closure =
- g_callable_info_prepare_closure (info->interface, info->cif,
- invoke_perl_code, info);
+ g_callable_info_prepare_closure (info->interface,
+ info->cif,
+ invoke_perl_code,
+ info);
+ G_GNUC_END_IGNORE_DEPRECATIONS
+#endif
+
info->sub_name = sub_name;
info->code = NULL;
info->data = NULL;
@@ -70,8 +97,15 @@
/* g_callable_info_free_closure reaches into info->cif, so it needs to
* be called before we free it. See
* <https://bugzilla.gnome.org/show_bug.cgi?id=652954>. */
+#if defined(GI_CHECK_VERSION) && GI_CHECK_VERSION (1, 72, 0)
+ if (info->closure)
+ g_callable_info_destroy_closure (info->interface,
info->closure);
+#else
+ G_GNUC_BEGIN_IGNORE_DEPRECATIONS
if (info->closure)
g_callable_info_free_closure (info->interface, info->closure);
+ G_GNUC_END_IGNORE_DEPRECATIONS
+#endif
if (info->cif)
g_free (info->cif);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Glib-Object-Introspection-0.049/gperl-i11n-invoke-perl.c
new/Glib-Object-Introspection-0.050/gperl-i11n-invoke-perl.c
--- old/Glib-Object-Introspection-0.049/gperl-i11n-invoke-perl.c
2019-09-29 03:48:36.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/gperl-i11n-invoke-perl.c
2023-03-27 07:20:53.000000000 +0200
@@ -29,14 +29,14 @@
info = (GPerlI11nPerlCallbackInfo *) userdata;
cb_interface = (GICallableInfo *) info->interface;
- _prepare_perl_invocation_info (&iinfo, cb_interface, args);
-
/* set perl context */
GPERL_CALLBACK_MARSHAL_INIT (info);
ENTER;
SAVETMPS;
+ _prepare_perl_invocation_info (&iinfo, cb_interface, args);
+
PUSHMARK (SP);
if (info->args_converter) {
@@ -315,7 +315,12 @@
cb_info->args_converter = SvREFCNT_inc
(signal_info->args_converter);
c_closure.closure = *closure;
+
+#if GI_CHECK_VERSION (1, 72, 0)
+ c_closure.callback = g_callable_info_get_closure_native_address
(signal_info->interface, cb_info->closure);
+#else
c_closure.callback = cb_info->closure;
+#endif
/* If marshal_data is non-NULL, gi_cclosure_marshal_generic uses it as
* the callback. Hence we pass NULL so that c_closure.callback is
* used. */
@@ -444,6 +449,7 @@
*(ffi_arg *) resp = (ffi_arg) arg->v_pointer;
break;
}
+ g_base_info_unref (interface_info);
break;
}
default:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Glib-Object-Introspection-0.049/gperl-i11n-marshal-callback.c
new/Glib-Object-Introspection-0.050/gperl-i11n-marshal-callback.c
--- old/Glib-Object-Introspection-0.049/gperl-i11n-marshal-callback.c
2019-09-29 03:48:36.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/gperl-i11n-marshal-callback.c
2023-03-27 07:20:53.000000000 +0200
@@ -55,7 +55,13 @@
dwarn (" -> closure %p from info %p\n",
callback_info->closure, callback_info);
+
+#if GI_CHECK_VERSION (1, 72, 0)
+ return g_callable_info_get_closure_native_address
(callback_interface_info,
+
callback_info->closure);
+#else
return callback_info->closure;
+#endif
}
static gpointer
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Glib-Object-Introspection-0.049/gperl-i11n-vfunc-interface.c
new/Glib-Object-Introspection-0.050/gperl-i11n-vfunc-interface.c
--- old/Glib-Object-Introspection-0.049/gperl-i11n-vfunc-interface.c
2015-07-12 06:15:18.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/gperl-i11n-vfunc-interface.c
2023-03-27 07:20:53.000000000 +0200
@@ -46,7 +46,13 @@
g_base_info_get_name (info), vfunc_name,
perl_method_name,
field_offset, g_vfunc_info_get_offset (vfunc_info),
iface);
+
+#if GI_CHECK_VERSION (1, 72, 0)
+ G_STRUCT_MEMBER (gpointer, iface, field_offset) =
+ g_callable_info_get_closure_native_address
(vfunc_info, callback_info->closure);
+#else
G_STRUCT_MEMBER (gpointer, iface, field_offset) =
callback_info->closure;
+#endif
g_base_info_unref (field_interface_info);
g_base_info_unref (field_type_info);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Glib-Object-Introspection-0.049/gperl-i11n-vfunc-object.c
new/Glib-Object-Introspection-0.050/gperl-i11n-vfunc-object.c
--- old/Glib-Object-Introspection-0.049/gperl-i11n-vfunc-object.c
2015-08-13 15:14:01.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/gperl-i11n-vfunc-object.c
2023-03-27 07:20:53.000000000 +0200
@@ -72,7 +72,13 @@
g_base_info_get_name (info), vfunc_name,
perl_method_name,
field_offset, g_vfunc_info_get_offset (vfunc_info),
class);
+
+#if GI_CHECK_VERSION (1, 72, 0)
+ G_STRUCT_MEMBER (gpointer, class, field_offset) =
+ g_callable_info_get_closure_native_address
(vfunc_info, callback_info->closure);
+#else
G_STRUCT_MEMBER (gpointer, class, field_offset) =
callback_info->closure;
+#endif
g_base_info_unref (field_interface_info);
g_base_info_unref (field_type_info);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Glib-Object-Introspection-0.049/lib/Glib/Object/Introspection.pm
new/Glib-Object-Introspection-0.050/lib/Glib/Object/Introspection.pm
--- old/Glib-Object-Introspection-0.049/lib/Glib/Object/Introspection.pm
2020-10-21 19:50:27.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/lib/Glib/Object/Introspection.pm
2023-03-27 07:21:05.000000000 +0200
@@ -19,7 +19,7 @@
use warnings;
use Glib;
-our $VERSION = '0.049';
+our $VERSION = '0.050';
use Carp;
$Carp::Internal{(__PACKAGE__)}++;
@@ -309,7 +309,7 @@
Glib::Object::Introspection uses the gobject-introspection and libffi projects
to dynamically create Perl bindings for a wide variety of libraries. Examples
-include gtk+, webkit, libsoup and many more.
+include Gtk, webkit, libsoup and many more.
=head1 DESCRIPTION FOR LIBRARY USERS
@@ -726,7 +726,7 @@
=item perl-Glib: L<Glib>
-=item gobject-introspection: L<http://live.gnome.org/GObjectIntrospection>
+=item gobject-introspection: L<https://gi.readthedocs.io/en/latest/>
=item libffi: L<http://sourceware.org/libffi/>
@@ -736,7 +736,7 @@
=over
-=item Emmanuele Bassi <ebassi at linux intel com>
+=item Emmanuele Bassi <ebassi at gnome org>
=item muppet <scott asofyet org>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Glib-Object-Introspection-0.049/perl-Glib-Object-Introspection.doap
new/Glib-Object-Introspection-0.050/perl-Glib-Object-Introspection.doap
--- old/Glib-Object-Introspection-0.049/perl-Glib-Object-Introspection.doap
2018-09-26 06:44:28.000000000 +0200
+++ new/Glib-Object-Introspection-0.050/perl-Glib-Object-Introspection.doap
1970-01-01 01:00:00.000000000 +0100
@@ -1,20 +0,0 @@
-<Project xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#";
- xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#";
- xmlns:foaf="http://xmlns.com/foaf/0.1/";
- xmlns:gnome="http://api.gnome.org/doap-extensions#";
- xmlns="http://usefulinc.com/ns/doap#";>
-
- <name xml:lang="en">Glib::Object::Introspection</name>
- <shortdesc xml:lang="en">Dynamically create Perl language
bindings</shortdesc>
- <homepage rdf:resource="http://gtk2-perl.sourceforge.net/"; />
- <mailing-list
rdf:resource="http://mail.gnome.org/mailman/listinfo/gtk-perl-list"; />
-
- <maintainer>
- <foaf:Person>
- <foaf:name>Torsten Schönfeld</foaf:name>
- <foaf:mbox rdf:resource="mailto:t...@src.gnome.org"; />
- <gnome:userid>tsch</gnome:userid>
- </foaf:Person>
- </maintainer>
-
-</Project>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Glib-Object-Introspection-0.049/perl-glib-object-introspection.doap
new/Glib-Object-Introspection-0.050/perl-glib-object-introspection.doap
--- old/Glib-Object-Introspection-0.049/perl-glib-object-introspection.doap
1970-01-01 01:00:00.000000000 +0100
+++ new/Glib-Object-Introspection-0.050/perl-glib-object-introspection.doap
2018-09-26 06:44:28.000000000 +0200
@@ -0,0 +1,20 @@
+<Project xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#";
+ xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#";
+ xmlns:foaf="http://xmlns.com/foaf/0.1/";
+ xmlns:gnome="http://api.gnome.org/doap-extensions#";
+ xmlns="http://usefulinc.com/ns/doap#";>
+
+ <name xml:lang="en">Glib::Object::Introspection</name>
+ <shortdesc xml:lang="en">Dynamically create Perl language
bindings</shortdesc>
+ <homepage rdf:resource="http://gtk2-perl.sourceforge.net/"; />
+ <mailing-list
rdf:resource="http://mail.gnome.org/mailman/listinfo/gtk-perl-list"; />
+
+ <maintainer>
+ <foaf:Person>
+ <foaf:name>Torsten Schönfeld</foaf:name>
+ <foaf:mbox rdf:resource="mailto:t...@src.gnome.org"; />
+ <gnome:userid>tsch</gnome:userid>
+ </foaf:Person>
+ </maintainer>
+
+</Project>
