diff options
| author | Richard Foley <richard.foley@rfi.net> | 2002-03-17 09:37:26 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-20 14:47:15 +0000 |
| commit | aef14ef9fe38bbc19ce77787635182e35d06f589 (patch) | |
| tree | 4dd6dcffa909a90d4167c43c2b9185b9a3eed26f | |
| parent | 2bcb0b458af1bb38a0b8ec0ec995e3cb497c1e1c (diff) | |
| download | perl-aef14ef9fe38bbc19ce77787635182e35d06f589.tar.gz | |
Re: The story of O [PATCH]
Message-ID: <16mUNX-293TDkC@fwd08.sul.t-online.com>
p4raw-id: //depot/perl@15365
| -rw-r--r-- | lib/perl5db.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index fd925b5db3..093fc2cb1e 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; |