[libapp-stacktrace-perl] 01/05: Allow -v

[Axel Beckert]

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 <jjore at 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