[Bps-public-commit] r14861 - in Prophet/branches/dispatcher: lib/Prophet

[sartak at bestpractical.com]

Author: sartak
Date: Wed Aug  6 14:01:15 2008
New Revision: 14861

Modified:
   Prophet/branches/dispatcher/   (props changed)
   Prophet/branches/dispatcher/lib/Prophet/CLI.pm

Log:
 r68887 at onn:  sartak | 2008-08-06 14:00:49 -0400
 Give the original ARGV as an argument so sd's dispatcher can use it


Modified: Prophet/branches/dispatcher/lib/Prophet/CLI.pm
==============================================================================
--- Prophet/branches/dispatcher/lib/Prophet/CLI.pm	(original)
+++ Prophet/branches/dispatcher/lib/Prophet/CLI.pm	Wed Aug  6 14:01:15 2008
@@ -136,7 +136,8 @@
     # yeah this kind of sucks but there's no sane way to tell 
     my $class;
     my %dispatcher_args = (
-        got_command => sub { $class = shift },
+        got_command    => sub { $class = shift },
+        dispatching_on => $self->primary_commands,
     );
 
     $self->dispatcher->run($command, $self, %dispatcher_args);