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 2023-09-13 20:44:16
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Log-Dispatchouli (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Log-Dispatchouli.new.1766 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Log-Dispatchouli"

Wed Sep 13 20:44:16 2023 rev:21 rq:1110663 version:3.7.0

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/perl-Log-Dispatchouli/perl-Log-Dispatchouli.changes  
    2023-06-13 16:10:44.127319160 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Log-Dispatchouli.new.1766/perl-Log-Dispatchouli.changes
    2023-09-13 20:45:04.115156789 +0200
@@ -1,0 +2,17 @@
+Tue Sep  5 16:50:36 UTC 2023 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 3.007
+   see /usr/share/doc/packages/perl-Log-Dispatchouli/Changes
+
+  3.007     2023-09-02 20:18:04-04:00 America/New_York
+          - add the is_X methods to Proxy as they were on the root logger
+            (thanks, Charlie Garrison)
+          - in Log::Fmt tests, cope with the slightly different output of
+            JSON::PP versus the XS implementations
+
+  3.006     2023-08-11 10:58:09-04:00 America/New_York
+          - fix a bug in Log::Fmt where an event data value that was a 
reference
+            to a reference to an array was logged as its 0th element, not a
+            flogged array reference
+
+-------------------------------------------------------------------

Old:
----
  Log-Dispatchouli-3.005.tar.gz

New:
----
  Log-Dispatchouli-3.007.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Log-Dispatchouli.spec ++++++
--- /var/tmp/diff_new_pack.5Qc76d/_old  2023-09-13 20:45:05.115192341 +0200
+++ /var/tmp/diff_new_pack.5Qc76d/_new  2023-09-13 20:45:05.115192341 +0200
@@ -18,12 +18,13 @@
 
 %define cpan_name Log-Dispatchouli
 Name:           perl-Log-Dispatchouli
-Version:        3.005
+Version:        3.7.0
 Release:        0
+%define cpan_version 3.007
 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}-%{version}.tar.gz
+Source0:        
https://cpan.metacpan.org/authors/id/R/RJ/RJBS/%{cpan_name}-%{cpan_version}.tar.gz
 Source1:        cpanspec.yml
 BuildArch:      noarch
 BuildRequires:  perl
@@ -57,6 +58,11 @@
 Requires:       perl(Sys::Syslog) >= 0.16
 Requires:       perl(Try::Tiny) >= 0.04
 Requires:       perl(experimental)
+Provides:       perl(Log::Dispatchouli) = 3.7.0
+Provides:       perl(Log::Dispatchouli::Global) = 3.7.0
+Provides:       perl(Log::Dispatchouli::Proxy) = 3.7.0
+Provides:       perl(Log::Fmt) = 3.7.0
+%define         __perllib_provides /bin/true
 %{perl_requires}
 
 %description
@@ -78,7 +84,7 @@
 String::Flogger docs.
 
 %prep
-%autosetup  -n %{cpan_name}-%{version}
+%autosetup  -n %{cpan_name}-%{cpan_version}
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor

++++++ Log-Dispatchouli-3.005.tar.gz -> Log-Dispatchouli-3.007.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/Changes 
new/Log-Dispatchouli-3.007/Changes
--- old/Log-Dispatchouli-3.005/Changes  2023-06-09 02:41:03.000000000 +0200
+++ new/Log-Dispatchouli-3.007/Changes  2023-09-03 02:18:05.000000000 +0200
@@ -1,5 +1,16 @@
 Revision history for Log-Dispatchouli
 
+3.007     2023-09-02 20:18:04-04:00 America/New_York
+        - add the is_X methods to Proxy as they were on the root logger
+          (thanks, Charlie Garrison)
+        - in Log::Fmt tests, cope with the slightly different output of
+          JSON::PP versus the XS implementations
+
+3.006     2023-08-11 10:58:09-04:00 America/New_York
+        - fix a bug in Log::Fmt where an event data value that was a reference
+          to a reference to an array was logged as its 0th element, not a
+          flogged array reference
+
 3.005     2023-06-08 20:41:02-04:00 America/New_York
         - add parse_event_string_as_hash, which loses duplicate k/v pairs
           but makes life a little easier
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/LICENSE 
new/Log-Dispatchouli-3.007/LICENSE
--- old/Log-Dispatchouli-3.005/LICENSE  2023-06-09 02:41:03.000000000 +0200
+++ new/Log-Dispatchouli-3.007/LICENSE  2023-09-03 02:18:05.000000000 +0200
@@ -270,110 +270,143 @@
 That's all there is to it!
 
 
---- The Artistic License 1.0 ---
+--- The Perl Artistic License 1.0 ---
 
 This software is Copyright (c) 2023 by Ricardo SIGNES.
 
 This is free software, licensed under:
 
-  The Artistic License 1.0
+  The Perl Artistic License 1.0
 
-The Artistic License
 
-Preamble
 
-The intent of this document is to state the conditions under which a Package
-may be copied, such that the Copyright Holder maintains some semblance of
-artistic control over the development of the package, while giving the users of
-the package the right to use and distribute the Package in a more-or-less
-customary fashion, plus the right to make reasonable modifications.
+
+
+                         The "Artistic License"
+
+                                Preamble
+
+The intent of this document is to state the conditions under which a
+Package may be copied, such that the Copyright Holder maintains some
+semblance of artistic control over the development of the package,
+while giving the users of the package the right to use and distribute
+the Package in a more-or-less customary fashion, plus the right to make
+reasonable modifications.
 
 Definitions:
 
-  - "Package" refers to the collection of files distributed by the Copyright
-    Holder, and derivatives of that collection of files created through
-    textual modification.
-  - "Standard Version" refers to such a Package if it has not been modified,
-    or has been modified in accordance with the wishes of the Copyright
-    Holder.
-  - "Copyright Holder" is whoever is named in the copyright or copyrights for
-    the package.
-  - "You" is you, if you're thinking about copying or distributing this 
Package.
-  - "Reasonable copying fee" is whatever you can justify on the basis of media
-    cost, duplication charges, time of people involved, and so on. (You will
-    not be required to justify it to the Copyright Holder, but only to the
-    computing community at large as a market that must bear the fee.)
-  - "Freely Available" means that no fee is charged for the item itself, though
-    there may be fees involved in handling the item. It also means that
-    recipients of the item may redistribute it under the same conditions they
-    received it.
+        "Package" refers to the collection of files distributed by the
+        Copyright Holder, and derivatives of that collection of files
+        created through textual modification.
+
+        "Standard Version" refers to such a Package if it has not been
+        modified, or has been modified in accordance with the wishes
+        of the Copyright Holder as specified below.
+
+        "Copyright Holder" is whoever is named in the copyright or
+        copyrights for the package.
+
+        "You" is you, if you're thinking about copying or distributing
+        this Package.
+
+        "Reasonable copying fee" is whatever you can justify on the
+        basis of media cost, duplication charges, time of people involved,
+        and so on.  (You will not be required to justify it to the
+        Copyright Holder, but only to the computing community at large
+        as a market that must bear the fee.)
+
+        "Freely Available" means that no fee is charged for the item
+        itself, though there may be fees involved in handling the item.
+        It also means that recipients of the item may redistribute it
+        under the same conditions they received it.
 
 1. You may make and give away verbatim copies of the source form of the
 Standard Version of this Package without restriction, provided that you
 duplicate all of the original copyright notices and associated disclaimers.
 
-2. You may apply bug fixes, portability fixes and other modifications derived
-from the Public Domain or from the Copyright Holder. A Package modified in such
-a way shall still be considered the Standard Version.
-
-3. You may otherwise modify your copy of this Package in any way, provided that
-you insert a prominent notice in each changed file stating how and when you
-changed that file, and provided that you do at least ONE of the following:
-
-  a) place your modifications in the Public Domain or otherwise make them
-     Freely Available, such as by posting said modifications to Usenet or an
-     equivalent medium, or placing the modifications on a major archive site
-     such as ftp.uu.net, or by allowing the Copyright Holder to include your
-     modifications in the Standard Version of the Package.
-
-  b) use the modified Package only within your corporation or organization.
-
-  c) rename any non-standard executables so the names do not conflict with
-     standard executables, which must also be provided, and provide a separate
-     manual page for each non-standard executable that clearly documents how it
-     differs from the Standard Version.
-
-  d) make other distribution arrangements with the Copyright Holder.
-
-4. You may distribute the programs of this Package in object code or executable
-form, provided that you do at least ONE of the following:
-
-  a) distribute a Standard Version of the executables and library files,
-     together with instructions (in the manual page or equivalent) on where to
-     get the Standard Version.
-
-  b) accompany the distribution with the machine-readable source of the Package
-     with your modifications.
-
-  c) accompany any non-standard executables with their corresponding Standard
-     Version executables, giving the non-standard executables non-standard
-     names, and clearly documenting the differences in manual pages (or
-     equivalent), together with instructions on where to get the Standard
-     Version.
+2. You may apply bug fixes, portability fixes and other modifications
+derived from the Public Domain or from the Copyright Holder.  A Package
+modified in such a way shall still be considered the Standard Version.
 
-  d) make other distribution arrangements with the Copyright Holder.
+3. You may otherwise modify your copy of this Package in any way, provided
+that you insert a prominent notice in each changed file stating how and
+when you changed that file, and provided that you do at least ONE of the
+following:
 
-5. You may charge a reasonable copying fee for any distribution of this
-Package.  You may charge any fee you choose for support of this Package. You
-may not charge a fee for this Package itself. However, you may distribute this
-Package in aggregate with other (possibly commercial) programs as part of a
-larger (possibly commercial) software distribution provided that you do not
-advertise this Package as a product of your own.
-
-6. The scripts and library files supplied as input to or produced as output
-from the programs of this Package do not automatically fall under the copyright
-of this Package, but belong to whomever generated them, and may be sold
-commercially, and may be aggregated with this Package.
+    a) place your modifications in the Public Domain or otherwise make them
+    Freely Available, such as by posting said modifications to Usenet or
+    an equivalent medium, or placing the modifications on a major archive
+    site such as uunet.uu.net, or by allowing the Copyright Holder to include
+    your modifications in the Standard Version of the Package.
+
+    b) use the modified Package only within your corporation or organization.
+
+    c) rename any non-standard executables so the names do not conflict
+    with standard executables, which must also be provided, and provide
+    a separate manual page for each non-standard executable that clearly
+    documents how it differs from the Standard Version.
 
-7. C or perl subroutines supplied by you and linked into this Package shall not
-be considered part of this Package.
+    d) make other distribution arrangements with the Copyright Holder.
+
+4. You may distribute the programs of this Package in object code or
+executable form, provided that you do at least ONE of the following:
+
+    a) distribute a Standard Version of the executables and library files,
+    together with instructions (in the manual page or equivalent) on where
+    to get the Standard Version.
+
+    b) accompany the distribution with the machine-readable source of
+    the Package with your modifications.
+
+    c) give non-standard executables non-standard names, and clearly
+    document the differences in manual pages (or equivalent), together
+    with instructions on where to get the Standard Version.
+
+    d) make other distribution arrangements with the Copyright Holder.
+
+5. You may charge a reasonable copying fee for any distribution of this
+Package.  You may charge any fee you choose for support of this
+Package.  You may not charge a fee for this Package itself.  However,
+you may distribute this Package in aggregate with other (possibly
+commercial) programs as part of a larger (possibly commercial) software
+distribution provided that you do not advertise this Package as a
+product of your own.  You may embed this Package's interpreter within
+an executable of yours (by linking); this shall be construed as a mere
+form of aggregation, provided that the complete Standard Version of the
+interpreter is so embedded.
+
+6. The scripts and library files supplied as input to or produced as
+output from the programs of this Package do not automatically fall
+under the copyright of this Package, but belong to whoever generated
+them, and may be sold commercially, and may be aggregated with this
+Package.  If such scripts or library files are aggregated with this
+Package via the so-called "undump" or "unexec" methods of producing a
+binary executable image, then distribution of such an image shall
+neither be construed as a distribution of this Package nor shall it
+fall under the restrictions of Paragraphs 3 and 4, provided that you do
+not represent such an executable image as a Standard Version of this
+Package.
+
+7. C subroutines (or comparably compiled subroutines in other
+languages) supplied by you and linked into this Package in order to
+emulate subroutines and variables of the language defined by this
+Package shall not be considered part of this Package, but are the
+equivalent of input as in Paragraph 6, provided these subroutines do
+not change the language in any way that would cause it to fail the
+regression tests for the language.
+
+8. Aggregation of this Package with a commercial distribution is always
+permitted provided that the use of this Package is embedded; that is,
+when no overt attempt is made to make this Package's interfaces visible
+to the end user of the commercial distribution.  Such use shall not be
+construed as a distribution of this Package.
 
-8. The name of the Copyright Holder may not be used to endorse or promote
+9. The name of the Copyright Holder may not be used to endorse or promote
 products derived from this software without specific prior written permission.
 
-9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 
-The End
+                                The End
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/META.json 
new/Log-Dispatchouli-3.007/META.json
--- old/Log-Dispatchouli-3.005/META.json        2023-06-09 02:41:03.000000000 
+0200
+++ new/Log-Dispatchouli-3.007/META.json        2023-09-03 02:18:05.000000000 
+0200
@@ -80,10 +80,10 @@
          "web" : "https://github.com/rjbs/Log-Dispatchouli";
       }
    },
-   "version" : "3.005",
+   "version" : "3.007",
    "x_Dist_Zilla" : {
       "perl" : {
-         "version" : "5.037010"
+         "version" : "5.038000"
       },
       "plugins" : [
          {
@@ -470,7 +470,7 @@
                   "branch" : null,
                   "changelog" : "Changes",
                   "signed" : 0,
-                  "tag" : "3.005",
+                  "tag" : "3.007",
                   "tag_format" : "%v",
                   "tag_message" : "v%V"
                },
@@ -587,6 +587,7 @@
       }
    },
    "x_contributors" : [
+      "Charlie Garrison <c...@garrison.com.au>",
       "Christopher J. Madsen <p...@cjmweb.net>",
       "Dagfinn Ilmari Manns\u00e5ker <ilm...@ilmari.org>",
       "Dan Book <gri...@gmail.com>",
@@ -599,7 +600,7 @@
       "Ricardo Signes <r...@users.noreply.github.com>",
       "Sawyer X <xsawy...@cpan.org>"
    ],
-   "x_generated_by_perl" : "v5.37.10",
+   "x_generated_by_perl" : "v5.38.0",
    "x_rjbs_perl_window" : "long-term",
    "x_serialization_backend" : "Cpanel::JSON::XS version 4.36",
    "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/META.yml 
new/Log-Dispatchouli-3.007/META.yml
--- old/Log-Dispatchouli-3.005/META.yml 2023-06-09 02:41:03.000000000 +0200
+++ new/Log-Dispatchouli-3.007/META.yml 2023-09-03 02:18:05.000000000 +0200
@@ -47,10 +47,10 @@
   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.005'
+version: '3.007'
 x_Dist_Zilla:
   perl:
-    version: '5.037010'
+    version: '5.038000'
   plugins:
     -
       class: Dist::Zilla::Plugin::Git::GatherDir
@@ -351,7 +351,7 @@
           branch: ~
           changelog: Changes
           signed: 0
-          tag: '3.005'
+          tag: '3.007'
           tag_format: '%v'
           tag_message: v%V
         Dist::Zilla::Role::Git::Repo:
@@ -438,6 +438,7 @@
       is_trial: 0
     version: '6.030'
 x_contributors:
+  - 'Charlie Garrison <c...@garrison.com.au>'
   - 'Christopher J. Madsen <p...@cjmweb.net>'
   - 'Dagfinn Ilmari Mannsåker <ilm...@ilmari.org>'
   - 'Dan Book <gri...@gmail.com>'
@@ -449,7 +450,7 @@
   - 'Ricardo Signes <rjbs@semiotic.systems>'
   - 'Ricardo Signes <r...@users.noreply.github.com>'
   - 'Sawyer X <xsawy...@cpan.org>'
-x_generated_by_perl: v5.37.10
+x_generated_by_perl: v5.38.0
 x_rjbs_perl_window: long-term
-x_serialization_backend: 'YAML::Tiny version 1.73'
+x_serialization_backend: 'YAML::Tiny version 1.74'
 x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/Makefile.PL 
new/Log-Dispatchouli-3.007/Makefile.PL
--- old/Log-Dispatchouli-3.005/Makefile.PL      2023-06-09 02:41:03.000000000 
+0200
+++ new/Log-Dispatchouli-3.007/Makefile.PL      2023-09-03 02:18:05.000000000 
+0200
@@ -49,7 +49,7 @@
     "lib" => 0,
     "utf8" => 0
   },
-  "VERSION" => "3.005",
+  "VERSION" => "3.007",
   "test" => {
     "TESTS" => "t/*.t"
   }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/README 
new/Log-Dispatchouli-3.007/README
--- old/Log-Dispatchouli-3.005/README   2023-06-09 02:41:03.000000000 +0200
+++ new/Log-Dispatchouli-3.007/README   2023-09-03 02:18:05.000000000 +0200
@@ -1,5 +1,5 @@
 This archive contains the distribution Log-Dispatchouli,
-version 3.005:
+version 3.007:
 
   a simple wrapper around Log::Dispatch
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/Log-Dispatchouli-3.005/lib/Log/Dispatchouli/Global.pm 
new/Log-Dispatchouli-3.007/lib/Log/Dispatchouli/Global.pm
--- old/Log-Dispatchouli-3.005/lib/Log/Dispatchouli/Global.pm   2023-06-09 
02:41:03.000000000 +0200
+++ new/Log-Dispatchouli-3.007/lib/Log/Dispatchouli/Global.pm   2023-09-03 
02:18:05.000000000 +0200
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-package Log::Dispatchouli::Global 3.005;
+package Log::Dispatchouli::Global 3.007;
 # ABSTRACT: a system for sharing a global, dynamically-scoped logger
 
 use Carp ();
@@ -280,7 +280,7 @@
 
 =head1 VERSION
 
-version 3.005
+version 3.007
 
 =head1 DESCRIPTION
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/lib/Log/Dispatchouli/Proxy.pm 
new/Log-Dispatchouli-3.007/lib/Log/Dispatchouli/Proxy.pm
--- old/Log-Dispatchouli-3.005/lib/Log/Dispatchouli/Proxy.pm    2023-06-09 
02:41:03.000000000 +0200
+++ new/Log-Dispatchouli-3.007/lib/Log/Dispatchouli/Proxy.pm    2023-09-03 
02:18:05.000000000 +0200
@@ -1,6 +1,6 @@
 use v5.20;
 use warnings;
-package Log::Dispatchouli::Proxy 3.005;
+package Log::Dispatchouli::Proxy 3.007;
 # ABSTRACT: a simple wrapper around Log::Dispatch
 
 use experimental 'postderef'; # Not dangerous.  Is accepted without changed.
@@ -84,6 +84,10 @@
   return $_[0]->parent->get_debug;
 }
 
+sub is_debug { $_[0]->get_debug }
+sub is_info  { 1 }
+sub is_fatal { 1 }
+
 sub mute   { $_[0]{muted} = 1 }
 sub unmute { $_[0]{muted} = 0 }
 
@@ -197,7 +201,7 @@
 
 =head1 VERSION
 
-version 3.005
+version 3.007
 
 =head1 DESCRIPTION
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/lib/Log/Dispatchouli.pm 
new/Log-Dispatchouli-3.007/lib/Log/Dispatchouli.pm
--- old/Log-Dispatchouli-3.005/lib/Log/Dispatchouli.pm  2023-06-09 
02:41:03.000000000 +0200
+++ new/Log-Dispatchouli-3.007/lib/Log/Dispatchouli.pm  2023-09-03 
02:18:05.000000000 +0200
@@ -1,6 +1,6 @@
 use v5.20;
 use warnings;
-package Log::Dispatchouli 3.005;
+package Log::Dispatchouli 3.007;
 # ABSTRACT: a simple wrapper around Log::Dispatch
 
 use experimental 'postderef'; # Not dangerous.  Is accepted without changed.
@@ -866,7 +866,7 @@
 
 =head1 VERSION
 
-version 3.005
+version 3.007
 
 =head1 SYNOPSIS
 
@@ -1325,12 +1325,16 @@
 
 =head1 CONTRIBUTORS
 
-=for stopwords Christopher J. Madsen Dagfinn Ilmari Mannsåker Dan Book George 
Hartzell Jon Stuart Matt Phillips Olivier Mengué Randy Stauner Ricardo Signes 
Sawyer X
+=for stopwords Charlie Garrison Christopher J. Madsen Dagfinn Ilmari 
Mannsåker Dan Book George Hartzell Jon Stuart Matt Phillips Olivier Mengué 
Randy Stauner Ricardo Signes Sawyer X
 
 =over 4
 
 =item *
 
+Charlie Garrison <c...@garrison.com.au>
+
+=item *
+
 Christopher J. Madsen <p...@cjmweb.net>
 
 =item *
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/lib/Log/Fmt.pm 
new/Log-Dispatchouli-3.007/lib/Log/Fmt.pm
--- old/Log-Dispatchouli-3.005/lib/Log/Fmt.pm   2023-06-09 02:41:03.000000000 
+0200
+++ new/Log-Dispatchouli-3.007/lib/Log/Fmt.pm   2023-09-03 02:18:05.000000000 
+0200
@@ -1,12 +1,13 @@
 use v5.20;
 use warnings;
-package Log::Fmt 3.005;
+package Log::Fmt 3.007;
 # ABSTRACT: a little parser and emitter of structured log lines
 
 use experimental 'postderef'; # Not dangerous.  Is accepted without changed.
 
 use Params::Util qw(_ARRAY0 _HASH0 _CODELIKE);
 use Scalar::Util qw(refaddr);
+use String::Flogger ();
 
 #pod =head1 OVERVIEW
 #pod
@@ -72,7 +73,7 @@
     }
 
     if (ref $value && ref $value eq 'REF') {
-      $value = $self->string_flogger->flog($$value);
+      $value = $self->string_flogger->flog([ '%s', $$value ]);
     }
 
     if (! defined $value) {
@@ -220,7 +221,7 @@
 
 =head1 VERSION
 
-version 3.005
+version 3.007
 
 =head1 OVERVIEW
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Dispatchouli-3.005/t/events.t 
new/Log-Dispatchouli-3.007/t/events.t
--- old/Log-Dispatchouli-3.005/t/events.t       2023-06-09 02:41:03.000000000 
+0200
+++ new/Log-Dispatchouli-3.007/t/events.t       2023-09-03 02:18:05.000000000 
+0200
@@ -67,8 +67,8 @@
     ident   => 't/basic.t',
   });
 
-  my $proxy1 = $logger->proxy({ proxy_ctx => { 'inner' => 'proxy' } });
-  my $proxy2 = $proxy1->proxy({ proxy_ctx => { 'outer' => 'proxy' } });
+  my $proxy1 = $logger->proxy({ proxy_ctx => { 'outer' => 'proxy' } });
+  my $proxy2 = $proxy1->proxy({ proxy_ctx => { 'inner' => 'proxy' } });
 
   return ($logger, $proxy1, $proxy2);
 }
@@ -203,7 +203,7 @@
   messages_ok(
     $logger,
     [
-      'event=pie_picnic inner=proxy outer=proxy pies_eaten=1.2 joy_harvested=6'
+      'event=pie_picnic outer=proxy inner=proxy pies_eaten=1.2 joy_harvested=6'
     ],
     'got the expected log output from events',
   );
@@ -228,11 +228,11 @@
     $logger,
     [
       # 'event=0 seq=0',                          # not logged, debugging
-      'event=1 inner=proxy seq=1',
-      'event=2 inner=proxy outer=proxy seq=2',
+      'event=1 outer=proxy seq=1',
+      'event=2 outer=proxy inner=proxy seq=2',
       # 'event=0 seq=3',                          # not logged, debugging
-      'event=1 inner=proxy seq=4',
-      # 'event=2 inner=proxy outer=proxy seq=5',  # not logged, debugging
+      'event=1 outer=proxy seq=4',
+      # 'event=2 outer=proxy inner=proxy seq=5',  # not logged, debugging
     ],
     'got the expected log output from events',
   );
@@ -296,27 +296,27 @@
   my $called_B = 0;
   my $callback_B = sub { $called_B++; return 'X' };
 
-  my $proxy1 = $logger->proxy({ proxy_ctx => [ inner => $callback_A ] });
-  my $proxy2 = $proxy1->proxy({ proxy_ctx => [ outer => $callback_B ] });
+  my $proxy1 = $logger->proxy({ proxy_ctx => [ outer => $callback_A ] });
+  my $proxy2 = $proxy1->proxy({ proxy_ctx => [ inner => $callback_B ] });
 
-  $proxy1->log_event('inner-event' => [ guitar => 'electric' ]);
+  $proxy1->log_event('outer-event' => [ guitar => 'electric' ]);
 
-  is($called_A, 1, "inner proxy did log, called inner callback");
-  is($called_B, 0, "inner proxy did log, didn't call outer callback");
+  is($called_A, 1, "outer proxy did log, called outer callback");
+  is($called_B, 0, "outer proxy did log, didn't call inner callback");
 
-  $proxy2->log_event('outer-event' => [ mandolin => 'bluegrass' ]);
+  $proxy2->log_event('inner-event' => [ mandolin => 'bluegrass' ]);
 
-  is($called_A, 1, "outer proxy did log, didn't re-call inner callback");
-  is($called_B, 1, "outer proxy did log, did call outer callback");
+  is($called_A, 1, "inner proxy did log, didn't re-call outer callback");
+  is($called_B, 1, "inner proxy did log, did call inner callback");
 
-  $proxy2->log_event('outer-second' => [ snare => 'infinite' ]);
+  $proxy2->log_event('inner-second' => [ snare => 'infinite' ]);
 
   messages_ok(
     $logger,
     [
-      'event=inner-event inner=X guitar=electric',
-      'event=outer-event inner=X outer=X mandolin=bluegrass',
-      'event=outer-second inner=X outer=X snare=infinite',
+      'event=outer-event outer=X guitar=electric',
+      'event=inner-event outer=X inner=X mandolin=bluegrass',
+      'event=inner-second outer=X inner=X snare=infinite',
     ],
     "all our laziness didn't change our results",
   );
@@ -352,6 +352,7 @@
   $logger->log_event('json-demo' => [
     foo =>  { a => 1 },
     bar => \{ a => 1 },
+    baz => \[ 12, 34 ],
   ]);
 
   my @messages = map {; $_->{message} } $logger->events->@*;
@@ -359,7 +360,15 @@
   messages_ok(
     $logger,
     [
-      'event=json-demo foo.a=1 bar="{{{\"a\": 1}}}"',
+      # XS and PP versions of JSON differ on space, so we need "12, 34" and
+      # "12,34" both.  Then things get weird, because the version with no
+      # spaces (pure perl, at least as of today) doesn't need to be quoted to
+      # be used as a logfmt value, so the quotes are now optional.  Wild.
+      # -- rjbs, 2023-09-02
+      any(
+        'event=json-demo foo.a=1 bar="{{{\"a\": 1}}}" baz="{{[12, 34]}}"',
+        'event=json-demo foo.a=1 bar="{{{\"a\": 1}}}" baz={{[12,34]}}',
+      ),
     ],
     "refref becomes JSON flogged",
   );
@@ -371,7 +380,8 @@
     [
       event   => 'json-demo',
       'foo.a' => 1,
-      bar     => re(qr/\A\{\{.+\}\}\z/),
+      bar     => "{{{\"a\": 1}}}",
+      baz     => any("{{[12, 34]}}", "{{[12,34]}}"),
     ],
     "parsing gets us JSON string out, because it is just strings",
   );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/Log-Dispatchouli-3.005/xt/release/changes_has_content.t 
new/Log-Dispatchouli-3.007/xt/release/changes_has_content.t
--- old/Log-Dispatchouli-3.005/xt/release/changes_has_content.t 2023-06-09 
02:41:03.000000000 +0200
+++ new/Log-Dispatchouli-3.007/xt/release/changes_has_content.t 2023-09-03 
02:18:05.000000000 +0200
@@ -2,7 +2,7 @@
 
 note 'Checking Changes';
 my $changes_file = 'Changes';
-my $newver = '3.005';
+my $newver = '3.007';
 my $trial_token = '-TRIAL';
 my $encoding = 'UTF-8';
 

Reply via email to