Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Log-Dispatchouli for
openSUSE:Factory checked in at 2025-10-07 18:29:14
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Log-Dispatchouli (Old)
and /work/SRC/openSUSE:Factory/.perl-Log-Dispatchouli.new.11973 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Log-Dispatchouli"
Tue Oct 7 18:29:14 2025 rev:25 rq:1309623 version:3.11.0
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Log-Dispatchouli/perl-Log-Dispatchouli.changes
2025-07-22 12:20:13.519947384 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Log-Dispatchouli.new.11973/perl-Log-Dispatchouli.changes
2025-10-07 18:31:37.517715027 +0200
@@ -1,0 +2,13 @@
+Thu Oct 2 13:29:57 UTC 2025 - Tina Müller <[email protected]>
+
+- updated to 3.11.0 (3.011)
+ see /usr/share/doc/packages/perl-Log-Dispatchouli/Changes
+
+ 3.011 2025-07-28 11:43:33-04:00 America/New_York
+ - [ BREAKING CHANGE ]
+ This release converts all Logger methods to signatured-subs. This
+ should not really break anything, unless methods are being called
+ erroneously, as strict arity checking will now notice the wrong
+ number of args.
+
+-------------------------------------------------------------------
Old:
----
Log-Dispatchouli-3.010.tar.gz
New:
----
Log-Dispatchouli-3.011.tar.gz
README.md
_scmsync.obsinfo
build.specials.obscpio
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Log-Dispatchouli.spec ++++++
--- /var/tmp/diff_new_pack.cb2MwO/_old 2025-10-07 18:31:37.981734578 +0200
+++ /var/tmp/diff_new_pack.cb2MwO/_new 2025-10-07 18:31:37.985734747 +0200
@@ -18,15 +18,16 @@
%define cpan_name Log-Dispatchouli
Name: perl-Log-Dispatchouli
-Version: 3.10.0
+Version: 3.11.0
Release: 0
-# 3.010 -> normalize -> 3.10.0
-%define cpan_version 3.010
+# 3.011 -> normalize -> 3.11.0
+%define cpan_version 3.011
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Simple wrapper around Log::Dispatch
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/R/RJ/RJBS/%{cpan_name}-%{cpan_version}.tar.gz
Source1: cpanspec.yml
+Source100: README.md
BuildArch: noarch
BuildRequires: perl
BuildRequires: perl-macros
++++++ Log-Dispatchouli-3.010.tar.gz -> Log-Dispatchouli-3.011.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Dispatchouli-3.010/Changes
new/Log-Dispatchouli-3.011/Changes
--- old/Log-Dispatchouli-3.010/Changes 2025-07-16 15:04:23.000000000 +0200
+++ new/Log-Dispatchouli-3.011/Changes 2025-07-28 17:43:35.000000000 +0200
@@ -1,5 +1,12 @@
Revision history for Log-Dispatchouli
+3.011 2025-07-28 11:43:33-04:00 America/New_York
+ - [ BREAKING CHANGE ]
+ This release converts all Logger methods to signatured-subs. This
+ should not really break anything, unless methods are being called
+ erroneously, as strict arity checking will now notice the wrong
+ number of args.
+
3.010 2025-07-16 09:04:21-04:00 America/New_York
- add flog_messages and fmt_event, which return formatted strings
without logging them
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Dispatchouli-3.010/META.json
new/Log-Dispatchouli-3.011/META.json
--- old/Log-Dispatchouli-3.010/META.json 2025-07-16 15:04:23.000000000
+0200
+++ new/Log-Dispatchouli-3.011/META.json 2025-07-28 17:43:35.000000000
+0200
@@ -80,7 +80,7 @@
"web" : "https://github.com/rjbs/Log-Dispatchouli";
}
},
- "version" : "3.010",
+ "version" : "3.011",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.040001"
@@ -469,7 +469,7 @@
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "3.010",
+ "tag" : "3.011",
"tag_format" : "%v",
"tag_message" : "v%V"
},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Dispatchouli-3.010/META.yml
new/Log-Dispatchouli-3.011/META.yml
--- old/Log-Dispatchouli-3.010/META.yml 2025-07-16 15:04:23.000000000 +0200
+++ new/Log-Dispatchouli-3.011/META.yml 2025-07-28 17:43:35.000000000 +0200
@@ -47,7 +47,7 @@
bugtracker: https://github.com/rjbs/Log-Dispatchouli/issues
homepage: https://github.com/rjbs/Log-Dispatchouli
repository: https://github.com/rjbs/Log-Dispatchouli.git
-version: '3.010'
+version: '3.011'
x_Dist_Zilla:
perl:
version: '5.040001'
@@ -350,7 +350,7 @@
branch: ~
changelog: Changes
signed: 0
- tag: '3.010'
+ tag: '3.011'
tag_format: '%v'
tag_message: v%V
Dist::Zilla::Role::Git::Repo:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Dispatchouli-3.010/Makefile.PL
new/Log-Dispatchouli-3.011/Makefile.PL
--- old/Log-Dispatchouli-3.010/Makefile.PL 2025-07-16 15:04:23.000000000
+0200
+++ new/Log-Dispatchouli-3.011/Makefile.PL 2025-07-28 17:43:35.000000000
+0200
@@ -49,7 +49,7 @@
"lib" => 0,
"utf8" => 0
},
- "VERSION" => "3.010",
+ "VERSION" => "3.011",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Dispatchouli-3.010/README
new/Log-Dispatchouli-3.011/README
--- old/Log-Dispatchouli-3.010/README 2025-07-16 15:04:23.000000000 +0200
+++ new/Log-Dispatchouli-3.011/README 2025-07-28 17:43:35.000000000 +0200
@@ -1,5 +1,5 @@
This archive contains the distribution Log-Dispatchouli,
-version 3.010:
+version 3.011:
a simple wrapper around Log::Dispatch
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Log-Dispatchouli-3.010/lib/Log/Dispatchouli/Global.pm
new/Log-Dispatchouli-3.011/lib/Log/Dispatchouli/Global.pm
--- old/Log-Dispatchouli-3.010/lib/Log/Dispatchouli/Global.pm 2025-07-16
15:04:23.000000000 +0200
+++ new/Log-Dispatchouli-3.011/lib/Log/Dispatchouli/Global.pm 2025-07-28
17:43:35.000000000 +0200
@@ -1,6 +1,6 @@
use strict;
use warnings;
-package Log::Dispatchouli::Global 3.010;
+package Log::Dispatchouli::Global 3.011;
# ABSTRACT: a system for sharing a global, dynamically-scoped logger
use Carp ();
@@ -280,7 +280,7 @@
=head1 VERSION
-version 3.010
+version 3.011
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Dispatchouli-3.010/lib/Log/Dispatchouli/Proxy.pm
new/Log-Dispatchouli-3.011/lib/Log/Dispatchouli/Proxy.pm
--- old/Log-Dispatchouli-3.010/lib/Log/Dispatchouli/Proxy.pm 2025-07-16
15:04:23.000000000 +0200
+++ new/Log-Dispatchouli-3.011/lib/Log/Dispatchouli/Proxy.pm 2025-07-28
17:43:35.000000000 +0200
@@ -1,6 +1,6 @@
use v5.20;
use warnings;
-package Log::Dispatchouli::Proxy 3.010;
+package Log::Dispatchouli::Proxy 3.011;
# ABSTRACT: a simple wrapper around Log::Dispatch
# Not dangerous. Accepted without change.
@@ -42,7 +42,7 @@
bless $guts => $class;
}
-sub proxy ($self, $arg) {
+sub proxy ($self, $arg = undef) {
$arg ||= {};
my @proxy_ctx;
@@ -63,40 +63,40 @@
});
}
-sub parent { $_[0]{parent} }
-sub logger { $_[0]{logger} }
+sub parent ($self) { $self->{parent} }
+sub logger ($self) { $self->{logger} }
-sub ident { $_[0]{logger}->ident }
-sub config_id { $_[0]{logger}->config_id }
+sub ident ($self) { $self->{logger}->ident }
+sub config_id ($self) { $self->{logger}->config_id }
-sub set_prefix { $_[0]{prefix} = $_[1] }
-sub get_prefix { $_[0]{prefix} }
-sub clear_prefix { undef $_[0]{prefix} }
-sub unset_prefix { $_[0]->clear_prefix }
+sub get_prefix ($self) { $self->{prefix} }
+sub set_prefix ($self, $prefix) { $self->{prefix} = $prefix }
+sub clear_prefix ($self) { undef $self->{prefix} }
+sub unset_prefix ($self) { $self->clear_prefix }
-sub set_debug { $_[0]{debug} = $_[1] ? 1 : 0 }
-sub clear_debug { undef $_[0]{debug} }
+sub set_debug ($self, $bool) { $self->{debug} = $bool ? 1 : 0 }
+sub clear_debug ($self) { undef $self->{debug} }
-sub get_debug {
- return $_[0]{debug} if defined $_[0]{debug};
- return $_[0]->parent->get_debug;
+sub get_debug ($self) {
+ return $self->{debug} if defined $self->{debug};
+ return $self->parent->get_debug;
}
-sub is_debug { $_[0]->get_debug }
-sub is_info { 1 }
-sub is_fatal { 1 }
+sub is_debug ($self) { $self->get_debug }
+sub is_info ($) { 1 }
+sub is_fatal ($) { 1 }
-sub mute { $_[0]{muted} = 1 }
-sub unmute { $_[0]{muted} = 0 }
+sub mute ($self) { $self->{muted} = 1 }
+sub unmute ($self) { $self->{muted} = 0 }
-sub set_muted { $_[0]{muted} = $_[1] ? 1 : 0 }
-sub clear_muted { undef $_[0]{muted} }
+sub set_muted ($self, $bool) { $self->{muted} = $bool ? 1 : 0 }
+sub clear_muted ($self) { undef $self->{muted} }
-sub _get_local_muted { $_[0]{muted} }
+sub _get_local_muted ($self) { $self->{muted} }
-sub get_muted {
- return $_[0]{muted} if defined $_[0]{muted};
- return $_[0]->parent->get_muted;
+sub get_muted ($self) {
+ return $self->{muted} if defined $self->{muted};
+ return $self->parent->get_muted;
}
sub _get_all_prefix ($self, $arg) {
@@ -182,9 +182,9 @@
return $self->log_event($event, $data);
}
-sub info { shift()->log(@_); }
-sub fatal { shift()->log_fatal(@_); }
-sub debug { shift()->log_debug(@_); }
+sub info ($self, @rest) { $self->log(@rest); }
+sub fatal ($self, @rest) { $self->log_fatal(@rest); }
+sub debug ($self, @rest) { $self->log_debug(@rest); }
use overload
'&{}' => sub { my ($self) = @_; sub { $self->log(@_) } },
@@ -205,7 +205,7 @@
=head1 VERSION
-version 3.010
+version 3.011
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Dispatchouli-3.010/lib/Log/Dispatchouli.pm
new/Log-Dispatchouli-3.011/lib/Log/Dispatchouli.pm
--- old/Log-Dispatchouli-3.010/lib/Log/Dispatchouli.pm 2025-07-16
15:04:23.000000000 +0200
+++ new/Log-Dispatchouli-3.011/lib/Log/Dispatchouli.pm 2025-07-28
17:43:35.000000000 +0200
@@ -1,6 +1,6 @@
use v5.20;
use warnings;
-package Log::Dispatchouli 3.010;
+package Log::Dispatchouli 3.011;
# ABSTRACT: a simple wrapper around Log::Dispatch
# Not dangerous. Accepted without change.
@@ -139,8 +139,8 @@
#pod
#pod =cut
-sub new {
- my ($class, $arg) = @_;
+sub new ($class, $arg = undef) {
+ $arg ||= {};
my $ident = $arg->{ident}
or Carp::croak "no ident specified when using $class";
@@ -297,9 +297,7 @@
*{"enable_std$dest"} = $code;
}
-sub setup_syslog_output {
- my ($self, %arg) = @_;
-
+sub setup_syslog_output ($self, %arg) {
require Log::Dispatch::Syslog;
$self->{dispatcher}->add(
Log::Dispatch::Syslog->new(
@@ -358,8 +356,7 @@
return $self->_flog_messages($arg, \@rest);
}
-sub log {
- my ($self, @rest) = @_;
+sub log ($self, @rest) {
my $arg = _HASH0($rest[0]) ? shift(@rest) : {};
my $message;
@@ -394,9 +391,7 @@
#pod
#pod =cut
-sub log_fatal {
- my ($self, @rest) = @_;
-
+sub log_fatal ($self, @rest) {
my $arg = _HASH0($rest[0]) ? shift(@rest) : {}; # for future expansion
local $arg->{level} = defined $arg->{level} ? $arg->{level} : 'error';
@@ -416,9 +411,7 @@
#pod
#pod =cut
-sub log_debug {
- my ($self, @rest) = @_;
-
+sub log_debug ($self, @rest) {
return unless $self->is_debug;
my $arg = _HASH0($rest[0]) ? shift(@rest) : {}; # for future expansion
@@ -495,7 +488,7 @@
#pod
#pod =cut
-sub _compute_proxy_ctx_kvstr_aref {
+sub _compute_proxy_ctx_kvstr_aref ($) {
return [];
}
@@ -508,9 +501,7 @@
return join q{ }, @$kv_aref;
}
-sub log_event {
- my ($self, $type, $data) = @_;
-
+sub log_event ($self, $type, $data) {
return if $self->get_muted;
my $message = $self->fmt_event($type, $data);
@@ -530,9 +521,7 @@
#pod
#pod =cut
-sub log_debug_event {
- my ($self, $type, $data) = @_;
-
+sub log_debug_event ($self, $type, $data) {
return unless $self->get_debug;
$self->log_event($type, $data);
@@ -547,9 +536,7 @@
#pod
#pod =cut
-sub set_debug {
- return($_[0]->{debug} = $_[1] ? 1 : 0);
-}
+sub set_debug ($self, $bool) { $self->{debug} = $bool ? 1 : 0 }
#pod =method get_debug
#pod
@@ -558,7 +545,7 @@
#pod
#pod =cut
-sub get_debug { return $_[0]->{debug} }
+sub get_debug ($self) { return $self->{debug} }
#pod =method clear_debug
#pod
@@ -567,10 +554,10 @@
#pod
#pod =cut
-sub clear_debug { }
+sub clear_debug ($) { }
-sub mute { $_[0]{muted} = 1 }
-sub unmute { $_[0]{muted} = 0 }
+sub mute ($self) { $self->{muted} = 1 }
+sub unmute ($self) { $self->{muted} = 0 }
#pod =method set_muted
#pod
@@ -581,8 +568,8 @@
#pod
#pod =cut
-sub set_muted {
- return($_[0]->{muted} = $_[1] ? 1 : 0);
+sub set_muted ($self, $bool) {
+ return ($self->{muted} = $bool ? 1 : 0);
}
#pod =method get_muted
@@ -592,7 +579,7 @@
#pod
#pod =cut
-sub get_muted { return $_[0]->{muted} }
+sub get_muted ($self) { return $self->{muted} }
#pod =method clear_muted
#pod
@@ -601,7 +588,7 @@
#pod
#pod =cut
-sub clear_muted { }
+sub clear_muted ($) { }
#pod =method get_prefix
#pod
@@ -623,10 +610,10 @@
#pod
#pod =cut
-sub get_prefix { return $_[0]->{prefix} }
-sub set_prefix { $_[0]->{prefix} = $_[1] }
-sub clear_prefix { $_[0]->unset_prefix }
-sub unset_prefix { undef $_[0]->{prefix} }
+sub get_prefix ($self) { return $self->{prefix} }
+sub set_prefix ($self, $prefix) { $self->{prefix} = $prefix }
+sub clear_prefix ($self) { $self->unset_prefix }
+sub unset_prefix ($self) { undef $self->{prefix} }
#pod =method ident
#pod
@@ -634,7 +621,7 @@
#pod
#pod =cut
-sub ident { $_[0]{ident} }
+sub ident ($self) { $self->{ident} }
#pod =method config_id
#pod
@@ -645,7 +632,7 @@
#pod
#pod =cut
-sub config_id { $_[0]{config_id} }
+sub config_id ($self) { $self->{config_id} }
#pod =head1 METHODS FOR SUBCLASSING
#pod
@@ -656,7 +643,7 @@
#pod
#pod =cut
-sub string_flogger { 'String::Flogger' }
+sub string_flogger ($) { 'String::Flogger' }
#pod =head2 env_prefix
#pod
@@ -671,7 +658,7 @@
#pod
#pod =cut
-sub env_prefix { return; }
+sub env_prefix ($) { return; }
#pod =head2 env_value
#pod
@@ -683,9 +670,7 @@
#pod
#pod =cut
-sub env_value {
- my ($self, $suffix) = @_;
-
+sub env_value ($self, $suffix) {
my @path = grep { defined } ($self->env_prefix, 'DISPATCHOULI');
for my $prefix (@path) {
@@ -728,8 +713,7 @@
#pod
#pod =cut
-sub new_tester {
- my ($class, $arg) = @_;
+sub new_tester ($class, $arg = undef) {
$arg ||= {};
return $class->new({
@@ -751,11 +735,11 @@
#pod
#pod =cut
-sub events {
+sub events ($self) {
Carp::confess "->events called on a logger not logging to self"
- unless $_[0]->{events};
+ unless $self->{events};
- return $_[0]->{events};
+ return $self->{events};
}
#pod =head2 clear_events
@@ -765,11 +749,11 @@
#pod
#pod =cut
-sub clear_events {
+sub clear_events ($self) {
Carp::confess "->events called on a logger not logging to self"
- unless $_[0]->{events};
+ unless $self->{events};
- @{ $_[0]->{events} } = ();
+ $self->{events}->@* = ();
return;
}
@@ -799,12 +783,11 @@
#pod
#pod =cut
-sub proxy_class {
+sub proxy_class ($) {
return 'Log::Dispatchouli::Proxy';
}
-sub proxy {
- my ($self, $arg) = @_;
+sub proxy ($self, $arg = undef) {
$arg ||= {};
my $proxy = $self->proxy_class->_new({
@@ -832,8 +815,8 @@
#pod
#pod =cut
-sub parent { $_[0] }
-sub logger { $_[0] }
+sub parent ($self) { $self }
+sub logger ($self) { $self }
#pod =method dispatcher
#pod
@@ -842,7 +825,7 @@
#pod
#pod =cut
-sub dispatcher { $_[0]->{dispatcher} }
+sub dispatcher ($self) { $self->{dispatcher} }
#pod =method stdio_dispatcher_class
#pod
@@ -852,7 +835,7 @@
#pod
#pod =cut
-sub stdio_dispatcher_class {
+sub stdio_dispatcher_class ($self) {
require Log::Dispatch::Screen;
return 'Log::Dispatch::Screen';
}
@@ -889,13 +872,13 @@
#pod
#pod =cut
-sub is_debug { $_[0]->get_debug }
-sub is_info { 1 }
-sub is_fatal { 1 }
-
-sub info { shift()->log(@_); }
-sub fatal { shift()->log_fatal(@_); }
-sub debug { shift()->log_debug(@_); }
+sub is_debug ($self) { $self->get_debug }
+sub is_info ($) { 1 }
+sub is_fatal ($) { 1 }
+
+sub info ($self, @rest) { $self->log(@rest); }
+sub fatal ($self, @rest) { $self->log_fatal(@rest); }
+sub debug ($self, @rest) { $self->log_debug(@rest); }
use overload
'&{}' => sub { my ($self) = @_; sub { $self->log(@_) } },
@@ -924,7 +907,7 @@
=head1 VERSION
-version 3.010
+version 3.011
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Dispatchouli-3.010/lib/Log/Fmt.pm
new/Log-Dispatchouli-3.011/lib/Log/Fmt.pm
--- old/Log-Dispatchouli-3.010/lib/Log/Fmt.pm 2025-07-16 15:04:23.000000000
+0200
+++ new/Log-Dispatchouli-3.011/lib/Log/Fmt.pm 2025-07-28 17:43:35.000000000
+0200
@@ -1,6 +1,6 @@
use v5.20;
use warnings;
-package Log::Fmt 3.010;
+package Log::Fmt 3.011;
# ABSTRACT: a little parser and emitter of structured log lines
use experimental 'postderef'; # Not dangerous. Is accepted without changed.
@@ -221,7 +221,7 @@
=head1 VERSION
-version 3.010
+version 3.011
=head1 OVERVIEW
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Log-Dispatchouli-3.010/xt/release/changes_has_content.t
new/Log-Dispatchouli-3.011/xt/release/changes_has_content.t
--- old/Log-Dispatchouli-3.010/xt/release/changes_has_content.t 2025-07-16
15:04:23.000000000 +0200
+++ new/Log-Dispatchouli-3.011/xt/release/changes_has_content.t 2025-07-28
17:43:35.000000000 +0200
@@ -2,7 +2,7 @@
note 'Checking Changes';
my $changes_file = 'Changes';
-my $newver = '3.010';
+my $newver = '3.011';
my $trial_token = '-TRIAL';
my $encoding = 'UTF-8';
++++++ 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: 1759411880
commit: a11d20c752185955af74fa1a14d86211dd830ab678787a798607f0eee0b27646
url: https://src.opensuse.org/perl/perl-Log-Dispatchouli.git
revision: a11d20c752185955af74fa1a14d86211dd830ab678787a798607f0eee0b27646
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 2025-10-07 12:44:46.000000000 +0200
@@ -0,0 +1 @@
+.osc
