[libapp-stacktrace-perl] 03/06: More verbose
Axel Beckert
abe at deuxchevaux.org
Fri Dec 12 15:39:59 UTC 2014
This is an automated email from the git hooks/post-receive script.
abe pushed a commit to annotated tag v0.08
in repository libapp-stacktrace-perl.
commit 75060c5833c3ce32f873c7fba775a8e4c6103197
Author: Josh ben Jore <jjore at cpan.org>
Date: Wed Jul 27 12:47:10 2011 -0700
More verbose
---
lib/App/Stacktrace.pm | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/lib/App/Stacktrace.pm b/lib/App/Stacktrace.pm
index 31e04b0..5a967bb 100644
--- a/lib/App/Stacktrace.pm
+++ b/lib/App/Stacktrace.pm
@@ -158,7 +158,15 @@ sub _TODO_add_constants {
TODO_preamble
if ($self->{verbose}) {
- $src .= "set trace-commands on\n";
+ $src .= <<VERBOSE;
+set trace-commands on
+set \$DEBUG = 1
+VERBOSE
+ }
+ else {
+ $src .= <<QUIET;
+set \$DEBUG = 0
+QUIET
}
my $offsets = App::Stacktrace::_perl_offsets();
@@ -216,6 +224,10 @@ sub _run_gdb {
$tmp->flush;
$tmp->sync;
+ if ($self->{verbose}) {
+ print $src;
+ }
+
my @cmd = (
'gdb',
'-quiet',
--
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