[libapp-stacktrace-perl] 01/02: Handle -m parameter

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag v0.02
in repository libapp-stacktrace-perl.

commit c31162aea6121485161095cf382660bc6c915d94
Author: Josh ben Jore <jjore at cpan.org>
Date:   Tue Jun 14 22:10:13 2011 -0700

    Handle -m parameter
---
 lib/App/Stacktrace.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/App/Stacktrace.pm b/lib/App/Stacktrace.pm
index 0a91b38..984c59a 100644
--- a/lib/App/Stacktrace.pm
+++ b/lib/App/Stacktrace.pm
@@ -58,12 +58,12 @@ sub run {
     $self->_read_arguments( @_ );
 
     my $script = $self->_custom_generated_script;
-    if ($self->{exec}) {
-        $self->_run_gdb($script);
-    }
-    elsif ($self->{m}) {
+    if ($self->{m}) {
         print $script;
     }
+    else {
+        $self->_run_gdb($script);
+    }
 
     return;
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libapp-stacktrace-perl.git