From: Richard Foley <richard.foley@rfi.net>
Date: Sun, 17 Mar 2002 08:37:26 +0000 (+0100)
Subject: Re: The story of O [PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aef14ef9fe38bbc19ce77787635182e35d06f589;p=p5sagit%2Fp5-mst-13.2.git

Re: The story of O [PATCH]
Message-ID: <16mUNX-293TDkC@fwd08.sul.t-online.com>

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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index fd925b5..093fc2c 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -316,6 +316,8 @@ sub eval {
 #   + m(methods),   M(modules)        # ...           (was m,v)
 #   + o(option)                       # lc            (was O)
 #   + v(view code), V(view Variables) # ...           (was w,V)
+# Changes: 1.18: Mar 17, 2002 Richard Foley <richard.foley@rfi.net>
+#   + fixed missing cmd_O bug
 # 
 ####################################################################
 
@@ -1441,7 +1443,7 @@ sub cmd_wrapper {
 	my $call = 'cmd_'.(
 		$set{$CommandSet}{$cmd} || $cmd
 	);
-	# print "rjsf: cmd_wrapper($cmd): $CommandSet($set{$CommandSet}{$cmd}) => call($call)\n";
+	# print "cmd_wrapper($cmd): $CommandSet($set{$CommandSet}{$cmd}) => call($call)\n";
 
 	return &$call($line, $dblineno);
 }
@@ -1885,6 +1887,12 @@ sub cmd_o {
 	}
 }
 
+sub cmd_O {
+	print $OUT "The old O command is now the o command.\n";        # hint
+	print $OUT "Use 'h' to get current command help synopsis or\n"; # 
+	print $OUT "use 'o CommandSet=pre580' to revert to old usage\n"; # 
+}
+
 sub cmd_v {
 	my $line = shift;