Re: Some bugs in RC1

   Message-Id: <20020603235921.GN31617@ool-18b93024.dyn.optonline.net>

p4raw-id: //depot/perl@16984

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index ba3e2f7..c770b52 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -897,7 +897,7 @@ EOP
                        $incr = $window - 1;
                        $cmd = 'l ' . ($start) . '+'; };
                        # rjsf ->
-                 $cmd =~ /^([aAbBDhlLMoOvwW])\b\s*(.*)/s && do { 
+                 $cmd =~ /^([aAbBhlLMoOvwW])\b\s*(.*)/s && do { 
                                &cmd_wrapper($1, $2, $line); 
                                next CMD; 
                        };