X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FCommand.pm;h=645d5c33c67123617bb1e507c97e3e4de42d9044;hb=dc668e3c302569ed2b5eb2ed893247308f22528a;hp=e04e9f574167d0b570943d5133085efcd0cfe406;hpb=edfd59020168422fe2c1baa014f0925968a77c9a;p=perl%2Fmodules%2Frgit.git

diff --git a/lib/App/Rgit/Command.pm b/lib/App/Rgit/Command.pm
index e04e9f5..645d5c3 100644
--- a/lib/App/Rgit/Command.pm
+++ b/lib/App/Rgit/Command.pm
@@ -81,15 +81,15 @@ sub action {
 =head2 C<report $conf, $repo, $status>
 
 Reports that the execution of the command in C<$repo> exited with C<$status> to the current command's policy.
-Returns what the policy callback returned, which should be one of the policy codes listed in C<App::Rgit::Utils>.
+Returns what policy C<report> method returned, which should be one of the policy codes listed in C<App::Rgit::Utils>.
 
 =cut
 
 sub report {
  my ($self) = @_;
- my $cb = $self->policy;
- return $_[3] ? LAST : NEXT unless $cb;
- my $code = $cb->(@_);
+
+ my $code = $self->policy->report(@_);
+
  return defined $code ? $code : NEXT;
 }