Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Log-Any for openSUSE:Factory checked in at 2023-04-03 17:47:20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Log-Any (Old) and /work/SRC/openSUSE:Factory/.perl-Log-Any.new.9019 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Log-Any" Mon Apr 3 17:47:20 2023 rev:30 rq:1076994 version:1.714 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Log-Any/perl-Log-Any.changes 2022-12-13 18:56:37.563574311 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Log-Any.new.9019/perl-Log-Any.changes 2023-04-03 17:47:33.866878804 +0200 @@ -1,0 +2,15 @@ +Tue Mar 21 03:07:12 UTC 2023 - Tina Müller <[email protected]> + +- updated to 1.714 + see /usr/share/doc/packages/perl-Log-Any/Changes + + 1.714 2023-03-20 11:48:30-05:00 America/Chicago + [Fixed] + - Fixed Syslog adaptor losing ident and facility information if + another library wrongly calls Sys::Syslog::closelog(). This is not + a perfect solution, but a perfect solution can only ever be to fix + the close that's calling closelog() :P + Thanks to Tom Christiansen and @GrantStreetGroup for reporting this + issue and providing the fix. + +------------------------------------------------------------------- Old: ---- Log-Any-1.713.tar.gz New: ---- Log-Any-1.714.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Log-Any.spec ++++++ --- /var/tmp/diff_new_pack.MRAgoU/_old 2023-04-03 17:47:34.462883196 +0200 +++ /var/tmp/diff_new_pack.MRAgoU/_new 2023-04-03 17:47:34.470883254 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Log-Any # -# Copyright (c) 2022 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 @@ -18,7 +18,7 @@ %define cpan_name Log-Any Name: perl-Log-Any -Version: 1.713 +Version: 1.714 Release: 0 License: Artistic-1.0 OR GPL-1.0-or-later Summary: Bringing loggers and listeners together @@ -71,6 +71,7 @@ %prep %autosetup -n %{cpan_name}-%{version} + find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 %build ++++++ Log-Any-1.713.tar.gz -> Log-Any-1.714.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/Changes new/Log-Any-1.714/Changes --- old/Log-Any-1.713/Changes 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/Changes 2023-03-20 17:48:37.000000000 +0100 @@ -2,6 +2,18 @@ ** denotes an incompatible change +1.714 2023-03-20 11:48:30-05:00 America/Chicago + + [Fixed] + + - Fixed Syslog adaptor losing ident and facility information if + another library wrongly calls Sys::Syslog::closelog(). This is not + a perfect solution, but a perfect solution can only ever be to fix + the close that's calling closelog() :P + + Thanks to Tom Christiansen and @GrantStreetGroup for reporting this + issue and providing the fix. + 1.713 2022-12-12 12:44:52-06:00 America/Chicago [Fixed] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/META.json new/Log-Any-1.714/META.json --- old/Log-Any-1.713/META.json 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/META.json 2023-03-20 17:48:37.000000000 +0100 @@ -57,75 +57,75 @@ "provides" : { "Log::Any" : { "file" : "lib/Log/Any.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter" : { "file" : "lib/Log/Any/Adapter.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::Base" : { "file" : "lib/Log/Any/Adapter/Base.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::Capture" : { "file" : "lib/Log/Any/Adapter/Capture.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::File" : { "file" : "lib/Log/Any/Adapter/File.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::Multiplex" : { "file" : "lib/Log/Any/Adapter/Multiplex.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::Null" : { "file" : "lib/Log/Any/Adapter/Null.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::Stderr" : { "file" : "lib/Log/Any/Adapter/Stderr.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::Stdout" : { "file" : "lib/Log/Any/Adapter/Stdout.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::Syslog" : { "file" : "lib/Log/Any/Adapter/Syslog.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::Test" : { "file" : "lib/Log/Any/Adapter/Test.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Adapter::Util" : { "file" : "lib/Log/Any/Adapter/Util.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Manager" : { "file" : "lib/Log/Any/Manager.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Proxy" : { "file" : "lib/Log/Any/Proxy.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Proxy::Null" : { "file" : "lib/Log/Any/Proxy/Null.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Proxy::Test" : { "file" : "lib/Log/Any/Proxy/Test.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Proxy::WithStackTrace" : { "file" : "lib/Log/Any/Proxy/WithStackTrace.pm", - "version" : "1.713" + "version" : "1.714" }, "Log::Any::Test" : { "file" : "lib/Log/Any/Test.pm", - "version" : "1.713" + "version" : "1.714" } }, "release_status" : "stable", @@ -140,7 +140,7 @@ "web" : "https://github.com/preaction/Log-Any"; } }, - "version" : "1.713", + "version" : "1.714", "x_authority" : "cpan:PREACTION", "x_contributors" : [ "Andrew Grechkin <[email protected]>", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/META.yml new/Log-Any-1.714/META.yml --- old/Log-Any-1.713/META.yml 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/META.yml 2023-03-20 17:48:37.000000000 +0100 @@ -34,63 +34,63 @@ provides: Log::Any: file: lib/Log/Any.pm - version: '1.713' + version: '1.714' Log::Any::Adapter: file: lib/Log/Any/Adapter.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::Base: file: lib/Log/Any/Adapter/Base.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::Capture: file: lib/Log/Any/Adapter/Capture.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::File: file: lib/Log/Any/Adapter/File.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::Multiplex: file: lib/Log/Any/Adapter/Multiplex.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::Null: file: lib/Log/Any/Adapter/Null.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::Stderr: file: lib/Log/Any/Adapter/Stderr.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::Stdout: file: lib/Log/Any/Adapter/Stdout.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::Syslog: file: lib/Log/Any/Adapter/Syslog.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::Test: file: lib/Log/Any/Adapter/Test.pm - version: '1.713' + version: '1.714' Log::Any::Adapter::Util: file: lib/Log/Any/Adapter/Util.pm - version: '1.713' + version: '1.714' Log::Any::Manager: file: lib/Log/Any/Manager.pm - version: '1.713' + version: '1.714' Log::Any::Proxy: file: lib/Log/Any/Proxy.pm - version: '1.713' + version: '1.714' Log::Any::Proxy::Null: file: lib/Log/Any/Proxy/Null.pm - version: '1.713' + version: '1.714' Log::Any::Proxy::Test: file: lib/Log/Any/Proxy/Test.pm - version: '1.713' + version: '1.714' Log::Any::Proxy::WithStackTrace: file: lib/Log/Any/Proxy/WithStackTrace.pm - version: '1.713' + version: '1.714' Log::Any::Test: file: lib/Log/Any/Test.pm - version: '1.713' + version: '1.714' resources: bugtracker: https://github.com/preaction/Log-Any/issues homepage: https://github.com/preaction/Log-Any repository: https://github.com/preaction/Log-Any.git -version: '1.713' +version: '1.714' x_authority: cpan:PREACTION x_contributors: - 'Andrew Grechkin <[email protected]>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/Makefile.PL new/Log-Any-1.714/Makefile.PL --- old/Log-Any-1.713/Makefile.PL 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/Makefile.PL 2023-03-20 17:48:37.000000000 +0100 @@ -23,7 +23,7 @@ "IPC::Open3" => 0, "Test::More" => 0 }, - "VERSION" => "1.713", + "VERSION" => "1.714", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Base.pm new/Log-Any-1.714/lib/Log/Any/Adapter/Base.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/Base.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Base.pm 2023-03-20 17:48:37.000000000 +0100 @@ -4,7 +4,7 @@ package Log::Any::Adapter::Base; -our $VERSION = '1.713'; +our $VERSION = '1.714'; our @CARP_NOT = ( 'Log::Any::Adapter' ); # we import these in case any legacy adapter uses them as class methods @@ -52,7 +52,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 AUTHORS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Capture.pm new/Log-Any-1.714/lib/Log/Any/Adapter/Capture.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/Capture.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Capture.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Adapter::Capture; # ABSTRACT: Adapter for capturing log messages into an arrayref -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Adapter::Util (); @@ -114,7 +114,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Development.pod new/Log-Any-1.714/lib/Log/Any/Adapter/Development.pod --- old/Log-Any-1.713/lib/Log/Any/Adapter/Development.pod 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Development.pod 2023-03-20 17:48:37.000000000 +0100 @@ -16,7 +16,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/File.pm new/Log-Any-1.714/lib/Log/Any/Adapter/File.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/File.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/File.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Adapter::File; # ABSTRACT: Simple adapter for logging to files -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Config; use Fcntl qw/:flock/; @@ -80,7 +80,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Multiplex.pm new/Log-Any-1.714/lib/Log/Any/Adapter/Multiplex.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/Multiplex.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Multiplex.pm 2023-03-20 17:48:37.000000000 +0100 @@ -1,6 +1,6 @@ package Log::Any::Adapter::Multiplex; # ABSTRACT: Adapter to use allow structured logging across other adapters -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any; use Log::Any::Adapter; @@ -116,7 +116,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Null.pm new/Log-Any-1.714/lib/Log/Any/Adapter/Null.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/Null.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Null.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Adapter::Null; # ABSTRACT: Discards all log messages -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Adapter::Base; our @ISA = qw/Log::Any::Adapter::Base/; @@ -33,7 +33,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Stderr.pm new/Log-Any-1.714/lib/Log/Any/Adapter/Stderr.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/Stderr.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Stderr.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Adapter::Stderr; # ABSTRACT: Simple adapter for logging to STDERR -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Adapter::Util (); @@ -62,7 +62,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Stdout.pm new/Log-Any-1.714/lib/Log/Any/Adapter/Stdout.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/Stdout.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Stdout.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Adapter::Stdout; # ABSTRACT: Simple adapter for logging to STDOUT -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Adapter::Util (); @@ -62,7 +62,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Syslog.pm new/Log-Any-1.714/lib/Log/Any/Adapter/Syslog.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/Syslog.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Syslog.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Adapter::Syslog; # ABSTRACT: Send Log::Any logs to syslog -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Adapter::Util qw{make_method}; use base qw{Log::Any::Adapter::Base}; @@ -70,9 +70,10 @@ } # We want to avoid re-opening the syslog unnecessarily, so only do it if - # the parameters have changed. + # the parameters have changed or if we don't think Sys::Syslog has + # opened a log yet. my $new_params = $self->_log_params; - if ((not defined $log_params) or ($log_params ne $new_params)) { + if ((not defined $log_params) or ($log_params ne $new_params) or (not $Sys::Syslog::facility)) { $log_params = $new_params; openlog($self->{name}, $self->{options}, $self->{facility}); @@ -112,6 +113,15 @@ return if $logging_levels{$method} < $logging_levels{$self->{log_level}}; + # Bad libraries may call Sys::Syslog::closelog() out from under + # us. If so, we should re-open the log with our desired + # parameters. We likely cannot protect against someone calling + # closelog() from outside Perl, but we could include an adaptor + # flag that calls openlog()/closelog() with every message if the + # program deems it necessary... + if (( not defined $Sys::Syslog::facility ) or ( $Sys::Syslog::facility ne $self->{facility} )) { + openlog($self->{name}, $self->{options}, $self->{facility}); + } syslog($priority, join('', @_)) }); } @@ -141,7 +151,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Test.pm new/Log-Any-1.714/lib/Log/Any/Adapter/Test.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/Test.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Test.pm 2023-03-20 17:48:37.000000000 +0100 @@ -4,7 +4,7 @@ package Log::Any::Adapter::Test; -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Adapter::Util qw/dump_one_line/; use Test::Builder; @@ -218,7 +218,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 AUTHORS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter/Util.pm new/Log-Any-1.714/lib/Log/Any/Adapter/Util.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter/Util.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter/Util.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Adapter::Util; # ABSTRACT: Common utility functions for Log::Any -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Exporter; our @ISA = qw/Exporter/; @@ -241,7 +241,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Adapter.pm new/Log-Any-1.714/lib/Log/Any/Adapter.pm --- old/Log-Any-1.713/lib/Log/Any/Adapter.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Adapter.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Adapter; # ABSTRACT: Tell Log::Any where to send its logs -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any; our @CARP_NOT = ( 'Log::Any::Manager' ); @@ -44,7 +44,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Manager.pm new/Log-Any-1.714/lib/Log/Any/Manager.pm --- old/Log-Any-1.713/lib/Log/Any/Manager.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Manager.pm 2023-03-20 17:48:37.000000000 +0100 @@ -4,7 +4,7 @@ package Log::Any::Manager; -our $VERSION = '1.713'; +our $VERSION = '1.714'; sub new { my $class = shift; @@ -248,7 +248,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 AUTHORS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Proxy/Null.pm new/Log-Any-1.714/lib/Log/Any/Proxy/Null.pm --- old/Log-Any-1.713/lib/Log/Any/Proxy/Null.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Proxy/Null.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Proxy::Null; # ABSTRACT: Log::Any generator proxy for no adapters -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Adapter::Util (); use Log::Any::Proxy; @@ -57,7 +57,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 AUTHORS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Proxy/Test.pm new/Log-Any-1.714/lib/Log/Any/Proxy/Test.pm --- old/Log-Any-1.713/lib/Log/Any/Proxy/Test.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Proxy/Test.pm 2023-03-20 17:48:37.000000000 +0100 @@ -4,7 +4,7 @@ package Log::Any::Proxy::Test; -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Proxy; our @ISA = qw/Log::Any::Proxy/; @@ -42,7 +42,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 AUTHORS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Proxy/WithStackTrace.pm new/Log-Any-1.714/lib/Log/Any/Proxy/WithStackTrace.pm --- old/Log-Any-1.713/lib/Log/Any/Proxy/WithStackTrace.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Proxy/WithStackTrace.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Proxy::WithStackTrace; # ABSTRACT: Log::Any proxy to upgrade string errors to objects with stack traces -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Proxy; our @ISA = qw/Log::Any::Proxy/; @@ -132,7 +132,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Proxy.pm new/Log-Any-1.714/lib/Log/Any/Proxy.pm --- old/Log-Any-1.713/lib/Log/Any/Proxy.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Proxy.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Proxy; # ABSTRACT: Log::Any generator proxy object -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Adapter::Util (); use overload; @@ -150,7 +150,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any/Test.pm new/Log-Any-1.714/lib/Log/Any/Test.pm --- old/Log-Any-1.713/lib/Log/Any/Test.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any/Test.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any::Test; # ABSTRACT: Test what you're logging with Log::Any -our $VERSION = '1.713'; +our $VERSION = '1.714'; no warnings 'once'; $Log::Any::OverrideDefaultAdapterClass = 'Log::Any::Adapter::Test'; @@ -25,7 +25,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/lib/Log/Any.pm new/Log-Any-1.714/lib/Log/Any.pm --- old/Log-Any-1.713/lib/Log/Any.pm 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/lib/Log/Any.pm 2023-03-20 17:48:37.000000000 +0100 @@ -5,7 +5,7 @@ package Log::Any; # ABSTRACT: Bringing loggers and listeners together -our $VERSION = '1.713'; +our $VERSION = '1.714'; use Log::Any::Manager; use Log::Any::Proxy::Null; @@ -135,7 +135,7 @@ =head1 VERSION -version 1.713 +version 1.714 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.713/t/syslog.t new/Log-Any-1.714/t/syslog.t --- old/Log-Any-1.713/t/syslog.t 2022-12-12 19:44:59.000000000 +0100 +++ new/Log-Any-1.714/t/syslog.t 2023-03-20 17:48:37.000000000 +0100 @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 27; +use Test::More tests => 33; use Log::Any qw{$log}; use Log::Any::Adapter; @@ -12,7 +12,10 @@ my @logs; my @openlogs; no warnings qw( redefine once ); -local *Log::Any::Adapter::Syslog::openlog = sub { push @openlogs, \@_ }; +local *Log::Any::Adapter::Syslog::openlog = sub { + push @openlogs, \@_; + $Sys::Syslog::facility = $_[2]; +}; local *Log::Any::Adapter::Syslog::syslog = sub { push @logs, \@_ }; local *Log::Any::Adapter::Syslog::closelog = sub { }; @@ -40,6 +43,7 @@ } # Check that the log was opened +is scalar @openlogs, 1, 'openlog() called once so far'; is $openlogs[-1][0], 'syslog.t', 'log opened with correct name'; is $openlogs[-1][1], 'pid', 'log opened with correct options'; is $openlogs[-1][2], 'local7', 'log opened with correct facility'; @@ -51,6 +55,15 @@ facility => 'user', ); $log->error( "foo" ); +is scalar @openlogs, 2, 'openlog() called twice so far'; +is $openlogs[-1][0], 'foo', 'log opened with correct name'; +is $openlogs[-1][1], 'pid,perror', 'log opened with correct options'; +is $openlogs[-1][2], 'user', 'log opened with correct facility'; + +# Check that a closed log gets re-opened +Sys::Syslog::closelog(); +$log->info( 'reopened' ); +is scalar @openlogs, 3, 'openlog() called thrice so far'; is $openlogs[-1][0], 'foo', 'log opened with correct name'; is $openlogs[-1][1], 'pid,perror', 'log opened with correct options'; is $openlogs[-1][2], 'user', 'log opened with correct facility';
