[libapp-stacktrace-perl] 02/04: Add -c option
Axel Beckert
abe at deuxchevaux.org
Fri Dec 12 15:40:00 UTC 2014
This is an automated email from the git hooks/post-receive script.
abe pushed a commit to annotated tag v0.09
in repository libapp-stacktrace-perl.
commit aa97639c96251dea0c4785d5d112dad707efc0a9
Author: Josh ben Jore <jjore at cpan.org>
Date: Tue Aug 2 08:38:21 2011 -0700
Add -c option
---
lib/App/Stacktrace.pm | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/lib/App/Stacktrace.pm b/lib/App/Stacktrace.pm
index 4af837d..960efd3 100644
--- a/lib/App/Stacktrace.pm
+++ b/lib/App/Stacktrace.pm
@@ -113,6 +113,7 @@ sub _read_arguments {
'help',
'm',
'v',
+ 'c',
'exec!',
)
or Pod::Usage::pod2usage(
@@ -129,6 +130,7 @@ sub _read_arguments {
$self->{pid} = $args{pid};
$self->{dump_script} = $args{m};
$self->{verbose} = $args{v};
+ $self->{c_backtrace} = $args{v} || $args{c};
$self->{exec} = $args{exec};
return;
@@ -193,6 +195,12 @@ THREADS
local $/;
$src .= readline $template_fh;
+ if ($self->{c_backtrace}) {
+ $src .= <<"C_BACKTRACE";
+backtrace
+C_BACKTRACE
+ }
+
my $command = $self->_command_for_version;
$src .= <<"INVOKE";
$command
--
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