Hello community, here is the log from the commit of package perl-Log-Dispatch for openSUSE:Factory checked in at 2013-07-29 17:49:29 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Log-Dispatch (Old) and /work/SRC/openSUSE:Factory/.perl-Log-Dispatch.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Log-Dispatch" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Log-Dispatch/perl-Log-Dispatch.changes 2013-06-05 19:32:34.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Log-Dispatch.new/perl-Log-Dispatch.changes 2013-07-29 17:49:30.000000000 +0200 @@ -1,0 +2,12 @@ +Fri Jul 26 10:01:24 UTC 2013 - [email protected] + +- updated to 2.41 + - An error is now thrown if you call Log::Dispatch->log without a + level. Previously you'd just get a warning and then execution would continue + (without logging anything). Patch by Ross Attrill. RT #87133. + + - Added a conflict entry for older Log::Dispatch::File::Stamped to the + metadata. Patch by Karen Etheridge. RT #86215. +- remove outdated Log-Dispatch-old_Test-More.patch + +------------------------------------------------------------------- Old: ---- Log-Dispatch-2.39.tar.gz New: ---- Log-Dispatch-2.41.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Log-Dispatch.spec ++++++ --- /var/tmp/diff_new_pack.Ykwq6U/_old 2013-07-29 17:49:31.000000000 +0200 +++ /var/tmp/diff_new_pack.Ykwq6U/_new 2013-07-29 17:49:31.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Log-Dispatch -Version: 2.39 +Version: 2.41 Release: 0 %define cpan_name Log-Dispatch Summary: Dispatches messages to one or more outputs @@ -25,13 +25,12 @@ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Log-Dispatch/ Source: http://www.cpan.org/authors/id/D/DR/DROLSKY/%{cpan_name}-%{version}.tar.gz -# MANUAL -Patch1: Log-Dispatch-old_Test-More.patch BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Class::Load) +BuildRequires: perl(Dist::CheckConflicts) >= 0.02 BuildRequires: perl(Params::Validate) >= 0.15 BuildRequires: perl(Sys::Syslog) >= 0.25 BuildRequires: perl(Test::More) >= 0.88 @@ -53,6 +52,7 @@ #BuildRequires: perl(MIME::Lite) #BuildRequires: perl(Test::Spelling) Requires: perl(Class::Load) +Requires: perl(Dist::CheckConflicts) >= 0.02 Requires: perl(Params::Validate) >= 0.15 Requires: perl(Sys::Syslog) >= 0.25 %{perl_requires} @@ -74,13 +74,6 @@ %prep %setup -q -n %{cpan_name}-%{version} find . -type f -print0 | xargs -0 chmod 644 -# MANUAL BEGIN -%if 0%{?suse_version} <= 1110 -%patch1 -p1 -# only needed for the maintainer: -rm t/02-email-exit.t -%endif -# MANUAL END %build %{__perl} Makefile.PL INSTALLDIRS=vendor ++++++ Log-Dispatch-2.39.tar.gz -> Log-Dispatch-2.41.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/Changes new/Log-Dispatch-2.41/Changes --- old/Log-Dispatch-2.39/Changes 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/Changes 2013-07-22 17:38:01.000000000 +0200 @@ -1,3 +1,16 @@ +2.41 2013-07-22 + +- An error is now thrown if you call Log::Dispatch->log without a + level. Previously you'd just get a warning and then execution would continue + (without logging anything). Patch by Ross Attrill. RT #87133. + + +2.40 2013-07-01 + +- Added a conflict entry for older Log::Dispatch::File::Stamped to the + metadata. Patch by Karen Etheridge. RT #86215. + + 2.39 2013-04-21 - You can now pass a port option to the MailSender output. Patch by Whitney diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/MANIFEST new/Log-Dispatch-2.41/MANIFEST --- old/Log-Dispatch-2.39/MANIFEST 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/MANIFEST 2013-07-22 17:38:01.000000000 +0200 @@ -11,6 +11,7 @@ lib/Log/Dispatch/ApacheLog.pm lib/Log/Dispatch/Base.pm lib/Log/Dispatch/Code.pm +lib/Log/Dispatch/Conflicts.pm lib/Log/Dispatch/Email.pm lib/Log/Dispatch/Email/MIMELite.pm lib/Log/Dispatch/Email/MailSend.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/META.json new/Log-Dispatch-2.41/META.json --- old/Log-Dispatch-2.39/META.json 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/META.json 2013-07-22 17:38:01.000000000 +0200 @@ -16,6 +16,7 @@ "prereqs" : { "configure" : { "requires" : { + "Dist::CheckConflicts" : "0.02", "ExtUtils::MakeMaker" : "6.30" } }, @@ -27,6 +28,7 @@ "runtime" : { "requires" : { "Class::Load" : "0", + "Dist::CheckConflicts" : "0.02", "Params::Validate" : "0.15", "Sys::Syslog" : "0.25" } @@ -50,6 +52,9 @@ "web" : "http://git.urth.org/Log-Dispatch.git"; } }, - "version" : "2.39" + "version" : "2.41", + "x_breaks" : { + "Log::Dispatch::File::Stamped" : "0.10" + } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/META.yml new/Log-Dispatch-2.41/META.yml --- old/Log-Dispatch-2.39/META.yml 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/META.yml 2013-07-22 17:38:01.000000000 +0200 @@ -6,6 +6,7 @@ File::Temp: 0 Test::More: 0.88 configure_requires: + Dist::CheckConflicts: 0.02 ExtUtils::MakeMaker: 6.30 dynamic_config: 0 generated_by: 'Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.120921' @@ -16,9 +17,12 @@ name: Log-Dispatch requires: Class::Load: 0 + Dist::CheckConflicts: 0.02 Params::Validate: 0.15 Sys::Syslog: 0.25 resources: bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Log-Dispatch repository: git://git.urth.org/Log-Dispatch.git -version: 2.39 +version: 2.41 +x_breaks: + Log::Dispatch::File::Stamped: 0.10 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/Makefile.PL new/Log-Dispatch-2.41/Makefile.PL --- old/Log-Dispatch-2.39/Makefile.PL 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/Makefile.PL 2013-07-22 17:38:01.000000000 +0200 @@ -5,6 +5,7 @@ use ExtUtils::MakeMaker 6.30; +check_conflicts(); @@ -13,6 +14,7 @@ "AUTHOR" => "Dave Rolsky <autarch\@urth.org>", "BUILD_REQUIRES" => {}, "CONFIGURE_REQUIRES" => { + "Dist::CheckConflicts" => "0.02", "ExtUtils::MakeMaker" => "6.30" }, "DISTNAME" => "Log-Dispatch", @@ -21,6 +23,7 @@ "NAME" => "Log::Dispatch", "PREREQ_PM" => { "Class::Load" => 0, + "Dist::CheckConflicts" => "0.02", "Params::Validate" => "0.15", "Sys::Syslog" => "0.25" }, @@ -28,7 +31,7 @@ "File::Temp" => 0, "Test::More" => "0.88" }, - "VERSION" => "2.39", + "VERSION" => "2.41", "test" => { "TESTS" => "t/*.t" } @@ -68,3 +71,34 @@ + +sub check_conflicts { + if ( eval { require 'lib/Log/Dispatch/Conflicts.pm'; 1; } ) { + if ( eval { Log::Dispatch::Conflicts->check_conflicts; 1 } ) { + return; + } + else { + my $err = $@; + $err =~ s/^/ /mg; + warn "***\n$err***\n"; + } + } + else { + print <<'EOF'; +*** + Your toolchain doesn't support configure_requires, so Dist::CheckConflicts + hasn't been installed yet. You should check for conflicting modules + manually by examining the list of conflicts in Log::Dispatch::Conflicts once the installation + finishes. +*** +EOF + } + + return if $ENV{AUTOMATED_TESTING} || $ENV{NONINTERACTIVE_TESTING}; + + # More or less copied from Module::Build + return if $ENV{PERL_MM_USE_DEFAULT}; + return unless -t STDIN && ( -t STDOUT || !( -f STDOUT || -c STDOUT ) ); + + sleep 4; +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/README new/Log-Dispatch-2.41/README --- old/Log-Dispatch-2.39/README 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/README 2013-07-22 17:38:01.000000000 +0200 @@ -1,7 +1,7 @@ This archive contains the distribution Log-Dispatch, -version 2.39: +version 2.41: Dispatches messages to one or more outputs diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/dist.ini new/Log-Dispatch-2.41/dist.ini --- old/Log-Dispatch-2.39/dist.ini 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/dist.ini 2013-07-22 17:38:01.000000000 +0200 @@ -3,7 +3,7 @@ license = Artistic_2_0 copyright_holder = Dave Rolsky -version = 2.39 +version = 2.41 [NextRelease] format = %-8v %{yyyy-MM-dd}d @@ -43,3 +43,6 @@ [CheckPrereqsIndexed] [@Git] + +[Conflicts] +Log::Dispatch::File::Stamped = 0.10 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/ApacheLog.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/ApacheLog.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/ApacheLog.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/ApacheLog.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::ApacheLog; { - $Log::Dispatch::ApacheLog::VERSION = '2.39'; + $Log::Dispatch::ApacheLog::VERSION = '2.41'; } use strict; @@ -69,7 +69,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Base.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Base.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Base.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Base.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Base; { - $Log::Dispatch::Base::VERSION = '2.39'; + $Log::Dispatch::Base::VERSION = '2.41'; } use strict; @@ -60,7 +60,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Code.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Code.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Code.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Code.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Code; { - $Log::Dispatch::Code::VERSION = '2.39'; + $Log::Dispatch::Code::VERSION = '2.41'; } use strict; @@ -50,7 +50,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Conflicts.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Conflicts.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Conflicts.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Conflicts.pm 2013-07-22 17:38:01.000000000 +0200 @@ -0,0 +1,43 @@ +package # hide from PAUSE + Log::Dispatch::Conflicts; + +use strict; +use warnings; + +use Dist::CheckConflicts + -dist => 'Log::Dispatch', + -conflicts => { + 'Log::Dispatch::File::Stamped' => '0.10', + }, + +; + +1; + +# ABSTRACT: Provide information on conflicts for Log::Dispatch + +__END__ + +=pod + +=head1 NAME + +Log::Dispatch::Conflicts - Provide information on conflicts for Log::Dispatch + +=head1 VERSION + +version 2.41 + +=head1 AUTHOR + +Dave Rolsky <[email protected]> + +=head1 COPYRIGHT AND LICENSE + +This software is Copyright (c) 2013 by Dave Rolsky. + +This is free software, licensed under: + + The Artistic License 2.0 (GPL Compatible) + +=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Email/MIMELite.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Email/MIMELite.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Email/MIMELite.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Email/MIMELite.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Email::MIMELite; { - $Log::Dispatch::Email::MIMELite::VERSION = '2.39'; + $Log::Dispatch::Email::MIMELite::VERSION = '2.41'; } use strict; @@ -45,7 +45,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Email/MailSend.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Email/MailSend.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Email/MailSend.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Email/MailSend.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Email::MailSend; { - $Log::Dispatch::Email::MailSend::VERSION = '2.39'; + $Log::Dispatch::Email::MailSend::VERSION = '2.41'; } use strict; @@ -53,7 +53,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Email/MailSender.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Email/MailSender.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Email/MailSender.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Email/MailSender.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Email::MailSender; { - $Log::Dispatch::Email::MailSender::VERSION = '2.39'; + $Log::Dispatch::Email::MailSender::VERSION = '2.41'; } # By: Joseph Annino @@ -75,7 +75,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Email/MailSendmail.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Email/MailSendmail.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Email/MailSendmail.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Email/MailSendmail.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Email::MailSendmail; { - $Log::Dispatch::Email::MailSendmail::VERSION = '2.39'; + $Log::Dispatch::Email::MailSendmail::VERSION = '2.41'; } use strict; @@ -45,7 +45,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Email.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Email.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Email.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Email.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Email; { - $Log::Dispatch::Email::VERSION = '2.39'; + $Log::Dispatch::Email::VERSION = '2.41'; } use strict; @@ -104,7 +104,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/File/Locked.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/File/Locked.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/File/Locked.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/File/Locked.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::File::Locked; { - $Log::Dispatch::File::Locked::VERSION = '2.39'; + $Log::Dispatch::File::Locked::VERSION = '2.41'; } use strict; @@ -39,7 +39,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/File.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/File.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/File.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/File.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::File; { - $Log::Dispatch::File::VERSION = '2.39'; + $Log::Dispatch::File::VERSION = '2.41'; } use strict; @@ -182,7 +182,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Handle.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Handle.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Handle.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Handle.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Handle; { - $Log::Dispatch::Handle::VERSION = '2.39'; + $Log::Dispatch::Handle::VERSION = '2.41'; } use strict; @@ -49,7 +49,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Null.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Null.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Null.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Null.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Null; { - $Log::Dispatch::Null::VERSION = '2.39'; + $Log::Dispatch::Null::VERSION = '2.41'; } use strict; @@ -37,7 +37,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Output.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Output.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Output.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Output.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Output; { - $Log::Dispatch::Output::VERSION = '2.39'; + $Log::Dispatch::Output::VERSION = '2.41'; } use strict; @@ -188,7 +188,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Screen.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Screen.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Screen.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Screen.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Screen; { - $Log::Dispatch::Screen::VERSION = '2.39'; + $Log::Dispatch::Screen::VERSION = '2.41'; } use strict; @@ -60,7 +60,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch/Syslog.pm new/Log-Dispatch-2.41/lib/Log/Dispatch/Syslog.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch/Syslog.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch/Syslog.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch::Syslog; { - $Log::Dispatch::Syslog::VERSION = '2.39'; + $Log::Dispatch::Syslog::VERSION = '2.41'; } use strict; @@ -108,7 +108,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/lib/Log/Dispatch.pm new/Log-Dispatch-2.41/lib/Log/Dispatch.pm --- old/Log-Dispatch-2.39/lib/Log/Dispatch.pm 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/lib/Log/Dispatch.pm 2013-07-22 17:38:01.000000000 +0200 @@ -1,6 +1,6 @@ package Log::Dispatch; { - $Log::Dispatch::VERSION = '2.39'; + $Log::Dispatch::VERSION = '2.41'; } use 5.006; @@ -231,7 +231,10 @@ sub level_is_valid { shift; - return $LEVELS{ shift() }; + my $level = shift + or Carp::croak('Logging level was not provided'); + + return $LEVELS{$level}; } sub would_log { @@ -274,7 +277,7 @@ =head1 VERSION -version 2.39 +version 2.41 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Dispatch-2.39/t/01-basic.t new/Log-Dispatch-2.41/t/01-basic.t --- old/Log-Dispatch-2.39/t/01-basic.t 2013-04-21 16:40:14.000000000 +0200 +++ new/Log-Dispatch-2.41/t/01-basic.t 2013-07-22 17:38:01.000000000 +0200 @@ -540,6 +540,25 @@ foreach my $l (qw( debu inf foo bar )) { ok( !Log::Dispatch->level_is_valid($l), "$l is not valid level" ); } + + # Provide calling line if level missing + my $string; + my $dispatch = Log::Dispatch->new( + outputs => [ + [ + 'String', + name => 'string', + string => \$string, + min_level => 'debug', + ], + ], + ); + + eval { $dispatch->log( msg => "Message" ) }; + like( + $@, qr/Logging level was not provided at .* line \d+./, + "Provide calling line if level not provided" + ); } # make sure passing mode as write works -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
