[libapp-stacktrace-perl] 01/05: Allow -v
Axel Beckert
abe at deuxchevaux.org
Fri Dec 12 15:39:55 UTC 2014
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
More information about the Pkg-perl-cvs-commits
mailing list