From: Scott L. Miller <Scott.L.Miller@Compaq.com>
Date: Mon, 18 Jun 2001 10:12:27 +0000 (-0500)
Subject: perl5db.pl v1.07 + docs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6f891d7dab7c11319066df6d1a3afcf0c5bb641d;p=p5sagit%2Fp5-mst-13.2.git

perl5db.pl v1.07 + docs
Message-ID: <86256A6F.00538A54.00@omacmta01.custom-edge.com>

p4raw-id: //depot/perl@10696
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 7428894..2257e71 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -2,7 +2,7 @@ package DB;
 
 # Debugger for Perl 5.00x; perl5db.pl patch level:
 
-$VERSION = 1.12;
+$VERSION = 1.13;
 $header = "perl5db.pl version $VERSION";
 
 #
@@ -252,7 +252,8 @@ $header = "perl5db.pl version $VERSION";
 # Changes: 1.12: May 24, 2001  Daniel Lewart <d-lewart@uiuc.edu>
 #   + Fixed warnings generated by "O" (Show debugger options)
 #   + Fixed warnings generated by "p 42" (Print expression)
-
+# Changes: 1.13: Jun 19, 2001 Scott.L.Miller@compaq.com
+#   + Added windowSize option 
 ####################################################################
 
 # Needed for the statement after exec():
@@ -290,7 +291,7 @@ $inhibit_exit = $option{PrintRet} = 1;
 		  recallCommand ShellBang pager tkRunning ornaments
 		  signalLevel warnLevel dieLevel inhibit_exit
 		  ImmediateStop bareStringify CreateTTY
-		  RemotePort);
+		  RemotePort windowSize);
 
 %optionVars    = (
 		 hashDepth	=> \$dumpvar::hashDepth,
@@ -310,6 +311,7 @@ $inhibit_exit = $option{PrintRet} = 1;
 		 maxTraceLen	=> \$maxtrace,
 		 ImmediateStop	=> \$ImmediateStop,
 		 RemotePort	=> \$remoteport,
+		 windowSize	=> \$window,
 );
 
 %optionAction  = (
@@ -2146,7 +2148,7 @@ sub parse_options {
     # too dangerous to let intuitive usage overwrite important things
     # defaultion should never be the default
     my %opt_needs_val = map { ( $_ => 1 ) } qw{
-        arrayDepth hashDepth LineInfo maxTraceLen ornaments
+        arrayDepth hashDepth LineInfo maxTraceLen ornaments windowSize
         pager quote ReadLine recallCommand RemotePort ShellBang TTY
     };
     while (length) {
diff --git a/pod/perldebug.pod b/pod/perldebug.pod
index 88e412c..326bdab 100644
--- a/pod/perldebug.pod
+++ b/pod/perldebug.pod
@@ -557,6 +557,10 @@ next option:
 Length to truncate the argument list when the C<frame> option's
 bit 4 is set.
 
+=item C<windowSize>
+
+Change the size of code list window (default is 10 lines).
+
 =back
 
 The following options affect what happens with C<V>, C<X>, and C<x>