This is an automated email from the git hooks/post-receive script. abe pushed a commit to annotated tag v0.04 in repository libapp-stacktrace-perl.
commit ee4f33cdd53af055c6f98dcad8c61ba4c8e0157a Author: Josh ben Jore <jj...@cpan.org> Date: Mon Jun 20 22:50:36 2011 -0700 Allow -v --- lib/App/Stacktrace.pm | 6 ++++++ lib/App/Stacktrace/perl_backtrace_raw.txt | 1 - 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lib/App/Stacktrace.pm b/lib/App/Stacktrace.pm index 35f58b7..c171e99 100644 --- a/lib/App/Stacktrace.pm +++ b/lib/App/Stacktrace.pm @@ -47,6 +47,7 @@ sub new { pid => undef, version => undef, arch => undef, + v => undef, 'exec' => 1, @_ }; @@ -80,6 +81,7 @@ sub _read_arguments { -exitcode => 0 ); }, 'm', + 'v', 'exec', 'version=s', 'arch=s', @@ -125,6 +127,10 @@ sub _TODO_add_constants { # TODO_preamble + if ($self->{v}) { + $src .= "set trace-commands on\n"; + } + my $offsets = App::Stacktrace::_perl_offsets(); for my $name (sort keys %$offsets) { $src .= "set $name = $offsets->{$name}\n"; diff --git a/lib/App/Stacktrace/perl_backtrace_raw.txt b/lib/App/Stacktrace/perl_backtrace_raw.txt index e61c318..ad47e22 100644 --- a/lib/App/Stacktrace/perl_backtrace_raw.txt +++ b/lib/App/Stacktrace/perl_backtrace_raw.txt @@ -38,7 +38,6 @@ #perl_backtrace_a_thread #perl_backtrace_nothreads -set trace-commands off set $DEBUG = 0 set $PERL_ITHR_JOINABLE = 0 set $PERL_ITHR_DETACHED = 1 -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libapp-stacktrace-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits