[libapp-stacktrace-perl] 04/05: Oops, use Perl_get_context

[Axel Beckert]

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