Skip to content

Commit

Permalink
Small changes to assist in Perl Debugger sync.
Browse files Browse the repository at this point in the history
  • Loading branch information
rocky committed Aug 15, 2011
1 parent 8e28773 commit 20e4aaa
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 9 deletions.
6 changes: 1 addition & 5 deletions processor.rb
Expand Up @@ -195,11 +195,7 @@ def process_command_and_quit?()
@cmd_queue.shift
end
if @current_command.empty?
if @last_command && intf.interactive?
@current_command = @last_command
else
next
end
next unless @last_command && intf.interactive?;
end
next if @current_command[0..0] == '#' # Skip comment lines
break
Expand Down
4 changes: 4 additions & 0 deletions processor/msg.rb
Expand Up @@ -6,6 +6,10 @@
class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
attr_accessor :ruby_highlighter

def confirm(msg, default)
@settings[:confirm] ? @dbgr.intf[-1].confirm(msg, default) : true
end

def errmsg(message, opts={})
if message.kind_of?(Array)
message.each do |mess|
Expand Down
4 changes: 0 additions & 4 deletions processor/validate.rb
Expand Up @@ -27,10 +27,6 @@ class CmdProcessor < VirtualCmdProcessor
include Trepan::ThreadHelper
include Trepan::Condition

def confirm(msg, default)
@settings[:confirm] ? @dbgr.intf[-1].confirm(msg, default) : true
end

# Like cmdfns.get_an_int(), but if there's a stack frame use that
# in evaluation.
def get_an_int(arg, opts={})
Expand Down

0 comments on commit 20e4aaa

Please sign in to comment.