]> git.vpit.fr Git - perl/modules/rgit.git/blobdiff - lib/App/Rgit/Command.pm
Set fallback command in App::Rgit::Command instead of App::Rgit
[perl/modules/rgit.git] / lib / App / Rgit / Command.pm
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);