[libapp-stacktrace-perl] 04/05: Oops, use Perl_get_context
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 16fa58a83fd47951911063e31c74031eaca88ab9
Author: Josh ben Jore <jjore at cpan.org>
Date: Mon Jun 20 22:53:16 2011 -0700
Oops, use Perl_get_context
---
lib/App/Stacktrace/perl_backtrace_raw.txt | 4 ----
1 file changed, 4 deletions(-)
diff --git a/lib/App/Stacktrace/perl_backtrace_raw.txt b/lib/App/Stacktrace/perl_backtrace_raw.txt
index ad47e22..b0f0bcd 100644
--- a/lib/App/Stacktrace/perl_backtrace_raw.txt
+++ b/lib/App/Stacktrace/perl_backtrace_raw.txt
@@ -237,8 +237,6 @@ define perl_backtrace_5_8_a_thread
end
printf "thread %d %s:\n", $tid, $state
set $interpreter = (int) *((int*) ($THREAD_interpreter + (int) $thread))
- else
- set $interpreter = (int) my_perl
end
perl_backtrace_5_8_an_interp
end
@@ -363,7 +361,6 @@ define perl_backtrace_5_10_threads
set $thread = (int) *((int*) ($THREAD_next + (int) $thread))
end
else
- set $interpreter = (int) my_perl
perl_backtrace_an_interp
end
end
@@ -391,7 +388,6 @@ define perl_backtrace_5_12_threads
set $thread = (int) *((int*) ($THREAD_next + (int) $thread))
end
else
- set $interpreter = (int) my_perl
perl_backtrace_an_interp
end
end
--
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