[Bps-public-commit] r15041 - in Prophet/branches/restyserver: . lib/Prophet

[jesse at bestpractical.com]

Author: jesse
Date: Tue Aug 12 07:10:09 2008
New Revision: 15041

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

Log:
 r43040 at PC0169:  jesse | 2008-08-12 01:32:11 +0100
 * added a flag on Prophet::CLI to say 'I'm running in an interactive shell'


Modified: Prophet/branches/restyserver/lib/Prophet/CLI.pm
==============================================================================
--- Prophet/branches/restyserver/lib/Prophet/CLI.pm	(original)
+++ Prophet/branches/restyserver/lib/Prophet/CLI.pm	Tue Aug 12 07:10:09 2008
@@ -92,6 +92,14 @@
     },
 );
 
+has interactive_shell => ( 
+    is => 'rw',
+    isa => 'Bool',
+    default => sub { 0}
+);
+
+
+
 =head2 _record_cmd
 
 handles the subcommand for a particular type

Modified: Prophet/branches/restyserver/lib/Prophet/CLI/Command/Shell.pm
==============================================================================
--- Prophet/branches/restyserver/lib/Prophet/CLI/Command/Shell.pm	(original)
+++ Prophet/branches/restyserver/lib/Prophet/CLI/Command/Shell.pm	Tue Aug 12 07:10:09 2008
@@ -14,6 +14,7 @@
 
     local $| = 1;
 
+    $self->cli->interactive_shell(1);
     while (1) {
         print $self->prompt;
         my $input = <>;