]> git.vpit.fr Git - perl/modules/rgit.git/commitdiff
Set fallback command in App::Rgit::Command instead of App::Rgit
authorVincent Pit <vince@profvince.com>
Sun, 5 Oct 2008 21:30:44 +0000 (23:30 +0200)
committerVincent Pit <vince@profvince.com>
Sun, 5 Oct 2008 21:30:44 +0000 (23:30 +0200)
lib/App/Rgit.pm
lib/App/Rgit/Command.pm

index f84d445b74b977839fc7db74660c1c1f28d0594b..d2fe602f4c6b41814da2f57792d7d80e7431f7f9 100644 (file)
@@ -51,7 +51,7 @@ sub new {
  $class->SUPER::new(
   config  => $config,
   command => App::Rgit::Command->new(
-   cmd   => $args{cmd} || ' ',
+   cmd   => $args{cmd},
    args  => $args{args},
    repos => $config->repos,
   )
index b32095f8a581302093aacf6f0414123648e350e7..7410be77977afa88b94b165defe775c3b2b7982c 100644 (file)
@@ -42,7 +42,7 @@ __PACKAGE__->action($_ => 'Once') for qw/version help daemon init/, ' ';
 sub new {
  my ($class, %args) = &validate;
  my $cmd = $args{cmd};
return unless defined $cmd;
$cmd = ' ' unless defined $cmd;
  my $action = $class->action($cmd);
  croak "Command $cmd shouldn't be executed as an $action"
                            unless $class eq __PACKAGE__ or $class->isa($action);