Permalink
Browse files

Merge branch 'master' of github.com:rocky/Perl-Devel-Trepan

  • Loading branch information...
2 parents 2751c59 + a01f5c7 commit 0cdc89d0825cfc750a392db1b662b629f862dc91 Rocky Bernstein committed Feb 23, 2012
Showing with 109 additions and 117 deletions.
  1. +0 −1 bin/.gitignore
  2. +3 −10 lib/Devel/Trepan/Client.pm
  3. +3 −3 lib/Devel/Trepan/CmdProcessor.pm
  4. +3 −3 lib/Devel/Trepan/CmdProcessor/Command/Action.pm
  5. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Alias.pm
  6. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Backtrace.pm
  7. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Break.pm
  8. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Complete.pm
  9. +3 −3 lib/Devel/Trepan/CmdProcessor/Command/Condition.pm
  10. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Continue.pm
  11. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Debug.pm
  12. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Delete.pm
  13. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Disable.pm
  14. +4 −4 lib/Devel/Trepan/CmdProcessor/Command/Display.pm
  15. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Down.pm
  16. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Edit.pm
  17. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Enable.pm
  18. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Eval.pm
  19. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Finish.pm
  20. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Frame.pm
  21. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Handle.pm
  22. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Help.pm
  23. +3 −3 lib/Devel/Trepan/CmdProcessor/Command/Info.pm
  24. +1 −1 lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Files.pm
  25. +1 −1 lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Frame.pm
  26. +1 −1 lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Functions.pm
  27. +1 −1 lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Variables_Subcmd/My.pm
  28. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Kill.pm
  29. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/List.pm
  30. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Macro.pm
  31. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Next.pm
  32. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Quit.pm
  33. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Restart.pm
  34. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Server.pm
  35. +3 −3 lib/Devel/Trepan/CmdProcessor/Command/Set.pm
  36. +3 −3 lib/Devel/Trepan/CmdProcessor/Command/Show.pm
  37. +3 −3 lib/Devel/Trepan/CmdProcessor/Command/Source.pm
  38. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Step.pm
  39. +1 −1 lib/Devel/Trepan/CmdProcessor/Command/Subcmd/SubMgr.pm
  40. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/TBreak.pm
  41. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Unalias.pm
  42. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Undisplay.pm
  43. +2 −2 lib/Devel/Trepan/CmdProcessor/Command/Up.pm
  44. +4 −4 lib/Devel/Trepan/CmdProcessor/Command/Watch.pm
  45. +1 −1 lib/Devel/Trepan/CmdProcessor/Default.pm
  46. +5 −5 lib/Devel/Trepan/Interface/Client.pm
  47. +2 −2 lib/Devel/Trepan/Interface/Script.pm
  48. +4 −4 lib/Devel/Trepan/Interface/Server.pm
  49. +3 −3 lib/Devel/Trepan/Interface/User.pm
  50. +1 −1 lib/Devel/Trepan/Options.pm
View
@@ -1 +0,0 @@
-/*~
View
@@ -1,19 +1,12 @@
# -*- coding: utf-8 -*-
# Copyright (C) 2011, 2012 Rocky Bernstein <rocky@cpan.org>
-use strict; use Config; use Cwd 'abs_path';
-
-# rlib seems to flip out if it can't find trepan.pl
-BEGIN {
- my $dirname = dirname(__FILE__);
- my $bin_dir = File::Spec->catfile($dirname, '..', '..', '..', 'bin');
- $ENV{PATH} = $bin_dir . $Config{path_sep} . $ENV{PATH} if -d $bin_dir;
-}
-use rlib '../..';
+package Devel::Trepan::Client;
+use strict;
+use rlib;
# require_relative 'default' # default debugger settings
-package Devel::Trepan::Client;
use Devel::Trepan::Interface::ComCodes;
use Devel::Trepan::Interface::Client;
use Devel::Trepan::Interface::Script;
@@ -14,14 +14,14 @@ use warnings; no warnings 'redefine';
use vars qw(@EXPORT @ISA $eval_result);
# Showing eval results can be done using either data dump package.
-use if !defined @ISA, Data::Dumper;
+use if !@ISA, Data::Dumper;
# Eval does uses its own variables.
# FIXME: have a way to customize Data:Dumper, PerlTidy etc.
$Data::Dumper::Terse = 1;
require Data::Dumper::Perltidy;
-unless (defined @ISA) {
+unless (@ISA) {
require Devel::Trepan::CmdProcessor::Load;
require Devel::Trepan::BrkptMgr;
eval "require Devel::Trepan::DB::Display";
@@ -253,7 +253,7 @@ sub process_after_eval($) {
}
$self->msg("$prefix $DB::eval_result");
} elsif ('@' eq $return_type) {
- if (defined @DB::eval_result) {
+ if (@DB::eval_result) {
$val_str = $fn->(\@DB::eval_result);
chomp $val_str;
@{$DB::D[$last_eval_value++]} = @DB::eval_result;
@@ -6,10 +6,10 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Action;
use English qw( -no_match_vars );
-use if !defined @ISA, Devel::Trepan::Condition ;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::Condition ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant ALIASES => qw(a);
use constant CATEGORY => 'breakpoints';
@@ -5,9 +5,9 @@ use warnings; no warnings 'redefine';
use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Alias;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant CATEGORY => 'support';
use constant SHORT_HELP => 'Add an alias for a debugger command';
@@ -4,9 +4,9 @@ use warnings; no warnings 'redefine';
use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Backtrace;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant ALIASES => qw(bt where T);
use constant CATEGORY => 'stack';
@@ -9,8 +9,8 @@ use Devel::Trepan::DB::Sub;
package Devel::Trepan::CmdProcessor::Command::Break;
use English qw( -no_match_vars );
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command;
-unless (defined(@ISA)) {
+use if !@ISA, Devel::Trepan::CmdProcessor::Command;
+unless (@ISA) {
eval <<'EOE';
use constant ALIASES => qw(b);
use constant CATEGORY => 'breakpoints';
@@ -6,9 +6,9 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Complete;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined(@ISA)) {
+unless (@ISA) {
eval <<'EOE';
use constant CATEGORY => 'support';
use constant SHORT_HELP => 'List the completions for the rest of the line as a command';
@@ -6,10 +6,10 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Condition;
use English qw( -no_match_vars );
-use if !defined @ISA, Devel::Trepan::Condition ;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::Condition ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant ALIASES => qw(cond);
use constant CATEGORY => 'breakpoints';
@@ -9,9 +9,9 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Continue;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined(@ISA)) {
+unless (@ISA) {
eval <<'EOE';
use constant ALIASES => qw(c cont);
use constant CATEGORY => 'running';
@@ -5,9 +5,9 @@ use warnings; no warnings 'redefine';
use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Debug;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined(@ISA)) {
+unless (@ISA) {
eval <<'EOE';
use constant CATEGORY => 'data';
use constant SHORT_HELP => 'debug into a Perl expression';
@@ -6,9 +6,9 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Delete;
use English qw( -no_match_vars );
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant CATEGORY => 'breakpoints';
use constant SHORT_HELP => 'Delete some breakpoints';
@@ -9,12 +9,12 @@ use rlib '../../../..';
#
# NOTE: The enable command subclasses this, so beware when changing!
package Devel::Trepan::CmdProcessor::Command::Disable;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
use strict;
use vars qw(@ISA);
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant CATEGORY => 'breakpoints';
use constant SHORT_HELP => 'Disable some breakpoints';
@@ -6,11 +6,11 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Display;
use English qw( -no_match_vars );
-use if !defined @ISA, Devel::Trepan::DB::Display ;
-use if !defined @ISA, Devel::Trepan::Condition ;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::DB::Display ;
+use if !@ISA, Devel::Trepan::Condition ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant CATEGORY => 'data';
use constant NEED_STACK => 0;
@@ -4,9 +4,9 @@ use warnings; no warnings 'redefine';
use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Down;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant ALIASES => qw(u);
use constant CATEGORY => 'stack';
@@ -6,8 +6,8 @@ use Devel::Trepan::DB::LineCache;
use Devel::Trepan::DB::Sub;
package Devel::Trepan::CmdProcessor::Command::Edit;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
+unless (@ISA) {
eval <<"EOE";
use constant ALIASES => ('e');
use constant CATEGORY => 'files';
@@ -9,8 +9,8 @@ use rlib '../../../..';
#
# NOTE: The enable command subclasses this, so beware when changing!
package Devel::Trepan::CmdProcessor::Command::Enable;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
+unless (@ISA) {
eval <<"EOE";
use constant CATEGORY => 'breakpoints';
use constant SHORT_HELP => 'Enable some breakpoints';
@@ -5,8 +5,8 @@ use warnings; no warnings 'redefine';
use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Eval;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
+unless (@ISA) {
eval <<'EOE';
use constant ALIASES => qw(eval? eval@ eval$ eval% eval@? eval%? @ % $ p);
use constant CATEGORY => 'data';
@@ -9,9 +9,9 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Finish;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
use vars qw(@ISA);
-unless (defined @ISA) {
+unless (@ISA) {
eval <<'EOE';
use constant ALIASES => qw(fin);
use constant CATEGORY => 'running';
@@ -4,9 +4,9 @@ use warnings; no warnings 'redefine';
use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Frame;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+unless (@ISA) {
eval <<'EOE';
use constant CATEGORY => 'stack';
use constant SHORT_HELP => 'Set frame for use in commands';
@@ -16,9 +16,9 @@
package Devel::Trepan::CmdProcessor::Command::Handle;
use English qw( -no_match_vars );
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant CATEGORY => 'running';
use constant NEED_STACK => 0;
@@ -6,11 +6,11 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Help;
use warnings; no warnings 'redefine';
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
use strict;
use vars qw(@ISA);
-unless (defined(@ISA)) {
+unless (@ISA) {
eval <<'EOE';
use constant ALIASES => ('?');
use constant CATEGORY => 'support';
@@ -5,9 +5,9 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Info;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command::Subcmd::SubMgr;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command;
-unless (defined(@ISA)) {
+use if !@ISA, Devel::Trepan::CmdProcessor::Command::Subcmd::SubMgr;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command;
+unless (@ISA) {
eval <<'EOE';
use constant SHORT_HELP => 'Information about debugged program and its environment';
use constant CATEGORY => 'status';
@@ -20,7 +20,7 @@ our $DEFAULT_FILE_ARGS = join(' ', @DEFAULT_FILE_ARGS);
## FIXME: do automatically.
our $CMD = "info files";
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant MAX_ARGS => 8; # Need at most this many - undef -> unlimited.
EOE
@@ -15,7 +15,7 @@ use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
## FIXME: do automatically.
our $CMD = "info frame";
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant MAX_ARGS => 1; # Need at most this many - undef -> unlimited.
EOE
@@ -15,7 +15,7 @@ use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
## FIXME: do automatically.
our $CMD = "info functions";
-unless (defined @ISA) {
+unless (@ISA) {
eval <<"EOE";
use constant MAX_ARGS => 1; # Need at most this many - undef -> unlimited.
EOE
@@ -6,7 +6,7 @@ use Data::Dumper;
package Devel::Trepan::CmdProcessor::Command::Info::Variables::My;
use vars qw(@ISA @SUBCMD_VARS);
-unless (defined(@ISA)) {
+unless (@ISA) {
eval <<'EOE';
use constant MAX_ARGS => undef;
EOE
@@ -7,11 +7,11 @@ use rlib '../../../..';
use Devel::Trepan::Complete;
package Devel::Trepan::CmdProcessor::Command::Kill;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
use vars qw(@ISA);
-unless (defined @ISA) {
+unless (@ISA) {
eval <<'EOE';
use constant ALIASES => ('kill!');
use constant CATEGORY => 'running';
@@ -9,8 +9,8 @@ package Devel::Trepan::CmdProcessor::Command::List;
use English qw( -no_match_vars );
use Devel::Trepan::DB::LineCache;
use Devel::Trepan::CmdProcessor::Validate;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command;
-unless (defined(@ISA)) {
+use if !@ISA, Devel::Trepan::CmdProcessor::Command;
+unless (@ISA) {
eval <<'EOE';
use constant ALIASES => qw(l list> l>);
use constant CATEGORY => 'files';
@@ -6,8 +6,8 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Macro;
use English qw( -no_match_vars );
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined(@ISA)) {
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
+unless (@ISA) {
eval <<'EOE';
use constant CATEGORY => 'support';
use constant SHORT_HELP => 'Define a macro';
@@ -8,9 +8,9 @@ use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Next;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined(@ISA)) {
+unless (@ISA) {
eval <<'EOE';
use constant ALIASES => qw(n next+ next- n+ n-);
use constant CATEGORY => 'running';
@@ -4,9 +4,9 @@ use warnings; no warnings 'redefine';
use rlib '../../../..';
package Devel::Trepan::CmdProcessor::Command::Quit;
-use if !defined @ISA, Devel::Trepan::CmdProcessor::Command ;
+use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
-unless (defined(@ISA)) {
+unless (@ISA) {
eval <<'EOE';
use constant ALIASES => ('quit!', 'q', 'q!');
use constant CATEGORY => 'support';
Oops, something went wrong.

0 comments on commit 0cdc89d

Please sign in to comment.