diff options
author | Stevan Little <stevan.little@iinteractive.com> | 2013-09-01 13:27:33 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-09-03 16:50:15 -0400 |
commit | 30d7375bba8b179dedf1c2ca322d758e5330752d (patch) | |
tree | 62427ef686e6f6576a5035887813050faad2fa31 /lib/Reply/Plugin/CollapseStack.pm | |
parent | 5da5169c7fa1a64b9ddc2eae14d9435cc54f107a (diff) | |
download | reply-30d7375bba8b179dedf1c2ca322d758e5330752d.tar.gz reply-30d7375bba8b179dedf1c2ca322d758e5330752d.zip |
twigils
Diffstat (limited to 'lib/Reply/Plugin/CollapseStack.pm')
-rw-r--r-- | lib/Reply/Plugin/CollapseStack.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Reply/Plugin/CollapseStack.pm b/lib/Reply/Plugin/CollapseStack.pm index f18ff4a..d5f1e16 100644 --- a/lib/Reply/Plugin/CollapseStack.pm +++ b/lib/Reply/Plugin/CollapseStack.pm @@ -27,9 +27,9 @@ the C<num_lines> option. =cut class Reply::Plugin::CollapseStack extends Reply::Plugin { - has $num_lines = 1; + has $!num_lines = 1; - has $full_error; + has $!full_error; method compile ($next, @args) { local $SIG{__DIE__} = \&Carp::Always::_die; @@ -42,11 +42,11 @@ class Reply::Plugin::CollapseStack extends Reply::Plugin { } method mangle_error ($error) { - $full_error = $error; + $!full_error = $error; my @lines = split /\n/, $error; - if (@lines > $num_lines) { - splice @lines, $num_lines; + if (@lines > $!num_lines) { + splice @lines, $!num_lines; $error = join "\n", @lines, " (Run #stack to see the full trace)\n"; } @@ -56,7 +56,7 @@ class Reply::Plugin::CollapseStack extends Reply::Plugin { method command_stack { # XXX should use print_error here - print($full_error || "No stack to display.\n"); + print($!full_error || "No stack to display.\n"); return ''; } } |