[Bps-public-commit] r15099 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug 12 20:20:04 2008
New Revision: 15099

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/CLI/Command/Shell.pm

Log:
 r69435 at onn:  sartak | 2008-08-12 20:19:56 -0400
 Add "q" "quit" and "exit" commands to the shell


Modified: Prophet/trunk/lib/Prophet/CLI/Command/Shell.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI/Command/Shell.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI/Command/Shell.pm	Tue Aug 12 20:20:04 2008
@@ -34,6 +34,10 @@
     $self->cli->interactive_shell(1);
     while (defined(local $_ = $self->readline($self->prompt))) {
         next if /^\s*$/;
+
+        last if /^\s*q(?:uit)?\s*$/i
+             || /^\s*exit\s*$/i;
+
         local @ARGV = split ' ', $_;
         eval {
             local $SIG{__DIE__} = 'DEFAULT';