r45482 - in /trunk/liblog-handler-perl: ChangeLog META.yml README debian/changelog debian/control lib/Log/Handler.pm lib/Log/Handler/Simple.pm
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Thu Oct 8 14:09:22 UTC 2009
Author: carnil-guest
Date: Thu Oct 8 14:09:09 2009
New Revision: 45482
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45482
Log:
* debian/control:
* New upstream release
* debian/control:
- Replace versioned Build-Depends-Indep on perl (>= 5.8.7) with
unversioned dependency on perl, since 5.8.7 is even not in
oldstable/Etch.
Modified:
trunk/liblog-handler-perl/ChangeLog
trunk/liblog-handler-perl/META.yml
trunk/liblog-handler-perl/README
trunk/liblog-handler-perl/debian/changelog
trunk/liblog-handler-perl/debian/control
trunk/liblog-handler-perl/lib/Log/Handler.pm
trunk/liblog-handler-perl/lib/Log/Handler/Simple.pm
Modified: trunk/liblog-handler-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/ChangeLog?rev=45482&op=diff
==============================================================================
--- trunk/liblog-handler-perl/ChangeLog (original)
+++ trunk/liblog-handler-perl/ChangeLog Thu Oct 8 14:09:09 2009
@@ -1,3 +1,7 @@
+0.58 Released at 2009-10-07.
+ - Forget to kick Devel::Backtrace from Log::Handler::Simple.
+ - Log::Handler::Simple will be kicked in the next release.
+
0.57 Released at 2009-10-06.
- Kicked UNIVERSAL::require.
- Kicked Devel::Backtrace.
Modified: trunk/liblog-handler-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/META.yml?rev=45482&op=diff
==============================================================================
--- trunk/liblog-handler-perl/META.yml (original)
+++ trunk/liblog-handler-perl/META.yml Thu Oct 8 14:09:09 2009
@@ -1,6 +1,6 @@
---
name: Log-Handler
-version: 0.57
+version: 0.58
author:
- Jonny Schulz
abstract: Log messages to several outputs.
@@ -28,7 +28,7 @@
provides:
Log::Handler:
file: lib/Log/Handler.pm
- version: 0.57
+ version: 0.58
Log::Handler::Config:
file: lib/Log/Handler/Config.pm
version: 0.05
Modified: trunk/liblog-handler-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/README?rev=45482&op=diff
==============================================================================
--- trunk/liblog-handler-perl/README (original)
+++ trunk/liblog-handler-perl/README Thu Oct 8 14:09:09 2009
@@ -900,7 +900,6 @@
Carp
Data::Dumper
- Devel::Backtrace
Fcntl
Params::Validate
POSIX
Modified: trunk/liblog-handler-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/debian/changelog?rev=45482&op=diff
==============================================================================
--- trunk/liblog-handler-perl/debian/changelog (original)
+++ trunk/liblog-handler-perl/debian/changelog Thu Oct 8 14:09:09 2009
@@ -1,18 +1,25 @@
-liblog-handler-perl (0.57-1) UNRELEASED; urgency=low
+liblog-handler-perl (0.58-1) UNRELEASED; urgency=low
[ Ryan Niebur ]
* Update ryan52's email address
[ Nathan Handler ]
* New upstream release
- * debian/changelog:
+ * debian/control:
- Add myself to list of Uploaders
- Build-Depend on debhelper (>= 7.0.50)
- Drop libuniversal-require-perl from Build-Depends-Indep
* debian/rules:
- Switch to short format
- -- Nathan Handler <nhandler at ubuntu.com> Wed, 07 Oct 2009 03:02:26 +0000
+ [ Salvatore Bonaccorso ]
+ * New upstream release
+ * debian/control:
+ - Replace versioned Build-Depends-Indep on perl (>= 5.8.7) with
+ unversioned dependency on perl, since 5.8.7 is even not in
+ oldstable/Etch.
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Thu, 08 Oct 2009 16:07:34 +0200
liblog-handler-perl (0.56-1) unstable; urgency=low
Modified: trunk/liblog-handler-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/debian/control?rev=45482&op=diff
==============================================================================
--- trunk/liblog-handler-perl/debian/control (original)
+++ trunk/liblog-handler-perl/debian/control Thu Oct 8 14:09:09 2009
@@ -2,7 +2,7 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.0.50)
-Build-Depends-Indep: perl (>= 5.8.7), libtest-pod-perl,
+Build-Depends-Indep: perl, libtest-pod-perl,
libtest-pod-coverage-perl, libparams-validate-perl, libdbi-perl,
libemail-date-perl, libdevel-backtrace-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Modified: trunk/liblog-handler-perl/lib/Log/Handler.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/lib/Log/Handler.pm?rev=45482&op=diff
==============================================================================
--- trunk/liblog-handler-perl/lib/Log/Handler.pm (original)
+++ trunk/liblog-handler-perl/lib/Log/Handler.pm Thu Oct 8 14:09:09 2009
@@ -944,7 +944,6 @@
Carp
Data::Dumper
- Devel::Backtrace
Fcntl
Params::Validate
POSIX
@@ -1030,7 +1029,7 @@
use Log::Handler::Pattern;
use base qw(Log::Handler::Levels);
-our $VERSION = '0.57';
+our $VERSION = '0.58';
our $ERRSTR = '';
# $TRACE and $CALLER_LEVEL are both used as global
Modified: trunk/liblog-handler-perl/lib/Log/Handler/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/lib/Log/Handler/Simple.pm?rev=45482&op=diff
==============================================================================
--- trunk/liblog-handler-perl/lib/Log/Handler/Simple.pm (original)
+++ trunk/liblog-handler-perl/lib/Log/Handler/Simple.pm Thu Oct 8 14:09:09 2009
@@ -1,6 +1,6 @@
=head1 NAME
-Log::Handler::Simple - A simple handler to log messages to a log file.
+Log::Handler::Simple - !!! THIS MODULE IS DEPRECATED !!!
=head1 SYNOPSIS
@@ -19,11 +19,9 @@
=head1 DESCRIPTION
-Maybe you are wondering why this module exists besides C<Log::Handler::Output::File>.
-
-This module is just for backward compatibilities to the old C<Log::Handler> - version 0.38.
-If you install the current version of C<Log::Handler> you don't need to rewrite your
-programs. You can use the old style if you wish.
+THIS MODULE IS DEPRECATED AND WILL BE KICKED AS SOON AS POSSIBLE!
+
+Please use Log::Handler::Output::File instead!
=head1 METHODS
@@ -627,7 +625,6 @@
Fcntl - for flock(), O_APPEND, O_WRONLY, O_EXCL and O_CREATE
POSIX - to generate the time stamp with strftime()
Params::Validate - to validate all options
- Devel::Backtrace - to backtrace caller()
Carp - to croak() on errors if die_on_errors is active
=head1 EXPORTS
@@ -686,7 +683,7 @@
package # hide from pause
Log::Handler::Simple;
-our $VERSION = '0.40';
+our $VERSION = '0.41';
use strict;
use warnings;
@@ -694,7 +691,6 @@
use POSIX qw(strftime);
use Params::Validate;
use Carp qw(croak);
-use Devel::Backtrace;
use constant EMERGENCY => 0;
use constant EMERG => 0;
@@ -1056,8 +1052,9 @@
}
sub _build_message {
- my $self = shift;
- my $level = shift;
+ my $self = shift;
+ my $level = shift;
+ my $skip = $self->{debug_skip};
my $message = '';
if ($self->{timeformat}) {
@@ -1071,17 +1068,23 @@
}
if ($self->{debug} || $level eq 'TRACE') {
$message .= "\n" if $message =~ /.\z|^\z/;
- my $bt = Devel::Backtrace->new($self->{debug_skip});
- my $pt = $bt->points - 1;
- for my $p (reverse 0..$pt) {
- $message .= ' ' x 3 . "CALL($p):";
- my $c = $bt->point($p);
- for my $k (qw/package filename line subroutine hasargs wantarray evaltext is_require/) {
- next unless defined $c->{$k};
- if ($self->{debug_mode} == 1) {
- $message .= " $k($c->{$k})";
- } elsif ($self->{debug_mode} == 2) {
- $message .= "\n" . ' ' x 6 . sprintf('%-12s', $k) . $c->{$k};
+
+ my @caller = ();
+ for (my $i=0; my @c = caller($i); $i++) {
+ my %frame;
+ @frame{qw/package filename line subroutine hasargs wantarray evaltext is_require/} = @c[0..7];
+ push @caller, \%frame;
+ }
+
+ foreach my $i (reverse $skip..$#caller) {
+ $message .= ' ' x 3 . "CALL($i):";
+ my $frame = $caller[$i];
+ foreach my $key (qw/package filename line subroutine hasargs wantarray evaltext is_require/) {
+ next unless defined $frame->{$key};
+ if ($self->{debug_mode} == 1) { # line mode
+ $message .= " $key($frame->{$key})";
+ } elsif ($self->{debug_mode} == 2) { # block mode
+ $message .= "\n" . ' ' x 6 . sprintf('%-12s', $key) . $frame->{$key};
}
}
$message .= "\n";
More information about the Pkg-perl-cvs-commits
mailing list