diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/DB.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/DB.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/DB.pm b/Master/tlpkg/tlperl/lib/DB.pm index 03f2b21e03b..fd0ff929f2f 100644 --- a/Master/tlpkg/tlperl/lib/DB.pm +++ b/Master/tlpkg/tlperl/lib/DB.pm @@ -38,17 +38,17 @@ BEGIN { $DB::package = ''; # current package space $DB::filename = ''; # current filename - $DB::subname = ''; # currently executing sub (fullly qualified name) + $DB::subname = ''; # currently executing sub (fully qualified name) $DB::lineno = ''; # current line number - $DB::VERSION = $DB::VERSION = '1.04'; + $DB::VERSION = $DB::VERSION = '1.07'; # initialize private globals to avoid warnings $running = 1; # are we running, or are we stopped? @stack = (0); @clients = (); - $deep = 100; + $deep = 1000; $ready = 0; @saved = (); @skippkg = (); @@ -559,7 +559,8 @@ DB - programmatic interface to the Perl debugging API CLIENT->register() # register a client package name CLIENT->done() # de-register from the debugging API CLIENT->skippkg('hide::hide') # ask DB not to stop in this package - CLIENT->cont([WHERE]) # run some more (until BREAK or another breakpt) + CLIENT->cont([WHERE]) # run some more (until BREAK or + # another breakpointt) CLIENT->step() # single step CLIENT->next() # step over CLIENT->ret() # return from current subroutine @@ -588,7 +589,8 @@ DB - programmatic interface to the Perl debugging API CLIENT->stop(FILE,LINE) # when execution stops CLIENT->idle() # while stopped (can be a client event loop) CLIENT->cleanup() # just before exit - CLIENT->output(LIST) # called to print any output that API must show + CLIENT->output(LIST) # called to print any output that + # the API must show =head1 DESCRIPTION |