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 <jj...@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 _______________________________________________ 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