Hello community, here is the log from the commit of package perl-Glib for openSUSE:Factory checked in at 2020-06-11 14:44:44 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Glib (Old) and /work/SRC/openSUSE:Factory/.perl-Glib.new.3606 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Glib" Thu Jun 11 14:44:44 2020 rev:56 rq:812685 version:1.3293 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Glib/perl-Glib.changes 2020-02-25 16:01:25.219953825 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Glib.new.3606/perl-Glib.changes 2020-06-11 14:45:02.397441574 +0200 @@ -1,0 +2,7 @@ +Sun Jun 7 03:09:09 UTC 2020 - Tina Müller <[email protected]> + +- updated to 1.3293 + see /usr/share/doc/packages/perl-Glib/ChangeLog.pre-git + + +------------------------------------------------------------------- Old: ---- Glib-1.3292.tar.gz New: ---- Glib-1.3293.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Glib.spec ++++++ --- /var/tmp/diff_new_pack.734CkW/_old 2020-06-11 14:45:03.301444208 +0200 +++ /var/tmp/diff_new_pack.734CkW/_new 2020-06-11 14:45:03.305444219 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Glib # -# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2020 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-Glib -Version: 1.3292 +Version: 1.3293 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 Summary: Perl wrappers for the GLib utility and Object libraries License: LGPL-2.1-or-later Group: Development/Libraries/Perl -Url: https://metacpan.org/release/%{cpan_name} +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 @@ -64,7 +64,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc AUTHORS ChangeLog.pre-git doctypes Glib.exports NEWS perl-Glib.doap README TODO xsapi.pod.foot xsapi.pod.head +%doc AUTHORS ChangeLog.pre-git doctypes Glib.exports NEWS perl-glib.doap README TODO xsapi.pod.foot xsapi.pod.head %license LICENSE %changelog ++++++ Glib-1.3292.tar.gz -> Glib-1.3293.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/GLog.xs new/Glib-1.3293/GLog.xs --- old/Glib-1.3292/GLog.xs 2013-12-11 05:44:46.000000000 +0100 +++ new/Glib-1.3293/GLog.xs 2020-05-25 18:10:10.000000000 +0200 @@ -95,7 +95,8 @@ const gchar *message, gpointer user_data) { - char * desc; + char *desc; + char *env; gboolean in_recursion = (log_level & G_LOG_FLAG_RECURSION) != 0; gboolean is_fatal = (log_level & G_LOG_FLAG_FATAL) != 0; @@ -107,13 +108,30 @@ message = "(NULL) message"; switch (log_level) { - case G_LOG_LEVEL_CRITICAL: desc = "CRITICAL"; break; - case G_LOG_LEVEL_ERROR: desc = "ERROR"; break; - case G_LOG_LEVEL_WARNING: desc = "WARNING"; break; - case G_LOG_LEVEL_MESSAGE: desc = "Message"; break; - default: desc = "LOG"; + case G_LOG_LEVEL_ERROR: desc = "ERROR"; break; + case G_LOG_LEVEL_CRITICAL: desc = "CRITICAL"; break; + case G_LOG_LEVEL_WARNING: desc = "WARNING"; break; + case G_LOG_LEVEL_MESSAGE: desc = "Message"; break; + case G_LOG_LEVEL_INFO: desc = "INFO"; break; + case G_LOG_LEVEL_DEBUG: desc = "DEBUG"; break; + default: desc = "LOG"; } + /* GLib will automatically skip debug messages unless the + * G_MESSAGES_DEBUG environment variable is set to either + * "all" or a colon-separated list of log domains that include + * the domain used for the message. + */ + if (log_level & (G_LOG_LEVEL_INFO | G_LOG_LEVEL_DEBUG)) { + const char *env = g_getenv ("G_MESSAGES_DEBUG"); + if (env == NULL) + return; + if (strcmp (env, "all") != 0 && + (log_domain == NULL || strstr (env, log_domain) == NULL)) { + return; + } + } + GPERL_SET_CONTEXT; warn ("%s%s%s %s**: %s", (log_domain ? log_domain : ""), @@ -362,21 +380,27 @@ ##define g_message(...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_MESSAGE, __VA_ARGS__) ##define g_critical(...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_CRITICAL, __VA_ARGS__) ##define g_warning(...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_WARNING, __VA_ARGS__) +##define g_info(...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_INFO, __VA_ARGS__) +##define g_debug(...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_DEBUG, __VA_ARGS__) void error (class, gchar_ornull * domain, const gchar * message) ALIAS: - error = 0 - message = 1 - critical = 2 - warning = 3 + error = 0 + critical = 1 + warning = 2 + message = 3 + info = 4 + debug = 5 PREINIT: GLogLevelFlags flags = G_LOG_LEVEL_MESSAGE; CODE: switch (ix) { - case 0: flags = G_LOG_LEVEL_ERROR; break; - case 1: flags = G_LOG_LEVEL_MESSAGE; break; - case 2: flags = G_LOG_LEVEL_CRITICAL; break; - case 3: flags = G_LOG_LEVEL_WARNING; break; + case 0: flags = G_LOG_LEVEL_ERROR; break; + case 1: flags = G_LOG_LEVEL_CRITICAL; break; + case 2: flags = G_LOG_LEVEL_WARNING; break; + case 3: flags = G_LOG_LEVEL_MESSAGE; break; + case 4: flags = G_LOG_LEVEL_INFO; break; + case 5: flags = G_LOG_LEVEL_DEBUG; break; } g_log (domain, flags, "%s", message); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/GObject.xs new/Glib-1.3293/GObject.xs --- old/Glib-1.3292/GObject.xs 2019-08-19 18:16:51.000000000 +0200 +++ new/Glib-1.3293/GObject.xs 2020-05-25 18:10:10.000000000 +0200 @@ -1328,11 +1328,14 @@ const char *class PREINIT: int n_params = 0; + G_GNUC_BEGIN_IGNORE_DEPRECATIONS GParameter * params = NULL; + G_GNUC_END_IGNORE_DEPRECATIONS GType object_type; GObject * object; GObjectClass *oclass = NULL; CODE: + G_GNUC_BEGIN_IGNORE_DEPRECATIONS #define FIRST_ARG 1 object_type = gperl_object_type_from_package (class); if (!object_type) @@ -1381,6 +1384,7 @@ #undef FIRST_ARG object = g_object_newv (object_type, n_params, params); + G_GNUC_END_IGNORE_DEPRECATIONS /* this wrapper *must* own this object! * because we've been through initialization, the perl object diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/GOption.xs new/Glib-1.3293/GOption.xs --- old/Glib-1.3292/GOption.xs 2020-02-18 05:18:12.000000000 +0100 +++ new/Glib-1.3293/GOption.xs 2020-05-25 18:10:10.000000000 +0200 @@ -48,8 +48,10 @@ static void gperl_option_group_free (GOptionGroup *group) { + G_GNUC_BEGIN_IGNORE_DEPRECATIONS if (!g_hash_table_lookup (transferred_groups, group)) g_option_group_free (group); + G_GNUC_END_IGNORE_DEPRECATIONS } GType diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/GUtils.xs new/Glib-1.3293/GUtils.xs --- old/Glib-1.3292/GUtils.xs 2020-02-18 05:18:12.000000000 +0100 +++ new/Glib-1.3293/GUtils.xs 2020-05-25 18:10:10.000000000 +0200 @@ -197,7 +197,7 @@ =for apidoc __function__ =cut -gchar_own * g_get_prgname (); +const gchar* g_get_prgname (); =for apidoc __function__ =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/MANIFEST new/Glib-1.3293/MANIFEST --- old/Glib-1.3292/MANIFEST 2020-02-18 06:07:35.000000000 +0100 +++ new/Glib-1.3293/MANIFEST 2020-06-06 07:56:00.000000000 +0200 @@ -38,7 +38,7 @@ MANIFEST MANIFEST.SKIP NEWS -perl-Glib.doap +perl-glib.doap perl-Glib.spec.in README t/1.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/META.json new/Glib-1.3293/META.json --- old/Glib-1.3292/META.json 2020-02-18 06:07:35.000000000 +0100 +++ new/Glib-1.3293/META.json 2020-06-06 07:56:00.000000000 +0200 @@ -83,6 +83,6 @@ "x_IRC" : "irc://irc.gimp.org/#gtk-perl", "x_MailingList" : "https://mail.gnome.org/mailman/listinfo/gtk-perl-list"; }, - "version" : "1.3292", + "version" : "1.3293", "x_serialization_backend" : "JSON::PP version 2.97001" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/META.yml new/Glib-1.3293/META.yml --- old/Glib-1.3292/META.yml 2020-02-18 06:07:35.000000000 +0100 +++ new/Glib-1.3293/META.yml 2020-06-06 07:56:00.000000000 +0200 @@ -53,5 +53,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 -version: '1.3292' +version: '1.3293' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/NEWS new/Glib-1.3293/NEWS --- old/Glib-1.3292/NEWS 2020-02-18 05:41:35.000000000 +0100 +++ new/Glib-1.3293/NEWS 2020-06-06 07:53:28.000000000 +0200 @@ -1,3 +1,16 @@ +Overview of changes in Glib 1.3293 (stable) +============================================ + +* Rename DOAP file in the manifest +* Fix Glib::get_prgname() +* Add fallback macros for deprecated sections +* Ignore deprecation warnings around g_object_newv() +* Add missing GParamSpecFlags enumeration values +* Add missing GSpawnError enumeration value +* Ignore warnings for g_option_group_free() +* Match GLib's log message handling +* Add tests for Glib->info and Glib->debug + Overview of changes in Glib 1.3292 (stable) ============================================ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/gperl-gtypes.c new/Glib-1.3293/gperl-gtypes.c --- old/Glib-1.3292/gperl-gtypes.c 2015-08-13 15:14:04.000000000 +0200 +++ new/Glib-1.3293/gperl-gtypes.c 2020-05-25 18:10:10.000000000 +0200 @@ -132,6 +132,7 @@ gperl_param_flags_get_type (void) { static GType etype = 0; + G_GNUC_BEGIN_IGNORE_DEPRECATIONS if (etype == 0) { static const GFlagsValue values[] = { {G_PARAM_READABLE, "G_PARAM_READABLE", "readable"}, @@ -140,10 +141,22 @@ {G_PARAM_CONSTRUCT_ONLY, "G_PARAM_CONSTRUCT_ONLY", "construct-only"}, {G_PARAM_LAX_VALIDATION, "G_PARAM_LAX_VALIDATION", "lax-validation"}, {G_PARAM_PRIVATE, "G_PARAM_PRIVATE", "private"}, +#if GLIB_CHECK_VERSION (2, 8, 0) + {G_PARAM_STATIC_NAME, "G_PARAM_STATIC_NAME", "static-name"}, + {G_PARAM_STATIC_NICK, "G_PARAM_STATIC_NICK", "static-nick"}, + {G_PARAM_STATIC_BLURB, "G_PARAM_STATIC_BLURB", "static-blurb"}, +#endif +#if GLIB_CHECK_VERSION (2, 42, 0) + {G_PARAM_EXPLICIT_NOTIFY, "G_PARAM_EXPLICIT_NOTIFY", "explicit-notify"}, +#endif +#if GLIB_CHECK_VERSION (2, 26, 0) + {G_PARAM_DEPRECATED, "G_PARAM_DEPRECATED", "deprecated"}, +#endif {0, NULL, NULL} }; etype = g_flags_register_static ("GPerlParamFlags", values); } + G_GNUC_END_IGNORE_DEPRECATIONS return etype; } @@ -452,12 +465,16 @@ /* -------------------------------------------------------------------------- */ +G_GNUC_BEGIN_IGNORE_DEPRECATIONS static const GEnumValue _gperl_spawn_error_values[] = { { G_SPAWN_ERROR_FORK, "G_SPAWN_ERROR_FORK", "fork" }, { G_SPAWN_ERROR_READ, "G_SPAWN_ERROR_READ", "read" }, { G_SPAWN_ERROR_CHDIR, "G_SPAWN_ERROR_CHDIR", "chdir" }, { G_SPAWN_ERROR_ACCES, "G_SPAWN_ERROR_ACCES", "acces" }, { G_SPAWN_ERROR_PERM, "G_SPAWN_ERROR_PERM", "perm" }, +#if GLIB_CHECK_VERSION (2, 32, 0) + { G_SPAWN_ERROR_TOO_BIG, "G_SPAWN_ERROR_TOO_BIG", "too-big" }, +#endif { G_SPAWN_ERROR_2BIG, "G_SPAWN_ERROR_2BIG", "2big" }, { G_SPAWN_ERROR_NOEXEC, "G_SPAWN_ERROR_NOEXEC", "noexec" }, { G_SPAWN_ERROR_NAMETOOLONG, "G_SPAWN_ERROR_NAMETOOLONG", "nametoolong" }, @@ -475,6 +492,7 @@ { G_SPAWN_ERROR_FAILED, "G_SPAWN_ERROR_FAILED", "failed" }, { 0, NULL, NULL } }; +G_GNUC_END_IGNORE_DEPRECATIONS GType gperl_spawn_error_get_type (void) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/gperl-private.h new/Glib-1.3293/gperl-private.h --- old/Glib-1.3292/gperl-private.h 2012-07-09 02:11:42.000000000 +0200 +++ new/Glib-1.3293/gperl-private.h 2020-05-25 18:10:10.000000000 +0200 @@ -14,6 +14,14 @@ #ifndef _GPERL_PRIVATE_H_ #define _GPERL_PRIVATE_H_ +/* If we're building against a very old version of GLib, provide a fallback + * macro that doesn't do anything + */ +#ifndef G_GNUC_BEGIN_IGNORE_DEPRECATIONS +#define G_GNUC_BEGIN_IGNORE_DEPRECATIONS +#define G_GNUC_END_IGNORE_DEPRECATIONS +#endif + /* * Thread-safety macros and helpers */ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/lib/Glib/CodeGen.pm new/Glib-1.3293/lib/Glib/CodeGen.pm --- old/Glib-1.3292/lib/Glib/CodeGen.pm 2020-02-18 06:05:51.000000000 +0100 +++ new/Glib-1.3293/lib/Glib/CodeGen.pm 2020-06-06 07:54:07.000000000 +0200 @@ -5,7 +5,7 @@ use Carp; use IO::File; -our $VERSION = '1.3292'; +our $VERSION = '1.3293'; # type handlers should look like this: # sub gen_foo_stuff { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/lib/Glib/GenPod.pm new/Glib-1.3293/lib/Glib/GenPod.pm --- old/Glib-1.3292/lib/Glib/GenPod.pm 2020-02-18 06:06:06.000000000 +0100 +++ new/Glib-1.3293/lib/Glib/GenPod.pm 2020-06-06 07:54:25.000000000 +0200 @@ -9,7 +9,7 @@ package Glib::GenPod; -our $VERSION = '1.3292'; +our $VERSION = '1.3293'; use strict; use warnings; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/lib/Glib/MakeHelper.pm new/Glib-1.3293/lib/Glib/MakeHelper.pm --- old/Glib-1.3292/lib/Glib/MakeHelper.pm 2020-02-18 06:06:27.000000000 +0100 +++ new/Glib-1.3293/lib/Glib/MakeHelper.pm 2020-06-06 07:54:40.000000000 +0200 @@ -4,7 +4,7 @@ package Glib::MakeHelper; -our $VERSION = '1.3292'; +our $VERSION = '1.3293'; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/lib/Glib/Object/Subclass.pm new/Glib-1.3293/lib/Glib/Object/Subclass.pm --- old/Glib-1.3292/lib/Glib/Object/Subclass.pm 2020-02-18 06:06:51.000000000 +0100 +++ new/Glib-1.3293/lib/Glib/Object/Subclass.pm 2020-06-06 07:55:13.000000000 +0200 @@ -20,7 +20,7 @@ package Glib::Object::Subclass; -our $VERSION = '1.3292'; +our $VERSION = '1.3293'; use Glib; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/lib/Glib/ParseXSDoc.pm new/Glib-1.3293/lib/Glib/ParseXSDoc.pm --- old/Glib-1.3292/lib/Glib/ParseXSDoc.pm 2020-02-18 06:06:39.000000000 +0100 +++ new/Glib-1.3293/lib/Glib/ParseXSDoc.pm 2020-06-06 07:54:56.000000000 +0200 @@ -13,7 +13,7 @@ xsdocparse ); -our $VERSION = '1.3292'; +our $VERSION = '1.3293'; our $NOISY = $ENV{NOISYDOC}; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/lib/Glib.pm new/Glib-1.3293/lib/Glib.pm --- old/Glib-1.3292/lib/Glib.pm 2020-02-18 05:40:58.000000000 +0100 +++ new/Glib-1.3293/lib/Glib.pm 2020-06-06 07:53:53.000000000 +0200 @@ -27,7 +27,7 @@ require DynaLoader; our @ISA = qw(DynaLoader Exporter); -our $VERSION = '1.3292'; +our $VERSION = '1.3293'; use constant { TRUE => 1, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/perl-Glib.doap new/Glib-1.3293/perl-Glib.doap --- old/Glib-1.3292/perl-Glib.doap 2018-09-26 05:50:15.000000000 +0200 +++ new/Glib-1.3293/perl-Glib.doap 1970-01-01 01:00:00.000000000 +0100 @@ -1,27 +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</name> - <shortdesc xml:lang="en">Perl wrappers for the GLib utility and Object libraries</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>muppet</foaf:name> - <gnome:userid>sarringt</gnome:userid> - </foaf:Person> - </maintainer> - - <maintainer> - <foaf:Person> - <foaf:name>Torsten Schönfeld</foaf:name> - <foaf:mbox rdf:resource="mailto:[email protected]"; /> - <gnome:userid>tsch</gnome:userid> - </foaf:Person> - </maintainer> - -</Project> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/perl-glib.doap new/Glib-1.3293/perl-glib.doap --- old/Glib-1.3292/perl-glib.doap 1970-01-01 01:00:00.000000000 +0100 +++ new/Glib-1.3293/perl-glib.doap 2018-09-26 05:50:15.000000000 +0200 @@ -0,0 +1,27 @@ +<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</name> + <shortdesc xml:lang="en">Perl wrappers for the GLib utility and Object libraries</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>muppet</foaf:name> + <gnome:userid>sarringt</gnome:userid> + </foaf:Person> + </maintainer> + + <maintainer> + <foaf:Person> + <foaf:name>Torsten Schönfeld</foaf:name> + <foaf:mbox rdf:resource="mailto:[email protected]"; /> + <gnome:userid>tsch</gnome:userid> + </foaf:Person> + </maintainer> + +</Project> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Glib-1.3292/t/a.t new/Glib-1.3293/t/a.t --- old/Glib-1.3292/t/a.t 2012-01-06 07:26:40.000000000 +0100 +++ new/Glib-1.3293/t/a.t 2020-05-25 18:10:10.000000000 +0200 @@ -18,7 +18,7 @@ # and in 2.4.0 (actually 2.3.2). plan skip_all => "g_log doubles messages by accident on 64-bit platforms"; } else { - plan tests => 30; + plan tests => 32; } package Foo; @@ -35,6 +35,20 @@ Glib->critical (undef, 'whee critical'); Glib->warning (undef, 'whee warning'); +{ + local %ENV = %ENV; + + # These should not call the __WARN__ handler above. + $ENV{G_MESSAGES_DEBUG} = ''; + Glib->info (undef, 'whee info'); + Glib->debug (undef, 'whee debug'); + + # Now they sould. + $ENV{G_MESSAGES_DEBUG} = 'all'; + Glib->info (undef, 'whee info'); + Glib->debug (undef, 'whee debug'); +} + my $id = Glib::Log->set_handler (__PACKAGE__, [qw/ error critical warning message info debug /],
