summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/DB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/DB.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/DB.pm12
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